Huhu!
Ein Anfänger braucht Hilfe... Ich!
Ich fange gerade mit dem VB Coden an.
Habe mir dazu mal VB 2010 runtergeladen & mich direkt
an ein kleines Projekt bezgl. Warrock gemacht.
Alles lief gut, bis ich eine ComboBox einfügte...
Nunja, folgender Fehler kommt:
"end of"-Anweisung erwartet
Nach langem googlen kam ich darauf, dass ich einen Fehler gemacht habe.
Doch ich finde ihn nicht!
Hier ist der komplette Code:
Public Class Form2
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs)
End Sub
Private Sub WebBrowser1_DocumentCompleted_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If WebBrowser1.DocumentText = "1.0" Then
MsgBox("Du hast die neuste Version!")
Else WebBrowser1.DocumentText = "2.0" Then
MsgBox("Ein Update ist verfügbar: Checke den Thread auf elitepvpers!")
End If
End Sub
Private Sub BindingSource1_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
If ComboBox1.Text = "MENÜ" Then
TextBox1.Text = "LINK"
Else : End If
End Sub
End Class
Und hier muss der Fehler sein:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If WebBrowser1.DocumentText = "1.0" Then
MsgBox("Du hast die neuste Version!")
Else WebBrowser1.DocumentText = "2.0" Then
MsgBox("Ein Update ist verfügbar: Checke den Thread auf elitepvpers!")
End If
End Sub
Ich bin für jede Hilfe dankbar.
*edit* Problem gelöst, musste lediglich das "Then" weg lassen.