Bug lors d'une vérification au démarrage d'une form Résolu/Fermé

Question

Bonjour, j'ai actuellement un bug :/
Lors du chargement du logiciel (Form1.Load) j'ai mis verification() et le code de cette "verification()" est celui ci :

Private Sub verification()
        If Exists("C:\passwordsaver\label2N.txt") Then
            Panel1.Visible = True
            Label2.Visible = True
            Dim SR As New StreamReader("C:\passwordsaver\label2N.txt")
            Label2.Text = SR.ReadToEnd
            SR.Close()
        ElseIf Exists("C:\passwordsaver\label3N.txt") Then
            Panel2.Visible = True
            Label3.Visible = True
            Dim SR As New StreamReader("C:\passwordsaver\label3N.txt")
            Label3.Text = SR.ReadToEnd
            SR.Close()
        ElseIf Exists("C:\passwordsaver\label4N.txt") Then
            Panel3.Visible = True
            Label4.Visible = True
            Dim SR As New StreamReader("C:\passwordsaver\label4N.txt")
            Label4.Text = SR.ReadToEnd
            SR.Close()
        End If
    End Sub

Mais il détecte seulement le fichier label2N alors que le label3N et le label4N existes ! Ils ne les affiches pas dans les labels qui restent invisible. Quelqu'un peut m'aider à résoudre ce problème/bug ?

Polux31 · Answer

Bonjour,

Tu veux dire qu'il n'affiche que le label1 ?

DarkNight5047 · Answer

exactement ! il est censer afficher les 3 labels car les 3 fichiers existes mais il n'affiche que la label2..

Polux31 · Answer

C'est normal qu'il n'affiche que le label2 dans ta condition If Then .... C'est ce que tu lui demandes de faire !!!

As-tu testé ton code en faisant du pas à pas ?

DarkNight5047 · Answer

Tu n'a pas bien regarder mon code, ou ne connait pas bien le vb.net. Regarde bien la suite :

ElseIf Exists("C:\passwordsaver\label3N.txt") Then
            Panel2.Visible = True
            Label3.Visible = True
            Dim SR As New StreamReader("C:\passwordsaver\label3N.txt")
            Label3.Text = SR.ReadToEnd
            SR.Close()
        ElseIf Exists("C:\passwordsaver\label4N.txt") Then
            Panel3.Visible = True
            Label4.Visible = True
            Dim SR As New StreamReader("C:\passwordsaver\label4N.txt")
            Label4.Text = SR.ReadToEnd
            SR.Close()

Dans ce code, il fait 2 autres if qui lui demande d'afficher la label3 et 4 si les fichiers existes et c'est le cas mais il ne les affiches pas..

Bug lors d'une vérification au démarrage d'une form

4 réponses

Discussions similaires