Ganz schnelle hilfe

Hallo, brauche mal ganz schnelle hilfe bitte:

habe folgenden text:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = „“ Then
MessageBox.Show(„Es sind nicht alle Felder ausgefüllt“)
ElseIf TextBox2.Text = „“ Then
MessageBox.Show(„Es sind nicht alle Felder ausgefüllt“)
ElseIf TextBox3.Text = „“ Then
MessageBox.Show(„Es sind nicht alle Felder ausgefüllt“)
ElseIf TextBox4.Text = „“ Then
MessageBox.Show(„Es sind nicht alle Felder ausgefüllt“)

ElseIf TextBox6.Text = „“ Then
MessageBox.Show(„Es sind nicht alle Felder ausgefüllt“)

End If

If TextBox5.Text = „“ Then
MessageBox.Show(" Es sind nicht alle Felder ausgefüllt")
Else

End If

If textbox5.text >= 70001 Then
Label7.Text = „Der zuständige Sachbearbeiter ist: Frau Schulze“
ElseIf TextBox5.Text >= 30001 Then
Label7.Text = " Der zuständige Sachbearbeiter ist: Herr Fleißig"
Else
Label7.Text = " Der zuständige sachbearbeiter ist: Frau Müller"

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = „“
TextBox2.Text = „“
TextBox3.Text = „“
TextBox4.Text = „“
TextBox5.Text = „“
TextBox6.Text = „“

End Sub
End Class

Ic h will dass wenn man auf den okay Button drückt er überprüft ob die Zahl in textbox5 zwischen 00000 - 30000 liegt denn soll er bei label7 Fr. Müller angeben usw. bei 30001 - 70000 hr. fleißig bei 70001 - 99999 fr. schulze aber er meckert rum. Gibt es da noch eine bessere methode wie ich nur wziscehn den zahlen prüfe. also z.b. liegt die zahl zwischen 00000 - 30000 usw. dass alle zahlen über 99999 nicht geprüft werden.

Danke euch schonmal

Auch hallo.

Hallo, brauche mal ganz schnelle hilfe bitte:

habe folgenden text:

…und den pre-Tag vergessen. Ausserdem führt das einfache copy’n’paste auch hier (.NET 1.1 & 2.0, SharpDevelop, VB EE) ebenfalls zu Fehlermeldungen

Aber als Idee ein paar Konstrukte (PseudoCode):

Module Module1
 Sub Main()
 If Then
 Anweisungen
 ElseIf Then
 Anweisungen
 ElseIf... \_3
 Else
 Anweisungen
 End If
 End Sub
End Module

Oder über ‚Select Case‘
Ein paar Beispiel Codes hierfür sind unter http://www.galileocomputing.de/katalog/buecher/titel…
zu finden (spez. Kapitel 3.3).

HTH
mfg M.L.

Hallo,

If textbox5.text >= 70001 Then
Label7.Text = „Der zuständige Sachbearbeiter ist:
Frau Schulze“

da sollte stehen:

If TextBox5.Text \>= 30001 And TextBox5.Text 

Gruß, Rainer
PS. Noch 'n Tipp, sieh dir mal in der Hilfe an, was da zu 'Steuerelementefeldern' steht. Damit wird Dein Code übersichtlicher und es spart Resourcen.