[PROBLEM] If z wieloma warunkami

[GibonZiom]

Kiedy tylko pierwszy warunek się zgadza w liście warunków ,to operacja jest wykonywana ,a powinna być wykonywana ,kiedy wszystkie warunki są spełnione ,jak to zrobić? Oto mój kod:

Imports System.Net
Public Class Form1


   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   End Sub
   Public Sub SprawdzUpdate()
    Dim jar As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "minecraft-huecomundo/bin/minecraft.jar")
    Dim kaktus As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "minecraft-huecomundo/update.txt")
    Dim Klient As New Net.WebClient
    Dim Wersja As String
    Wersja = 0
    If My.Computer.FileSystem.FileExists(kaktus) Then
	    Wersja = My.Computer.FileSystem.ReadAllText(kaktus)
	    Dim fileReader As String
	    fileReader = My.Computer.FileSystem.ReadAllText(kaktus)
    Else
    End If
    Dim Version As String
    Version = Klient.DownloadString("http://www.gibonziom.craftshell.pl/update.txt")
    If Version > Wersja & My.Computer.FileSystem.FileExists("%APPDATA%/minecraft-huecomundo/bin/minecraft.jar") & My.Computer.FileSystem.FileExists("%APPDATA%/minecraft-huecomundo/update.txt") Then
	    MessageBox.Show("Nowa wersja jest dostępna i wlasnie jest pobierana. Launcher uruchomi sie po pobraniu.1", "AutoUpdater")
	    My.Computer.FileSystem.DeleteFile(jar)
	    My.Computer.Network.DownloadFile("http://www.gibonziom.craftshell.pl/minecraft.jar", jar)
	    My.Computer.FileSystem.DeleteFile(kaktus)
	    My.Computer.Network.DownloadFile("http://www.gibonziom.craftshell.pl/update.txt", kaktus)
    ElseIf Version > Wersja & My.Computer.FileSystem.FileExists("%APPDATA%/minecraft-huecomundo/update.txt") Then
	    MessageBox.Show("Nowa wersja jest dostępna i wlasnie jest pobierana. Launcher uruchomi sie po pobraniu.2", "AutoUpdater")
	    My.Computer.FileSystem.DeleteFile(kaktus)
	    My.Computer.Network.DownloadFile("http://www.gibonziom.craftshell.pl/update.txt", kaktus)
	    My.Computer.Network.DownloadFile("http://www.gibonziom.craftshell.pl/minecraft.jar", jar)
    ElseIf Version > Wersja & My.Computer.FileSystem.FileExists("%APPDATA%/minecraft-huecomundo/bin/minecraft.jar") Then
	    MessageBox.Show("Nowa wersja jest dostępna i wlasnie jest pobierana. Launcher uruchomi sie po pobraniu.3", "AutoUpdater")
	    My.Computer.FileSystem.DeleteFile(jar)
	    My.Computer.Network.DownloadFile("http://www.gibonziom.craftshell.pl/update.txt", kaktus)
	    My.Computer.Network.DownloadFile("http://www.gibonziom.craftshell.pl/minecraft.jar", jar)
    ElseIf Version > Wersja Then
	    MessageBox.Show("Nowa wersja jest dostępna i wlasnie jest pobierana. Launcher uruchomi sie po pobraniu.4", "AutoUpdater")
	    My.Computer.Network.DownloadFile("http://www.gibonziom.craftshell.pl/update.txt", kaktus)
	    My.Computer.Network.DownloadFile("http://www.gibonziom.craftshell.pl/minecraft.jar", jar)
    End If

   End Sub
   Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim uruchom As String
    If CheckBox1.CheckState = CheckState.Checked Then
	    SprawdzUpdate()
    End If
    uruchom = "javaw -Xmx1024m -Djava.library.path=%APPDATA%/.minecraft/bin/natives -cp %APPDATA%/minecraft-huecomundo/bin/minecraft.jar;%APPDATA%/.minecraft/bin/jinput.jar;%APPDATA%/.minecraft/bin/lwjgl.jar;%APPDATA%/.minecraft/bin/lwjgl_util.jar net.minecraft.client.Minecraft "
    Shell("cmd.exe /c" & uruchom & TextBox1.Text)
    Me.Close()
   End Sub

End Class

[Maximus6545]

Hmm dziwny ten updater zapewne robiłeś go z tuta Hubcik99 looknij na ten łap link na yt:

http://www.youtube.com/watch?v=0-UKc-QD8Jk

[Gość]

If My.Computer.FileSystem.FileExists(kaktus) Then

Wersja = My.Computer.FileSystem.ReadAllText(kaktus)

Dim fileReader As String

fileReader = My.Computer.FileSystem.ReadAllText(kaktus)

Else

Exit Sub

End If

[GibonZiom]

If My.Computer.FileSystem.FileExists(kaktus) Then

Wersja = My.Computer.FileSystem.ReadAllText(kaktus)

Dim fileReader As String

fileReader = My.Computer.FileSystem.ReadAllText(kaktus)

Else

Exit Sub

End If

 

Po zastosowaniu tego ,nie wykonują się żadne operacje dalej.

[Marcin648]

Ja bym zrobił to za pomocą select

 

 

Select Case zmienna
Case Is < 0 'Jeśli mniejsza od 0
'Tu to co ma zrobić
Case 0 'Jeśli równa od 0
'Tu to co ma zrobić
Case Else 'dla wszystkich pozostałych
'Tu to co ma zrobić
End Select