Problem mit Textbox

[Mipe39]

Hallo an alle,

ich habe folgendes Problem, ich habe eine Textbox in der Zahlen eingegeben werden. Meine Routine sieht so aus:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As String
i = TextBox1.Text
CheckedListBox1.Visible = i <= "1000"
CheckedListBox2.Visible = (i > "1000") And (i <= "2500")
CheckedListBox3.Visible = (i > "2501") And (i <= "5000")
CheckedListBox4.Visible = (i > "5001") And (i <= "10000")
CheckedListBox5.Visible = (i > "10001") And (i <= "25000")
CheckedListBox6.Visible = i < 25001
End Sub

das Problem ist nur das es nicht immer funktioniert, nur sporadisch.

Ich würde mich freuen wenn mir jemand einmal einen Tip geben könnte wie ich diese Routine optimieren kann.

Besten Dank im voraus

Michael Peter

[robert.oh.]

Hallo Michael!

Ich wuerde an deiner Stelle nicht mit Strings sondern mit Zahlen (int) arbeiten.

[Mipe39]

Hallo robert.oh.

besten Dank das war der entscheidende Hinweis jetzt funktioniert es.

Bis denne

Michael Peter