Condition fausse, les suivantes s'annulent

Fermé
Coca - 6 févr. 2012 à 19:17
 Coca - 8 févr. 2012 à 15:41
Salut a tous, je suis en train de coder en C++ et il y a un truc que je ne comprend pas, quand une de mes conditions de "form1" par exemple est fausse, toutes les suivantes ne sont pas lue, pourquoi ? Comment remédier a cela ? Je vous copie/colle mon code en bas. Merci d'avance !
.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\version.txt") = True Then
My.Computer.Network.DownloadFile("http://cocaiinoman.gratuit-hosting.com/version.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\version.txt")
Dim vn As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\version.txt")
Dim vni As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\version.txt")
Dim cn As String
Dim cni As String
cn = vn.ReadLine
cni = vni.ReadLine
vn.Close()
vni.Close()
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\version.txt")
If cn < cni Then
MsgBox("Un mise a jour est disponible, elle va être téléchargée.", MsgBoxStyle.Information)
Button2.PerformClick()
End If
End If
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\version.txt") = False Then
MsgBox("Pour le premier lancement, le launcher vas télécharger les fichiers necessaires.", MsgBoxStyle.Information)
Button3.PerformClick()
End If
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\login.txt") Then
CheckBox1.Checked = True
Dim sr As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\login.txt")
TextBox1.Text = sr.ReadLine
TextBox2.Text = sr.ReadLine
sr.Close()
End If
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe") = False Then
My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
End If
End Sub



A voir également:

3 réponses

KX Messages postés 16753 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 25 novembre 2024 3 019
7 févr. 2012 à 15:47
C'est du C++ ça ?!
4
je pence ^^ je l'ai fait avec VB express
0
enfin je pense que tu t'y connait mieux que moi alors je sais pas...
0
Donc personne ne sait pourquoi ?
0