Visual Basic

Swisher24 wrote:

so being new doesn't mean that I already know what to do or what to say.

Chuck Easter wrote:

Private Sub txtAccidentDesc_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles txtAccidentDesc.TextChanged, txtAuthAdd2.TextChanged, txtAuthAddress.TextChanged, _
txtAuthCity.TextChanged, txtBusinessAdd1.TextChanged, txtBusinessAdd2.TextChanged, _
txtAuthorityName.TextChanged, txtAuthPhone.TextChanged, txtAuthZip.TextChanged, _
txtBusinessCity.TextChanged, txtBusinessZip.TextChanged, txtBusPhone.TextChanged, _
txtCmnt.TextChanged, txtDivDesc.TextChanged, txtLocation.TextChanged, uccAccidentDate.ValueChanged, _
cboReportedBy.SelectedIndexChanged, rbAccident.Click, rbAccountableNo.Click, rbAccountableYes.Click, _
rbAuthContactedNo.Click, rbAuthContactedYes.Click, rbClosedNo.Click, rbClosedYes.Click, rbFatalityNo.Click, _
rbFatalityYes.Click, rbIncident.Click, rbPreventableNo.Click, rbPreventableYes.Click, rbUnsafe.Click, _
uccAuthorityContacted.ValueChanged, umeAccidentTime.ValueChanged
bolEdited = True
End Sub

Private Sub txtAccidentDesc_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles [snip...]
    Console.WriteLine(String.Format("Control Name: {0}", CType(sender, Control).Name))
    bolEdited = True
End Sub

Module Module1
    'Public variables can be used by all forms
    Public strMyGlobalVariable As String = String.Empty

    'Private variables can only be used in this module
    Private strMyPrivateVariable As String = String.Empty

    Public Sub MyGlobalMethod()
        'Code for method
    End Sub

    Public Function MyGlobalFunction() As String
        'Code for function
        Return String.Empty
    End Function

End Module