Vb.net

[DefenS93]

Hi!

Habe ein Problem: Wenn ich das Design bei meinem Projekt bearbeiten will kommt eine Fehlermeldung in dem Fenster. Zuvor hab ich den Fehler immer gefunden, aber jetzt komm ich nicht weiter. Ich weiß das es irgendwas mit dem button2 zu tun hat.
Das Projekt ist im Anhang, bitte nciht lachen bin ein Anfänger

mfg

*EDIT*

Weil ihr mir ja nicht traut

Public Partial Class MainForm
	Public Sub New()
		' The Me.InitializeComponent call is required for Windows Forms designer support.
		Me.InitializeComponent()
		
		'
		' TODO : Add constructor code after InitializeComponents
		'
	End Sub
	
	Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
		timer1.enabled=True
		button2.Enabled=True
		button1.Enabled=false
	End Sub
	
	Sub Timer1Tick(ByVal sender As Object, ByVal e As EventArgs)
		randomize
		textbox2.text=rnd*4+1
		If textbox2.Text>="4" Then
			panel4.Visible=True
			panel1.Visible=false
			panel2.Visible=false
			panel3.Visible=false
		Else If textbox2.Text>="3" Then
			panel3.Visible=True
			panel1.Visible=false
			panel2.Visible=false
			panel4.Visible=False
		Else If textbox2.Text>="2" Then
			panel2.Visible=True
			panel3.Visible=false
			panel4.Visible=false
			panel1.Visible=False
		Else If textbox2.Text>="1" Then
			panel1.Visible=True
			panel2.Visible=false
			panel3.Visible=false
			panel4.Visible=false
		End If
	End Sub
	
	Sub Button2Click(ByVal sender As Object, ByVal e As EventArgs)
		button2.Enabled=False
		button1.enabled=True
		timer1.Enabled=False
		if radiobutton1.checked=true and panel1.Visible=true then
			textbox1.Text=textbox1.Text+30
		Else If radiobutton2.checked=true and panel2.Visible=true then
			textbox1.Text=textbox1.Text+30
		else If radiobutton3.checked=true and panel3.Visible=true then
			textbox1.Text=textbox1.Text+30
		Else If radiobutton4.checked=true and panel4.Visible=true then
			textbox1.Text=textbox1.Text+30                        '<--Zeile 63
		Else textbox1.Text=textbox1.Text-10
		end if
		If textbox1.Text<=0 Then
			messagebox.Show("Du hast kein Geld mehr!")
			Me.Close
		End If
	End Sub
End Class

In dem Fenster steht:
Syntax errors in D:\Dokumente und Einstellungen\Frederic\Eigene Dateien\SharpDevelop Projects\Glücksspiel\MainForm.vb:
-- line 63 col 8: invalid EndOfStmt

 

[xlon]

stell den code doch einfach rein^^

denn z.b. ich möchte mir nicht deine datei downloaden...wer weiß was damit ist

hier ist doch genug platz für dein code odeR?

 

[Nico Graichen]

Interessant und vorallem hilfreich bei der Ursachenforschung könnte die Fehlermeldung sein, oder?! ;-]

 

[xlon]

ich denke auch...wenn du jetzt noch die fehlermeldung reinschreibst...

dann wir dir auch sicherlich geholfen...

 

[DefenS93]

In dem Fenster steht:
Syntax errors in D:\Dokumente und Einstellungen\Frederic\Eigene Dateien\SharpDevelop Projects\Glücksspiel\MainForm.vb:
-- line 63 col 8: invalid EndOfStmt

 

[xlon]

Hi,

könntest Du mir sagen welche Zeile die 63 ist?

danke

 

[DefenS93]

Aaaargh!
Habs in den Code geschrieben..

 

[deepthroat]

Hi.

Es ist nicht erlaubt die if-else Kurz- bzw. Langform zu mischen. Das Else muss ein einzelnes Statement sein:

' entweder
if textbox2.Text>="4" Then
  ' tue dies
else
  ' tue das
End If

' oder (Kurzform)

If textbox2.Text>="4" Then TueDies() Else TueDas()

Gruß

 

[DefenS93]

Okay, habs hingekriegt. Ich durfte nur gleich hinter dem Else ein If setzen, aber nicht sowas wie textbox1.Text=textbox1.Text-10.
Das muss dann in die nächste Zeile.
thx an alle die sich die Mühe gemacht haben mir zu helfen