Msgbox et LoginForm [Résolu]

Signaler
Messages postés
61
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
28 mai 2008
-
Messages postés
61
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
28 mai 2008
-
Salut voila j'ai un loginform avec ce code:







Private



Sub
OK_Click(

ByVal
sender

As
System.Object,

ByVal
e

As
System.EventArgs)

Handles
OK.Click


If
(UsernameTextBox.Text =

"expl"
)

And
(PasswordTextBox.Text =

"expl"
)

Then

MDIParent1.Show()


Visible =




False






End



If

J'aimerais renvoyer une msgbox si l'username ou le password n'est pas bon. Merci de votre aide

5 réponses

Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
5
Salut,

If(UsernameTextBox.Text =
"expl")
And(PasswordTextBox.Text =
"expl")
ThenMDIParent1.Show()

Visible =

False

Else

MessageBox.show("Username ou password incorrect","Info",MessageBoxButtons.OKCancel,MessageBoxIcon.Error)

End If

 
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
Salut,

Rajoute un Else a ta condition
If Condition Then
   SiVrai
Else
   SiFaux
End IF







__________
Kenji

(


Nouveau forum VBA/Office
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
53
Salut,
Suffit coder le Else de ta condition et d'y afficher un MessageBox

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
132
Date d'inscription
mercredi 18 février 2004
Statut
Membre
Dernière intervention
1 septembre 2014

Comme cela

Private
Sub OK_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles OK.Click

If (UsernameTextBox.Text =
"expl")
And (PasswordTextBox.Text =
"expl")
ThenMDIParent1.Show()

Visible =

False

ElseMsgBox(

"Le login ou le password, n'est pas valide!")

End
If

End
Sub

<hr />
Aller voir ces sites
http://www.pape-bleu.net
 
 ou http://www.papebleu.net.
Messages postés
61
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
28 mai 2008

Je vous remerci bien de vos réponse rapide et donc voila mon code



Private



Sub
OK_Click(

ByVal
sender

As
System.Object,

ByVal
e

As
System.EventArgs)

Handles
OK.Click




If
(UsernameTextBox.Text =

"expl"
)

And
(PasswordTextBox.Text =

"expl"
)

Then



MDIParent1.Show()


Visible =




False






Else

MessageBox.Show(




"Username ou password incorrect"
,

"Info"
, MessageBoxButtons.OKCancel, MessageBoxIcon.Error)


End



If






End



Sub