VB Code:
Private Sub frmMaintCompany_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BindFormData()
Call SetupEventHandlers()
Call CreateDataset()
End Sub
Private Sub SetupEventHandlers()
' Add additional Handlers
AddHandler txtCurrentWorkDate.Validating, AddressOf AppRoutines.fDate_Validating
AddHandler txtCurrentWorkDate.TextChanged, AddressOf AppRoutines.f_TextChanged
AddHandler txtCurrentWorkDate.KeyPress, AddressOf AppRoutines.f_KeyPressNumeric
End Sub
VB Code:
Private Sub frmMaintCompany_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BindFormData()
Call SetupEventHandlers()
Call CreateDataset()
' Add additional Handlers
AddHandler txtCurrentWorkDate.Validating, AddressOf AppRoutines.fDate_Validating
AddHandler txtCurrentWorkDate.TextChanged, AddressOf AppRoutines.f_TextChanged
AddHandler txtCurrentWorkDate.KeyPress, AddressOf AppRoutines.f_KeyPressNumeric
End Sub