Imports System

Imports System.Data

Imports System.Data.SqlClient



Public Class frmClassAdd



    Dim m_intClassId As Integer = 0



#Region " Form Controls & Events "



    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click

        Me.Close()

    End Sub



    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click

        If ValidateData() <> True Then Exit Sub

        Call AddClassRecord()

        Call AddClass2db()



        Me.Close()



    End Sub



#End Region 'Form Controls & Events

    'Contains submit and cancel buttons





#Region " Form Subs & Functions "



    Private Sub AddClassRecord()



        Dim row As DataRow = Nothing



        row = g_dsGradeList.Classes.NewRow

        row("ClassId") = nudClassId.Value

        row("ClassName") = txtClassName.Text.Trim

        row("Department") = txtDepartment.Text.Trim

        g_dsGradeList.Classes.Rows.Add(row)



    End Sub



    Private Sub AddClass2db()

        'this block below is to add the record straight into the database when

        'the user inserts the validated info



        Dim myConnection As SqlConnection

        Dim myCommand As SqlCommand

        Dim ra As Integer 'integer holds the number of records inserted



        Dim ClassId As String

        Dim ClassName As String

        Dim Department As String



        'you need to provide password for sql server 

        myConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Ein05\Documents\dbGradeListApplication.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")



        myConnection.Open()

        myCommand = new SqlCommand INSERT INTO tblClasses (ClassId,ClassName,Department)VALUES "('" + nudClassId.Value + "," +txtClassName.Text + "," + txtDepartment.Text "')";



        ra = myCommand.ExecuteNonQuery()



        MessageBox.Show("New Row Inserted" & ra)



        myConnection.Close()



    End Sub

myCommand = new SqlCommand INSERT INTO tblClasses (ClassId,ClassName,Department)VALUES "('" + nudClassId.Value + "," +txtClassName.Text + "," + txtDepartment.Text "')";

Public Class MortCalc



    Private Sub clearForm()

        txtLoan.Text = 200000

        txtInterest.Text = 5.75

        txtYears.Text = 30

        txtTotal.Text = ""

    End Sub





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click

        'New Varables

        Dim txtPrincipal As Double

        Dim txtRate As Double

        Dim txtYears As Integer

        Dim amount As Double

        Dim monthlyRate As Double

        Dim years As Integer



        amount = CDbl(Me.txtLoan.Text)

        monthlyRate = CDbl(Me.txtInterest.Text) / 100 'allows interest rate to be entered whole number'

        years = CInt(Me.txtYears.Text)



        If IsNumeric(txtLoan.Text) = False Then

            MsgBox("Please enter a valid loan amount.")

            txtLoan.Clear()

            txtLoan.Focus()

            Exit Sub

        End If



        If IsNumeric(txtInterest.Text) = False Then

            MsgBox("Please enter a valid Interest Rate")

            txtInterest.Clear()

            txtInterest.Focus()

            Exit Sub

        End If



        If IsNumeric(Me.txtYears.Text) = False Then

            MsgBox("Please enter a valid year")

            Me.txtYears.Clear()

            Me.txtYears.Focus()

        End If







        txtPrincipal = FormatCurrency(amount)

        txtRate = FormatCurrency(monthlyRate)

        txtYears = FormatCurrency(years) * 12



        Dim iRate As Double = monthlyRate / 12

        Dim tTotal As Double = txtPrincipal * (iRate / (1 - (1 + iRate) ^ (-txtYears)))

        Me.txtTotal.Text = Format(tTotal, "$#,##0.00")

    End Sub



    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

        clearForm()

    End Sub



    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        End

    End Sub

End Class

Metadata contains a reference that cannot be resolved: 'net.tcp://192.168.1.201:8081/Design_Time_Addresses/WCFJobsLibrary/Jobs/'.

Could not connect to net.tcp://192.168.1.201:8081/Design_Time_Addresses/WCFJobsLibrary/Jobs/. The connection attempt lasted for a time span of 00:00:01.0625000. TCP error code 10061: No connection could be made because the target machine actively refused it 192.168.1.201:8081. 

No connection could be made because the target machine actively refused it 192.168.1.201:8081

If the service is defined in the current solution, try building the solution and adding the service reference again.

<?xml version="1.0" encoding="utf-8" ?>

<configuration>

  <system.web>

    <compilation debug="true" />

  </system.web>

  <!-- When deploying the service library project, the content of the config file must be added to the host's 

  app.config file. System.Configuration does not support config files for libraries. -->

  <system.serviceModel>

    <services>

      <service behaviorConfiguration="WCFJobsLibrary.JobsBehavior"

      name="WCFJobsLibrary.Jobs">

        <endpoint address="net.tcp://192.168.1.201:8081/Design_Time_Addresses/WCFJobsLibrary/Jobs/" binding="netTcpBinding" bindingConfiguration="Binding1" contract="WCFJobsLibrary.IJobs">

          <identity>

            <dns value="localhost" />

          </identity>

        </endpoint>

        <endpoint address="net.tcp://192.168.1.201:8081/Design_Time_Addresses/WCFJobsLibrary/Jobs/mex" binding="mexTcpBinding" contract="IMetadataExchange" />

        <host>

          <baseAddresses>

            <add baseAddress="net.tcp://192.168.1.201:8081/Design_Time_Addresses/WCFJobsLibrary/Jobs/" />

          </baseAddresses>

        </host>

      </service>

    </services>

    <behaviors>

      <serviceBehaviors>

        <behavior name="WCFJobsLibrary.JobsBehavior">

          <serviceMetadata httpGetEnabled="true" httpGetUrl="http://192.168.1.201:8080"/>

          <serviceDebug includeExceptionDetailInFaults="false" />

        </behavior>

      </serviceBehaviors>

    </behaviors>

    <bindings>



      <netTcpBinding >



        <binding name="Binding1"



        closeTimeout="00:10:00"



        openTimeout="00:10:00"



        receiveTimeout="00:10:00"



        sendTimeout="00:01:00"



        transactionFlow="false"



        transferMode="Buffered"



        transactionProtocol="OleTransactions"



        hostNameComparisonMode="StrongWildcard"



        listenBacklog="10"



        maxBufferPoolSize="524288"



        maxBufferSize="65536"



        maxConnections="10"



        maxReceivedMessageSize="65536" portSharingEnabled="false">



          <readerQuotas maxDepth="32"



          maxStringContentLength="8192"



          maxArrayLength="16384"



          maxBytesPerRead="4096"



          maxNameTableCharCount="16384" />



          <reliableSession ordered="true"



          inactivityTimeout="00:10:00"



          enabled="false" />



          <security mode="Transport">



            <transport clientCredentialType="Windows" protectionLevel="EncryptAndSign" />



          </security>



        </binding>



      </netTcpBinding>



    </bindings>

  </system.serviceModel>

</configuration>

Public Class EmailContacts

    Dim xs As String

    Dim conn As New OleDb.OleDbConnection

    Dim ds As New DataSet

    Dim da As OleDb.OleDbDataAdapter

    Private Sub EmailContacts_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = C:\Documents and Settings\1B09158\Desktop\aLL.iCONS\database\User.mdb"



        'Dim connectionString As String = "Data Source=ITCU-22\SQLEXPRESS;Initial Catalog=User;" & "Integrated Security=SSPI;"

        'conn = New SqlConnection(connectionString)



        xs = "SELECT CustName,Email,Selection FROM customer"

        da = New OleDb.OleDbDataAdapter(xs, conn)

        conn.Open()



        ds = New DataSet()

        'Dim commandBuilder As SqlCommandBuilder = New SqlCommandBuilder(da)

        da.Fill(ds, "customer")

        DataGridView1.DataSource = ds.Tables("customer")

        Email.Show()

    End Sub





    Private Sub AddContacts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer



        Dim ds As DataTable = CType(DataGridView1.DataSource, DataTable)

        Email.rtbBcc.Text = ""



        For i = 0 To (ds.Rows.Count - 1)

            If DataGridView1.Rows(i).Cells("Selection").Value IsNot System.DBNull.Value Then

                If DataGridView1.Rows(i).Cells("Selection").Value = True Then

                    Email.rtbBcc.Text += DataGridView1.Rows(i).Cells("Email").Value.ToString()

                    Email.rtbBcc.Text += ","

                    'Email.TextBox5.Text += DataGridView1.Rows(i).Cells("CustName").Value.ToString() + "," & vbCrLf





                    'If DataGridView1.Rows(i).Cells("Selection").Value = True Then

                    '    SendSMS.TextBox1.Text += DataGridView1.Rows(i).Cells("CustName").Value.ToString() + "," & vbCrLf

                    'End If

                End If

            End If

        Next

        Email.rtbBcc.Text = Email.rtbBcc.Text.Remove(Email.rtbBcc.Text.Length - 1, 1)

        Me.Hide()



    End Sub



End Class

Public Class Form1

    Dim content As String = ""

    Sub mouse_up( _

               ByVal sender As System.Object, _

               ByVal e As System.Windows.Forms.MouseEventArgs)

        'Checking the Mouse right Button on the top

        '   Try



        

        ContextHandler(sender, e)

        sender.ContextMenu.Show(sender, New Point(e.X, e.Y))

        ' Catch ex As Exception

        '      MsgBox(ex.ToString)

        '  End Try

    End Sub

    Protected Sub ContextHandler(ByVal sender As System.Object, _

       ByVal e As System.EventArgs)

        ' Clear all previously added MenuItems.

        menu1.MenuItems.Clear()

        '  MsgBox(sender.GetType.ToString)

        If sender.GetType.ToString.Equals("System.Windows.Forms.Label") Then

            'get text of label

            content = CType(sender, Label).Text

            AddContextMenu("label")



            AddContextMenu("picture", False)

           



        Else





            AddContextMenu("label", False)

            AddContextMenu("picture", False)



           

        End If

    End Sub

    Private Sub AddContextMenu(ByVal Caption As String, Optional ByVal IsEnabled As Boolean = True)



        Dim objMenuItem As MenuItem



        objMenuItem = New MenuItem

        objMenuItem.Text = Caption

        objMenuItem.Enabled = IsEnabled

        Menu1.MenuItems.Add(objMenuItem)

        ' Handle event that happen when I click menu items

        AddHandler objMenuItem.Click, AddressOf MenuClick



    End Sub

    Private Sub MenuClick(ByVal sender As Object, ByVal e As System.EventArgs)



        'Point to menu item clicked

        Dim objCurMenuItem As MenuItem = CType(sender, MenuItem)

        



        'create the submenu based on whatever selection is being made, mnuSelection

        Select Case objCurMenuItem.Text



            Case "label"

                MsgBox("label enabled")



            Case "ppicture"

                MsgBox("picture enabled")



        End Select



        objCurMenuItem = Nothing





    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AddHandler Label1.MouseUp, AddressOf mouse_up

        AddHandler PictureBox1.MouseUp, AddressOf mouse_up

    End Sub

End Class

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click 

Dim Model As String

Dim Make As String

Dim Guarantee As Integer = 0

Dim price As Double = 0

Dim qty As Integer = 0

Dim Discount As Double = 0

Dim DelCharge As Double = 0

Dim Subtotal As Double = 0

Dim total As Double = 0

Dim totalpayment As Double = 0



'find user input and assign values to their variables

Model = (ModelNotextbox.Text)

Make = (Maketextbox.Text)

Guarantee = Val(Guaranteecombobox.Text)

price = Val(Pricetextbox.Text)

qty = Val(Qtytextbox.Text)



'Price * qty

totalpayment = price * qty



'display data in list box

ListBox1.Items.Add(Model & ControlChars.Tab & ControlChars.Tab & Make & ControlChars.Tab & Guarantee & ControlChars.Tab & qty & ControlChars.Tab) 



ListBox2.Items.Add(String.Format("{0:c}", totalpayment))



'Adds list box prices together *

Dim totals As Integer



For Each value As Double In ListBox2.Items

totals += value

Next

Label28.Text = (String.Format("{0:c}", totals))



'Clear previous items

ModelNotextbox.Clear()

Maketextbox.Clear()

Guaranteecombobox.Refresh()

Pricetextbox.Clear()



End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim dirInfo As DirectoryInfo

        dirInfo = New DirectoryInfo("c:\Test")



        Dim age As DateTime = ConfigurationSettings.AppSettings("FileTime")



        Dim ageTime As TimeSpan

        Dim timeVal As Integer

        ageTime = Now.Add(age)



        Dim thisFile As FileInfo



        Dim rgFiles As FileInfo()

        rgFiles = dirInfo.GetFiles("*.LCK")



        MsgBox("Age factor: " & age.ToString)

        'MsgBox("Age TimeSpan: " & ageTime.ToString)

        For Each thisFile In rgFiles

            'rgFiles(0).CreationTime.ToString()



            Label1.Text = ("Current Date: " & DateTime.Now.ToString())

            Label2.Text = ("CreationDate: " & thisFile.CreationTime.ToString())

            If ((DateTime.Now - thisFile.CreationTime) > ageTime) Then

                ListBox1.Items.Add(thisFile.Name & " " & thisFile.CreationTime)

                MsgBox("File Age: " & thisFile.Name & " - " & (DateTime.Now - thisFile.CreationTime).ToString())

            End If



        Next



    End Sub

Imports System

Imports System.Net

Imports System.IO

Imports System.Net.Mail



Public Class Email



    'Declarations

    Private mailMessage As New Net.Mail.MailMessage()

    Dim attachment As Net.Mail.Attachment



    Public Sub SendMassEmail(ByVal MsgFrom As String, ByVal MsgTo As String, ByVal MsgSubject As String, ByVal MsgBody As String)



        'This procedure takes string array parameters for multiple recipients and files

        Try



            '  Pass in the message information to a new MailMessage

            mailMessage = New Net.Mail.MailMessage(MsgFrom, MsgTo, MsgSubject, MsgBody)



            '   Adding attachments

            Dim attachment As Net.Mail.Attachment = New Net.Mail.Attachment(ofdAttach.FileName)

            mailMessage.Attachments.Add(New Attachment(txtAttach.Text))



            '   Create an SmtpClient to send the e-mail

            Dim mailClient As New SmtpClient("152.226.153.93")  '  = local machine IP Address



            '  Use the Windows credentials of the current User

            mailClient.UseDefaultCredentials = True



            ' Pass the message to the mail server

            mailClient.Send(mailMessage)



            '  Optional user reassurance:

            MessageBox.Show(String.Format("Message Successfully Sent!" & vbCrLf & vbCrLf & "Message Subject:   {0}" & vbCrLf & "FROM:    {1}" & vbCrLf & "TO:   {2}", MsgSubject, MsgFrom, MsgTo), "EMail", Windows.Forms.MessageBoxButtons.OK, Windows.Forms.MessageBoxIcon.Information)



            '  Housekeeping

            'mailMessage.Dispose()



            'Error Checking

        Catch ex As FormatException



            MessageBox.Show(ex.Message & " :Format Exception")



        Catch ex As SmtpException



            MessageBox.Show(ex.Message & " :SMTP Exception")



        End Try



    End Sub



    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click



        'Error Messages

        If rtbBcc.Text = "" Then

            MsgBox("Please enter the recipient(s)", MsgBoxStyle.Information, "Send Email")

            Exit Sub

        End If



        If txtFrom.Text = "" Then

            MsgBox("Please enter the sender", MsgBoxStyle.Information, "Send Email")

            Exit Sub

        End If



        If txtMsg.Text = "" Then

            MsgBox("Please enter the email message(s)", MsgBoxStyle.Information, "Send Email")

            Exit Sub

        End If



        'Calling the SendMassEmail() from a button

        SendMassEmail(txtFrom.Text, rtbTo.Text, txtSubj.Text, txtMsg.Text)



    End Sub