Discussion :

[herroP]

Bonjour j'ai actuellement une erreur dans un de mes codes, c'est:

La conversion de la chaîne "Falsedsfgsdg" en type 'Boolean' n'est pas valide.

Mon application est en fait un formulaire à remplir. Pour passer à la suite il faut que trois textbox soit remplie. Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
If TextBox1.Text <> "" & TextBox2.Text <> "" & TextBox3.Text <> "" Then
            Dim write As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\OdekProduction\identity.txt")
            write.WriteLine(TextBox1.Text)
            write.WriteLine(TextBox2.Text)
            write.WriteLine(TextBox3.Text)
            write.Close()
 
            Me.Hide()
            Form2.Show()
End If

J'ai aussi essayé comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
If TextBox1.Text = Nothing = False & TextBox2.Text = Nothing = False & TextBox3.Text = Nothing = False Then
            Dim write As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\OdekProduction\identity.txt")
            write.WriteLine(TextBox1.Text)
            write.WriteLine(TextBox2.Text)
            write.WriteLine(TextBox3.Text)
            write.Close()
 
            Me.Hide()
            Form2.Show()

J'ai voulu essayé en remplaçant les "<>" par des != mais pourtant il ne les accepte pas.

Auriez-vous une solution à mon problème?

[Sankasssss]

Bonsoir,

il vous faut utiliser AND et non l'opérateur &

Code :

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

1
2
3
4
5
6
7
8
9
10
If TextBox1.Text <> "" AND TextBox2.Text <> "" AND TextBox3.Text <> "" Then
            Dim write As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\OdekProduction\identity.txt")
            write.WriteLine(TextBox1.Text)
            write.WriteLine(TextBox2.Text)
            write.WriteLine(TextBox3.Text)
            write.Close()
 
            Me.Hide()
            Form2.Show()
End If

[herroP]

Effectivement je venais de comprendre en cherchant sur internet lorsque vous m'avez répondu. Mais merci quand même.