Discussion :

[tiny23]

Salut, premièrement je viens de créer un ecran de connexion dans un projet en visual studio 2005 ou je souhaite gerer trois sortes d'utilisateurs: administrateurs, responsable achat et responsable magasin. Ces trois utilisateurs ont des mots de passe différents. Je sais que la gestion de ce code se fera dans le code OK dans l'évènement click . Aussi je souhaiterais gerer le cas l'un des deux est erroné afin d'envoyé un message d'erreur genre vb exclamation " mot de passe et/ou login incorrecte, veuillez réessayer ou quitter"

mon code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub OK_Click(ByVal......)
 
        If ComboBox1.Text = "Administrateur" And PasswordTextBox.Text = "admin" Or ComboBox1.Text = "Responsable Achat" And PasswordTextBox.Text = "achat" Or ComboBox1.Text = "Responsable Uniforme" And PasswordTextBox.Text = "uniforme" Then
            FeuilleMere.Show()
            Me.Close()
        Else
            MessageBox.Show("Veuillez réessayer")
            ComboBox1.Text = ""
            PasswordTextBox.Text = ""
        End If
End Sub

Je voudrais avoir des corrections et ameliorations pour gerer le messagebox avec une boite de dialogue, un vb exclamation avec le bouton ok

Merci

[hunteshiva]

Bonsoir,

tu à l'air de débuter en vb.net, alors si je peut me permettre quelques conseil de programmations.

tout d'abord nommer les éléments intelligemment:

• formulaire: frmConnexion ou frmAcceuil
• textbox: txtLogin, txtPassword
• label: lblLogin, lblInfo
• listbox: lstClients, lstLogin
• combobox: cmbxConnexion
• bouton: btOk
• etc.

Il existe des balises de code su le site *très pratique pour la lecture*

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub OK_Click(ByVal......)
 
If ComboBox1.Text = "Administrateur" And PasswordTextBox.Text = "admin" Or ComboBox1.Text = "Responsable Achat" And PasswordTextBox.Text = "achat" Or ComboBox1.Text = "Responsable Uniforme" And PasswordTextBox.Text = "uniforme" Then
FeuilleMere.Show()
Me.Close()
Else
MessageBox.Show("Veuillez réessayer")
ComboBox1.Text = ""
PasswordTextBox.Text = ""
End If
End Sub

pour ton test c'est pas une mauvaise idée, il y a toujours plusieurs solution * a chacun sa logique *
j'ai pas trop compris le soucis avec la MsgBox, tu veut quoi exactement?
la elle s'affiche quand le mot de passe est erroné, c'est ce que tu veut non?

[tiny23]

Merci. en ce qui concerne la MsgBox, je souhaiterais l'avoir sous forme de boite de dialogue avec un ok, je crois qu'il s'agit d'un vb exclamation dans mon cas de ce genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

messagebox.Show ("Login et/ou mot de passe pas correct(s), veuillez réessayer",?,MessageBoxButtons.OK ,MessageBoxIcon.Exclamation )

un truc de ce genre. je sais qu'il y a des erreurs.

[hunteshiva]

Merci,
mais tu n'écoute pas ce qu'on te dit
si tu ne te sert pas des balises de code, *chose que je t'ai dit*
tu va vite agacer ceux qui vont lire


je te conseil un tuto du site *il a toujours répondu a toutes mes interrogations*
télécharge le au format pdf
et fait tes recherche dedans tu aura tes réponse

pour répondre a ta question, ceci devrai faire l'affaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox("message", Style, Titre)

Solution possible:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox("Login et/ou mot de passe pas correct(s)" vbCrlf " veuillez réessayer", vbExclamation, "Erreur")
'' le vbCrlf permet de sauter une ligne

[tiny23]

Merci beaucoup et excusez moi pour mes erreurs, je suis entrain de lire le tuto afin d’être plus clair et précis dans mes post.

[hunteshiva]

Pas de soucis,
pense a mettre en bas de ton post si tu a ce que tu cherché