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
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
Comment