[RESOLVED] Last Activate control

[kayleigh]

MSDN brings nothing up, so here was my attempt at a work around.

    Private Sub txtTime1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTime1.Leave, txtTime2.Leave, txtTime3.Leave, _
    txtTime4.Leave, txtTime5.Leave, txtTime6.Leave, txtTime7.Leave

        Dim LastActiveTimeControl As String = Me.ActiveControl.Name
        Dim n As Integer = CInt(LastActiveTimeControl.Substring(LastActiveTimeControl.Length - 1))

        n += -1

        Dim newTime As String = String.Format("txtTime{0}", n)

Because event leave calls another sub i need the last active control. I have the textbox name txtTime{0} but obviously string is not a control.

So Two questions:

1) can a string value be attached to an existing control if i know it's name?
Dim attControl as Control = newTime

2) All this could be avoided in event leave if i could get the left controls name. I have tried sender.tostring etc but nothing returns the textboxs name

[jmcilhinney]

Think about what you're doing. You're getting the Name from the control and then storing it, then you're trying to use that to get the control again later. Why not just store the control in the first place?

[kayleigh]

Thats when question 2 comes in. This would obviously been the prefered method for me. But i cant figure out

    Private Sub txtTime1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTime1.Leave, txtTime2.Leave, txtTime3.Leave, _
    txtTime4.Leave, txtTime5.Leave, txtTime6.Leave, txtTime7.Leave
my.settings.LastActiveControl = ' here
end sub

[jmcilhinney]

Why are you using My.Settings for a start? You should just be using a member variable.

As for what goes there, it's the 'sender'. The 'sender' is ALWAYS the object that raised the event. If you want to assign it to a variable of type Control or TextBox then you have to cast it as type Control or type TextBox.

[kayleigh]

That was just a quick insertion my.settings.

Maybe i should of included my first attempt.....

    Private Sub txtTime1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTime1.Leave, txtTime2.Leave, txtTime3.Leave, _
    txtTime4.Leave, txtTime5.Leave, txtTime6.Leave, txtTime7.Leave
        Dim ControlSender As Control = CType(sender, TextBox)
        Debug.WriteLine(ControlSender.ToString)
    End Sub

output : WindowsApplication1.SelectedText, Text: textinfield

[jmcilhinney]

There's no use assigning it to local variable because the variable ceases to exist at the end of the method. As I already said last post:

You should just be using a member variable.

[kayleigh]

resolved ty john