We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
5 days, 6 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Set focus to a variable in VB.Net
Posted on 2007-11-15
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
Any ideas?
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
Any ideas?
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2-
2
5 Comments
try this
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
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
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_ValueChang
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles DateTimePicker1.ValueChang
mTextBox.Text = DirectCast(sender, DateTimePicker).Value
End Sub
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_ValueChang
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles DateTimePicker1.ValueChang
mTextBox.Text = DirectCast(sender, DateTimePicker).Value
End Sub
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Many of us here at EE write code. Many of us write exceptional code; just as many of us write exception-prone code. As we all should know, exceptions are a mechanism for handling errors which are typically out of our control. From database errors, t…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Michael from AdRem Software outlines event notifications and Automatic Corrective Actions in network monitoring. Automatic Corrective Actions are scripts, which can automatically run upon discovery of a certain undesirable condition in your network.…
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you!
In this Micro Tutorial, you'll learn yo…
- Microsoft Applications
- Windows 10
- Windows OS
- Fonts Typography
- Windows 7, Microsoft Word
Suggested Courses
Course of the Month5 days, 6 hours left to enroll
705 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.