Private qui As TextBox Private Sub Text1_GotFocus() Set qui = ActiveControl qui.BackColor = &HFFFF& End Sub Private Sub Text1_LostFocus() qui.BackColor = &H80000003 End Sub
Private Sub Text1_LostFocus() toto End Sub Private Sub Text2_GotFocus() toto End Sub Private Sub Text2_LostFocus() toto End Sub Private Sub Text3_GotFocus() toto End Sub Private Sub Text3_LostFocus() toto End Sub Private Sub toto() Static titi As TextBox If titi Is Nothing Then Set titi = ActiveControl titi.BackColor = &HFFFF& Else If titi = ActiveControl Then titi.BackColor = &HFFFF& Else titi.BackColor = &H80000003 Set titi = ActiveControl titi.BackColor = &HFFFF& End If End If End Sub
Private Sub Text1_GotFocus() toto End Sub
Private Sub Text1_GotFocus(Index As Integer) Text1(Index).BackColor = &HFFFF& End Sub Private Sub Text1_LostFocus(Index As Integer) Text1(Index).BackColor = &H80000003 End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate qui As TextBox Private Sub Text1_GotFocus(Index As Integer) Set qui = ActiveControl qui.BackColor = &HFFFF& End Sub Private Sub Text1_LostFocus(Index As Integer) qui.BackColor = &H80000003 End Sub