Visual Basic / MSGBOX
Jean-Marie DUBASIK
-
samounet Messages postés 99 Date d'inscription Statut Membre Dernière intervention -
samounet Messages postés 99 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Ci-dessous un bout de code.
Ma question: A votre avis pourquoi le MsgBox apparait une deuxième fois lorsque l'on a appyer sur l'OK du MsgBox
Private Sub txtUtilisateur_LostFocus(Index As Integer)
If Trim$(txtUtilisateur(0).Text) = "" Then
MsgBox "Le nom est obligatoire.", vbInformation, "Encodage."
txtUtilisateur(0).SetFocus
Exit Sub
End If
txtUtilisateur(0).Text = UCase$(txtUtilisateur(0))
End Sub
Ci-dessous un bout de code.
Ma question: A votre avis pourquoi le MsgBox apparait une deuxième fois lorsque l'on a appyer sur l'OK du MsgBox
Private Sub txtUtilisateur_LostFocus(Index As Integer)
If Trim$(txtUtilisateur(0).Text) = "" Then
MsgBox "Le nom est obligatoire.", vbInformation, "Encodage."
txtUtilisateur(0).SetFocus
Exit Sub
End If
txtUtilisateur(0).Text = UCase$(txtUtilisateur(0))
End Sub
A voir également:
- Visual Basic / MSGBOX
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
Je crois que j'ai trouver: dans mon exemple étant donné que txtUtilisateur est un grupe donc indexé, il faut utiliser le select case sinon y passe deux fois sur la routinne.