I have a seried of textboxes which I would like the user to click on the select a date from a date/time picker then return the date to the textbox which was last clicked.
I can set a variable to the textbox which was clicked in the Enter event thus:-
Private Sub TxHaulier_Leave(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles TxHaulier1.Leave, TxHaulier3.Leave, TxHaulier2.Leave
Dim TB As TextBox = sender
ControlClicked = tb.name
datetimepicker.focus
End Sub
What I want is something in the datetimepicker click or valuechanged event to return the value to ColtrolClicked
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
TB.Text = DateTimePicker1.Value.ToShortDateString()
End Sub
Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
TB = sender
End Sub
Private Sub TextBox2_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Leave
TB = sender
Create a Module level variable to store which textbox was selected:
Private mTextBox as TextBox = Nothing
'Use the Enter event of each textbox to set the module level variable:
Private Sub TxHaulier_Enter(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles TxHaulier1.Enter, TxHaulier3.Enter, TxHaulier2.Enter
mTextBox = sender
End Sub
'Use DataTimePicker ValueChanged event to set it for the textbox:
Private Sub DateTimePicker1_ValueChanged( _
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles DateTimePicker1.ValueChanged
mTextBox.Text = DirectCast(sender, DateTimePicker).Value
End Sub
Dim TB As Object
Private Sub DateTimePicker1_ValueChang
TB.Text = DateTimePicker1.Value.ToSh
End Sub
Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
TB = sender
End Sub
Private Sub TextBox2_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Leave
TB = sender
End Sub
vbturbo