If TextBox1.Text = Nothing Then
MsgBox("Bitte Vereinsnamen angeben!")
Else
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
MsgBox("Bitte wählen sie eine Aktion aus!")
If RadioButton1.Checked = True Then
Timer1.Start()
Else
If RadioButton2.Checked = True Then
Timer1.Start()
Else
If RadioButton3.Checked = True Then
Timer1.Start()
Else
If RadioButton4.Checked = True Then
Timer1.Start()
Else
If RadioButton5.Checked = True Then
Timer1.Start()
Else
If RadioButton6.Checked = True Then
Timer1.Start()
End If
End If
End If
End If
End If
End If
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Nun mein Problem:Ich gebe in die Txtbox1 einen Vereinsnamen an und wähle einen Radiobutton aus,wo ich einmal klicke so das dort ein Punkt steht.
Wenn ich jetzt auf den Button klicke kommt eine Msgbox mit diesem Inhalt:
Bitte wählen sie eine Aktion aus!
Kann mir jemand sagen was ich falsch gemacht habe?
LG,
Kiezzflacker Mein Leben ist wie ein Coumputer ohne Bildschirm!
christopher.g Überflieger
Anmeldedatum: 03.05.2008 Beiträge: 565
Verfasst am: 22.07.2011, 19:54
du musst die einen ordentlichen code stiel angewöhnen!!!!!
if abfrage
dann hier ein einzug!!!
end if
so kann man das lesen
und wenns wie bei dir ist
if was weis ich
if noch eine abfrage
code
end if
end if
aber zu deiner frage...
Code:
If TextBox1.Text = Nothing Then
'hier prüfst du ob textbox1 leer ist
'wenn das nicht der fall ist (also wenn ein verein drin steht dann)
else
radio...
msgbox...
'deswegen kommt hier eine messagebox
'weil die textbox nicht leer ist
endif
was du weiter im code machst ergibt auch keinen sinn...
du 5 ifabfragen ineinander die alle das gleiche auslösen....
wenns schon so sein muss dann doch ein bisschen eleganger!
Code:
If RadioButton1.Checked = True or _
RadioButton2.Checked = True or _
RadioButton3.Checked = True or _
RadioButton4.Checked = True or _
RadioButton5.Checked = True or _
RadioButton6.Checked = True then timer1.Start()
end if
ich hoffe du konntest mit meiner antwort was anfangen
lg deepack
Kiezzflacker Newbie
Anmeldedatum: 22.07.2011 Beiträge: 6
Verfasst am: 22.07.2011, 20:12
@Christopher:
Ja,ich konnte was mit anfangen,hab mich aber mal in der Zeit die ich hatte damit auseinander gesetzt und schon einen übersichtlichen Code gemacht.
Hier nochmal damit du siehst das dass eig. nicht so mein Codestil ist:
------------------------------------------------------------------------------------------------------------------------------------------------------
If TextBox1.Text = Nothing Then
MsgBox("Bitte Vereinsnamen angeben!")
Exit Sub
End If
'RadioButton1.Checked = False
'RadioButton2.Checked = False
'RadioButton3.Checked = False
'RadioButton4.Checked = False
'RadioButton5.Checked = False
'RadioButton6.Checked = False
' Else
If RadioButton1.Checked = True Then
Timer1.Start()
ElseIf RadioButton2.Checked = True Then
Timer1.Start()
ElseIf RadioButton3.Checked = True Then
Timer1.Start()
ElseIf RadioButton4.Checked = True Then
Timer1.Start()
ElseIf RadioButton5.Checked = True Then
Timer1.Start()
ElseIf RadioButton6.Checked = True Then
Timer1.Start()
Else
MsgBox("Bitte wählen Sie eine Aktion aus!")
End If
------------------------------------------------------------------------------------------------------------------------------------------------------
Lg,
Kiezzflacker Mein Leben ist wie ein Coumputer ohne Bildschirm!
Registrieren
Login
