Re: Como capear este Bug?

Se me ha ocurrido una chorrada que no se si te puede ser de utilidad.
consiste en guardarse en una variable global a nivel de form el control
que tiene
el foco cuando el form se activa,
en el enter del textbox2 si este control que tenia el foco era el textbox
1 provoca el evento leave manualmente seria algo así.

Private m_bLastControl As Control

Private Sub Form2_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Activated
m_bLastControl = ActiveControl
End Sub

Private Sub TextBox2_Enter(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox2.Enter
If m_bLastControl Is TextBox1 Then
TextBox2_Leave(m_bLastControl, Nothing)
End If
End Sub

' Tu codigo
Private Sub TextBox2_Leave(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox1.Leave, TextBox3.Leave, TextBox2.Leave
Select Case CType(sender, TextBox).Name
Case "TextBox1"
MsgBox("Salgo del 1 FROM 2")
Case "TextBox2"
MsgBox("Salgo del 2 FROM 2")
Case "TextBox3"
MsgBox("Salgo del 3 FROM 2")
End Select
End Sub

Espero que te sirva


trivet


Ver este tema: http://www.softwaremix.net/viewtopic-482512.html

Enviado desde http://www.softwaremix.net