VB.NET App: Evaluate a variable to use as a Control

[Wing]

I was wondering if it is possible to evaluate a variable to determine if the variable is a control on the current or other form?

Here is what I am currently looking at. I have two date fields that are using a calendar control. Depending upon which date field opened the Calendar Control, I want the date to be passed back to that control. I would prefer not to have two Calendar Controls. Here is what I have attempted so far.

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        calMain.Visible = True
        lblControl.Text = "txtStartDate"
    End Sub
 
    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        calMain.Visible = True
        lblControl.Text = "txtEndDate"
    End Sub
 
    Private Sub calMain_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles calMain.DateSelected
        Dim frmText As New TextBox
        frmText.Name = lblControl.Text
        frmText.Text = e.Start.ToShortDateString
        calMain.Visible = False
    End Sub

[Wing]

Found a work around for this but would still like to know if its possible to evaluate variables.

Work Around:

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        calMain.Visible = True
        lblControl.Text = "Start"
    End Sub
 
    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        calMain.Visible = True
        lblControl.Text = "End"
    End Sub
 
    Private Sub calMain_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles calMain.DateSelected
        If lblControl.Text = "Start" Then
            txtStartDate.Text = e.Start.ToShortDateString
        Else
            txtEndDate.Text = e.Start.ToShortDateString
        End If
        calMain.Visible = False
    End Sub

[Lokean]

Found a work around for this but would still like to know if its possible to evaluate variables.

Work Around:

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        calMain.Visible = True
        lblControl.Text = "Start"
    End Sub
 
    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        calMain.Visible = True
        lblControl.Text = "End"
    End Sub
 
    Private Sub calMain_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles calMain.DateSelected
        If lblControl.Text = "Start" Then
            txtStartDate.Text = e.Start.ToShortDateString
        Else
            txtEndDate.Text = e.Start.ToShortDateString
        End If
        calMain.Visible = False
    End Sub

Would this help you?

dim Hold as string
hold = sender.tostring

[Wing]

This did basically the same thing as the work around.

---------------------------
System.Windows.Forms.Label, Text: Promotion Start Date
---------------------------
OK   
---------------------------
 
---------------------------
System.Windows.Forms.Label, Text: Promotion End Date
---------------------------
OK   
---------------------------

This is with the following code within each click event

 Hold = sender.ToString
MsgBox(Hold)

I was hoping to find something more along the lines of

Dim SentBox as TextBox
SentBox.Name = lblControl.Text

[Wing]

Still looking for some help with this.

[Lokean]

Still looking for some help with this.

Could you post what you'd like the output to be?

ex:

Start end
1/2/03 1/2/04


I'm not quite clear on what you want

[Wing]

I have two labels with two corresponding text boxes (Start Date and End Date). When clicking on one label I would like to open a calendar control. When I click on a date on the calendar control, it will send the date selected to the correct text box. So basically, is it possible to pass a control name into a variable then evaluate it to verify that it is a control and use it as such.

Public Class Form1
    Private Sub lblStartDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblStartDate.Click
        'Has corresponding txtStartDate
        calMain.Visible = True
    End Sub
 
    Private Sub lblEndDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblEndDate.Click
        'Has corresponding txtEndDate
        calMain.Visible = True
    End Sub
 
    Private Sub calMain_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles calMain.DateSelected
        'Which label was clicked to pass e.Start.ToShortDateString to it's textbox?
    End Sub
End Class

[Wing]

I worked it out and here is the code that I used to solve my dilema.

Public Class Form1
    Dim tBox As TextBox
    Private Sub lblStartDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblStartDate.Click
        calMain.Visible = True
        tBox = txtStartDate
    End Sub
 
    Private Sub lblEndDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblEndDate.Click
        calMain.Visible = True
        tBox = txtEndDate
    End Sub
 
    Private Sub calMain_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles calMain.DateSelected
        tBox.Text = e.Start.ToShortDateString
    End Sub
End Class