Problème gestion erreur login

**zitoune31** · 26/03/2011, 16h07

Bonjour,

je reviens vers vous afin de vous demander de bien vouloir m accorder un peu de votre temps et compétences d'ailleurs je vous en remercie par avance.
voilà la situation :

j'ai effectuer une form login qui lance d'autre form en fonction du mdp entrer, mais je n'arrive pas à gérer le fait qu'un mauvais mdp soit rentrer:
voici le

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
 
Option Explicit On
Option Strict On
Public Class FrmLogin
    ' info :
    ' les frm suivi de ********** sont pas creer 
    '
    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Bonjour, bienvenue dans mon logiciel de partage de fichier via FTP. Si un identifiant ainsi qu'un mot de passe vous a été attribuer vous aurez accès à l'intégralité de mes fichiers, sans ça je vous invite à saisir dans mdp : <anonyme> et vous aurez accès à ce qu'on appel à un compte limité !(pour plus d'information Adresse de contact <email>.", vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
    End Sub
    Private Sub BtConexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtConexion.Click
        'exemple pour 10 Utilisateurs
 
        Dim IdAdmin As String
        Dim MdpAdmin As String
        Dim MdpPlublik As String
        Dim Id(9) As String
        Dim Mdp(9) As String
        Dim ii As Integer
        Dim Autorisation As Boolean
 
        'tu rentre tous utilisateurs et les mot de passe dans les tableaux
        IdAdmin = "id" 'form admin
        'form famille
        Id(0) = "id"
        Id(1) = "id"
        Id(2) = "id"
        Id(3) = "id"
        Id(4) = "id"
        Id(5) = "id"
        Id(6) = "id"
        Id(7) = "id"
        Id(8) = "id"
        Id(9) = "id"
        '....
        MdpAdmin = "mdp" 'form admin
        MdpPlublik = "anonyme" 'form publik
        'form famille
        Mdp(0) = "mdp"
        Mdp(1) = "mdp"
        Mdp(2) = "mdp"
        Mdp(3) = "mdp"
        Mdp(4) = "mdp"
        Mdp(5) = "mdp"
        Mdp(6) = "mdp"
        Mdp(7) = "mdp"
        Mdp(8) = "mdp"
        Mdp(9) = "mdp"
        ' test pour tous les utilisateurs famille
        For ii = 0 To 9
            ' si le login est bon et si il corespond au mdp
            If ((Id(ii) = TextId.Text) And (Mdp(ii) = TextMdp.Text)) Then
                Autorisation = True
                ProgressBarLogin.Value = 0
                ProgressBarLogin.Value = 100
                MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                ProgressBarLogin.Value = 0
                Me.Hide()
                FrmPrincipal.Show()
                Exit For   'dés que c'est bon tu quitte la boucle
                ' sinon tu n'autorise pas l'accés
            Else
                Autorisation = False
            End If
        Next
        '...................................................... 
        Me.Hide()
        ' test pour utilisateurs administrateur
        If ((IdAdmin = TextId.Text) And (MdpAdmin = TextMdp.Text)) Then
            FrmAdmin.Show()
            ' test pour utilisateurs publik
        ElseIf (TextMdp.Text = "anonyme") Then
            MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            'lance FrmPublique si autoriser
            FrmRestrinte.Show()
        End If
 
    End Sub
 
    Private Sub BtQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtQuit.Click
        'ferme form
        End
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBarLogin.Click
 
    End Sub
End Class

j'aurai penser que le MsgBox que je souhaite rajouter se situerai ici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
For ii = 0 To 9
            ' si le login est bon et si il corespond au mdp
            If ((Id(ii) = TextId.Text) And (Mdp(ii) = TextMdp.Text)) Then
                Autorisation = True
                ProgressBarLogin.Value = 0
                ProgressBarLogin.Value = 100
                MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                ProgressBarLogin.Value = 0
                Me.Hide()
                FrmPrincipal.Show()
                Exit For   'dés que c'est bon tu quitte la boucle
                ' sinon tu n'autorise pas l'accés
            Else
                Autorisation = False
                MsbBox("accès denied") '*********message souhaiter********
            End If
        Next

mais ce n'est pas le cas.
en faite si je le situe ici le fait es que j'ai le Msgbox(" accès denied") qui s'affiche pour chaque teste des mdp moi j'aimerai uniquement qu'unMsgBox s'affiche une seule fois si un mdp erroné a été rentrer ?

**Sankasssss** · 26/03/2011, 16h24

Bonjour,
Avec ce code ça devrais passer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
 
Option Explicit On
Option Strict On
Public Class FrmLogin
    ' info :
    ' les frm suivi de ********** sont pas creer 
    '
    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Bonjour, bienvenue dans mon logiciel de partage de fichier via FTP. Si un identifiant ainsi qu'un mot de passe vous a été attribuer vous aurez accès à l'intégralité de mes fichiers, sans ça je vous invite à saisir dans mdp : <anonyme> et vous aurez accès à ce qu'on appel à un compte limité !(pour plus d'information Adresse de contact <email>.", vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
    End Sub
    Private Sub BtConexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtConexion.Click
        'exemple pour 10 Utilisateurs
 
        Dim IdAdmin As String
        Dim MdpAdmin As String
        Dim MdpPlublik As String
        Dim Id(9) As String
        Dim Mdp(9) As String
        Dim ii As Integer
        Dim Autorisation As Boolean
 
        'tu rentre tous utilisateurs et les mot de passe dans les tableaux
        IdAdmin = "id" 'form admin
        'form famille
        Id(0) = "id"
        Id(1) = "id"
        Id(2) = "id"
        Id(3) = "id"
        Id(4) = "id"
        Id(5) = "id"
        Id(6) = "id"
        Id(7) = "id"
        Id(8) = "id"
        Id(9) = "id"
        '....
        MdpAdmin = "mdp" 'form admin
        MdpPlublik = "anonyme" 'form publik
        'form famille
        Mdp(0) = "mdp"
        Mdp(1) = "mdp"
        Mdp(2) = "mdp"
        Mdp(3) = "mdp"
        Mdp(4) = "mdp"
        Mdp(5) = "mdp"
        Mdp(6) = "mdp"
        Mdp(7) = "mdp"
        Mdp(8) = "mdp"
        Mdp(9) = "mdp"
        ' test pour tous les utilisateurs famille
        For ii = 0 To 9
            ' si le login est bon et si il corespond au mdp
            If ((Id(ii) = TextId.Text) And (Mdp(ii) = TextMdp.Text)) Then
                Autorisation = True
                ProgressBarLogin.Value = 0
                ProgressBarLogin.Value = 100
                MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                ProgressBarLogin.Value = 0
                Me.Hide()
                FrmPrincipal.Show()
                Exit For   'dés que c'est bon tu quitte la boucle
                ' sinon tu n'autorise pas l'accés
            Else
                Autorisation = False
            End If
        Next
        '...................................................... 
        Me.Hide()
        ' test pour utilisateurs administrateur
        If ((IdAdmin = TextId.Text) And (MdpAdmin = TextMdp.Text)) Then
            FrmAdmin.Show()
            Autorisation = True
            ' test pour utilisateurs publik
        ElseIf (TextMdp.Text = "anonyme") Then
            Autorisation = True
            MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            'lance FrmPublique si autoriser
            FrmRestrinte.Show()
        End If
 
        If not Autorisation Then
                MsbBox("accès denied") '*********message souhaiter********
        End If
 
    End Sub
 
    Private Sub BtQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtQuit.Click
        'ferme form
        End
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBarLogin.Click
 
    End Sub
End Class

**zitoune31** · 26/03/2011, 16h58

bonjour,
je te remercie j'arrivais pas à trouver.

et petite question comment faire pour qu' àpres le MsgBox("denied")
la demande de saisie soit ré-affiché ?
sûrement une boucle je suppose ?

Code :

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

1
2
3
4
5
 
If Not Autorisation Then
            MsgBox("accès denied")
            'retourner à la demande de saisi
        End If

**Sankasssss** · 26/03/2011, 20h53

Une boucle ?!?!?
Tu fais un

Code :

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

Me.Hide()

en plein milieu du code (moi je l'aurais mis uniquement si j'affiche une autre form mais chacun son truc ^^), "Me" étant ta form ça veut dire que tu la cache.
Donc si tu fais un

Code :

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

Me.Show

après ton messageBox tu auras de nouveau la demande...

**zitoune31** · 26/03/2011, 21h21

Envoyé par Sankasssss

Une boucle ?!?!?

désoler je suis novice

Envoyé par Sankasssss

Tu fais un

Code :

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

Me.Hide()

en plein milieu du code (moi je l'aurais mis uniquement si j'affiche une autre form mais chacun son truc ^^), "Me" étant ta form ça veut dire que tu la cache.

j'ai effectivement un me.Hide() mais suivi d'un lancement d'une nouvelle form

Code :

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

1
2
3
 
Me.Hide()
FrmPrincipal.Show()

Envoyé par Sankasssss

Donc si tu fais un

Code :

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

Me.Show

après ton messageBox tu auras de nouveau la demande...

je pensais pas si simple

dernièrement y a t-il une possibilité l'ors du

Code :

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

Me.Show

que les TextBox soit vide car il y a les id & mdp précédemment inscrit ?

**Sankasssss** · 26/03/2011, 21h24

Tu es vraiment débutant toi ^^

Code :

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

1
2
3
 
TextId.Text = ""
TextMdp.Text = ""

Je te conseil de lire le cours de Ph. Plasserre qui est vraiment bien fait pour débuter (je l'ai lu à mes début...)

**Sankasssss** · 26/03/2011, 21h29

Envoyé par zitoune31

j'ai effectivement un me.Hide() mais suivi d'un lancement d'une nouvelle form

Code :

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

1
2
3
 
Me.Hide()
FrmPrincipal.Show()

Euh tu ne fais une nouvelle form que si tu as un utilisateur qui a mi un bon mdp :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Me.Hide()
        ' test pour utilisateurs administrateur
        If ((IdAdmin = TextId.Text) And (MdpAdmin = TextMdp.Text)) Then
            FrmAdmin.Show()
            Autorisation = True
            ' test pour utilisateurs publik
        ElseIf (TextMdp.Text = "anonyme") Then
            Autorisation = True
            MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            'lance FrmPublique si autoriser
            FrmRestrinte.Show()
        End If

Moi j'aurais fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        ' test pour utilisateurs administrateur
        If ((IdAdmin = TextId.Text) And (MdpAdmin = TextMdp.Text)) Then
            Me.Hide()
            FrmAdmin.Show()
            Autorisation = True
            ' test pour utilisateurs publik
        ElseIf (TextMdp.Text = "anonyme") Then
            Autorisation = True
            MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            'lance FrmPublique si autoriser
            Me.Hide()
            FrmRestrinte.Show()
        End If

Cela évite que si l'utilisateur a mi un mauvais mot de passe il ne voie ça form de demande disparaître et réapparaître après un message box

**zitoune31** · 26/03/2011, 21h34

débutant le mot est faible aucune base j'ai !!!
merci pour le lien

Oh wai ok je vois pourquoi tu disais en plein milieu

c'est pas volontaire un ctrl V déraper je présume
concernant

Code :

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

1
2
3
 
TextId.Text
TextMdp.Text

peu tu m'indiquer ou le mettre stp

**Sankasssss** · 26/03/2011, 21h40

J'ai changé un peu de ton code, c'est mieux comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 
Option Explicit On
Option Strict On
Public Class FrmLogin
    ' info :
    ' les frm suivi de ********** sont pas creer 
    '
    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Bonjour, bienvenue dans mon logiciel de partage de fichier via FTP. Si un identifiant ainsi qu'un mot de passe vous a été attribuer vous aurez accès à l'intégralité de mes fichiers, sans ça je vous invite à saisir dans mdp : <anonyme> et vous aurez accès à ce qu'on appel à un compte limité !(pour plus d'information Adresse de contact <email>.", vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
    End Sub
    Private Sub BtConexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtConexion.Click
        'exemple pour 10 Utilisateurs
 
        Dim IdAdmin As String
        Dim MdpAdmin As String
        Dim MdpPlublik As String
        Dim Id(9) As String
        Dim Mdp(9) As String
        Dim ii As Integer
        Dim Autorisation As Boolean
 
        'tu rentre tous utilisateurs et les mot de passe dans les tableaux
        IdAdmin = "id" 'form admin
        'form famille
        Id(0) = "id"
        Id(1) = "id"
        Id(2) = "id"
        Id(3) = "id"
        Id(4) = "id"
        Id(5) = "id"
        Id(6) = "id"
        Id(7) = "id"
        Id(8) = "id"
        Id(9) = "id"
        '....
        MdpAdmin = "mdp" 'form admin
        MdpPlublik = "anonyme" 'form publik
        'form famille
        Mdp(0) = "mdp"
        Mdp(1) = "mdp"
        Mdp(2) = "mdp"
        Mdp(3) = "mdp"
        Mdp(4) = "mdp"
        Mdp(5) = "mdp"
        Mdp(6) = "mdp"
        Mdp(7) = "mdp"
        Mdp(8) = "mdp"
        Mdp(9) = "mdp"
        ' test pour tous les utilisateurs famille
        For ii = 0 To 9
            ' si le login est bon et si il corespond au mdp
            If ((Id(ii) = TextId.Text) And (Mdp(ii) = TextMdp.Text)) Then
                Autorisation = True
                ProgressBarLogin.Value = 0
                ProgressBarLogin.Value = 100
                MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                ProgressBarLogin.Value = 0
                Me.Hide()
                FrmPrincipal.Show()
                Exit For   'dés que c'est bon tu quitte la boucle
                ' sinon tu n'autorise pas l'accés
            Else
                Autorisation = False
            End If
        Next
        '...................................................... 
 
        ' test pour utilisateurs administrateur
        If ((IdAdmin = TextId.Text) And (MdpAdmin = TextMdp.Text)) Then
            Me.Hide()
            FrmAdmin.Show()
            Autorisation = True
            ' test pour utilisateurs publik
        ElseIf (TextMdp.Text = "anonyme") Then
            Autorisation = True
            MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            'lance FrmPublique si autoriser
            Me.Hide()
            FrmRestrinte.Show()
        End If
 
        If not Autorisation Then
            MsbBox("accès denied") '*********message souhaiter********
            TextId.Text = ""
            TextMdp.Text = ""
        End If
 
    End Sub
 
    Private Sub BtQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtQuit.Click
        'ferme form
        End
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBarLogin.Click
 
    End Sub
End Class

Bienvenu dans le monde de la programmation

**zitoune31** · 26/03/2011, 21h48

rien à redire MERCI

je vois que tu a rajouter en faite 2 Autorisation = True pour le lancement des autres form (je n'avais pas encore tester leur lancement

en tout cas merci à toi

**Sankasssss** · 26/03/2011, 21h53

Tu es obligé de rajouter ces 2 Autorisation = True aussi non tu aurais le message "accès denied" en rentrant sur les autres form ce qui serait un "bug"

en tout cas merci à toi.

Avec plaisir

mais fais toi plaisir et va lire le cours que je t'ai mi, il est vraiment exellant et tu ne pourras te faire que du bien

Sur ce, bon code

**zitoune31** · 26/03/2011, 21h59

Envoyé par Sankasssss

Tu es obligé de rajouter ces 2 Autorisation = True aussi non tu aurais le message "accès denied" en rentrant sur les autres form ce qui serait un "bug"

Avec plaisir

mais fais toi plaisir et va lire le cours que je t'ai mi, il est vraiment exellant et tu ne pourras te faire que du bien

Sur ce, bon code

encore merci de l'info et effectivement j'irai également m'instruire étant donné que j'en es besoin !!!

**zitoune31** · 27/03/2011, 10h03

Envoyé par zitoune31

dernièrement y a t-il une possibilité l'ors du

Code :

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

Me.Show

que les TextBox soit vide car il y a les id & mdp précédemment inscrit ?

[QUOTE=Sankasssss;5870012]Tu es vraiment débutant toi ^^

Code :

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

1
2
3
 
TextId.Text = ""
TextMdp.Text = ""

j'ai remarquer étant donner que j'ai passer la nuit à créer ma seconde form nomer : "restreinte" incluant un retour vers la form login pour un changement d'utilisateur mais la solution fonctionne pas

Code :

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

1
2
3
4
5
6
7
 
Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        FrmLogin.Show()
        TextId.Text = ""
        TextMdp.Text = ""
        Close()
        End Sub

j'imagine que je doit indiquer que cela concerne la form login mais comment ?

**Sankasssss** · 27/03/2011, 10h49

Bonjour,
vu que tu es motivé je te donne la piste, c'est quelque chose qui revien souvent sur le forum...
Tu crées une variable dans ta forme nommée "restreinte" qui contiendra la form "login" :

Code :

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

public FrmLogin as Form

que tu mets juste en dessous de ta déclaration de form (en dehors de toutes Sub ou Function) de cette manière c'est une variable global.

maintenant ton QuitterToolStripMenuItem_Clickest bien écrit car la variable frmLogin existe :

Code :

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

1
2
3
4
5
6
Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        FrmLogin.Show()
        TextId.Text = ""
        TextMdp.Text = ""
        Close()
        End Sub

mais il te faut encore initialiser ta variable frmLogin quand tu crées ta form "restreinte" donc dans le code de la form login tu ajoutes la ligne en gras :

Code :

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

1
2
3
4
5
6
7
8
 ElseIf (TextMdp.Text = "anonyme") Then
            Autorisation = True
            MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            'lance FrmPublique si autoriser
            Me.Hide()
            FrmRestrinte.FrmLogin = me
            FrmRestrinte.Show()
        End If

Bon sur ce je te laisse, le printemps est la, je vais dans une pépinière chercher quelques plantes grimpante

a toute à l'heur surement

**zitoune31** · 27/03/2011, 10h53

hé Merci de l'info je continue de suite et je pense que sa me servira beaucoup de pouvoir "jouer" entre les forms comme ça !!!

jvois que je suis pas le seul à veiller

bonne promenade

et encore merci

**zitoune31** · 27/03/2011, 13h08

bon bah je galère j'ai suivi ce que tu ma indiquer, il faut que je déclare les TextId.text & TextMdp.Text dumoins je pense que là est la solution mais j'ignore comment.
d'après ce que je trouve sur le web (plusieurs chose d'ailleurs aussi différente les une des autres

)
perso j'essaye de déclarer dans la FrmRestreinte c'est l'endroit où le faire ?
enfin j en es tester plein mais je vois pas

que des codes qui aboutisse pas mais je continue

**Sankasssss** · 27/03/2011, 15h39

et avec :

Code :

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

1
2
3
4
5
6
7
 
Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        FrmLogin.Show()
        FrmLogin.TextId.Text = ""
        FrmLogin.TextMdp.Text = ""
        Me.Close()
End Sub

**zitoune31** · 27/03/2011, 19h01

Envoyé par Sankasssss

et avec :

Code :

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

1
2
3
4
5
6
7
 
Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        FrmLogin.Show()
        FrmLogin.TextId.Text = ""
        FrmLogin.TextMdp.Text = ""
        Me.Close()
End Sub

re je sort de la sieste pas pu résisté

j'avais effectivement pensé à ça mais cela m'informe que :
TextId n'est pas un membre de 'system.windows.Forms.from'. et idem pour TextMdp ?
pourtant j'ai bien suivant les instruction citer plus haut

**Sankasssss** · 27/03/2011, 19h04

Change ca :

Code :

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

public FrmLogin as Form

par ca :

Code :

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

public FrmLogin as FrmLogin

si tu as bien déclarer ta form "Login" par "FrmLogin"...

[EDIT]
Car ici on essaye d'appeler des composant se trouvant sur FrmLogin sur une variable de type Form ce qui ne peut fonctionner.
FrmLogin héritant de Form, si tu mets FrmLogin dans une variable de Type Form, tu ne peux appeler que les méthodes de Form qui est le parent de FrmLogin. Si tu veux pouvoir appeler les méthodes et composants de FrmLogin, il faut soit changer le type de la variable qui contient FrmLogin, comme nous l'avons fait ci-dessus, soit dire au programme que la variable est d'un autre type :

Code :

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

1
2
3
4
5
6
Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        FrmLogin.Show()
        DirectCast(FrmLogin, FrmLogin).TextId.Text = ""
        DirectCast(FrmLogin, FrmLogin).TextMdp.Text = ""
        Me.Close()
End Sub

DirectCast permet de convertir le type d'une variable en un autre type, ici on dit convertit la variable FrmLogin qui était de type Form en type FrmLogin, de cette manière tu peux appeler les méthodes propre à frmLogin.

Si tu ne connais pas l'héritage, il te faudra lire quelque article sur l'orienté objet car c'est la base du VB