Eingabe prüfen TextBoxes

Page 1 of 2 1 2
04/22/2015 10:52 _ᴋush##1
Moin,

kurz und knapp: Ich will, dass wenn in 3 verschiedenen TextBoxes genau das vorgegebene steht, das dann die Buttons und CheckBoxes aktiviert werden. Jedoch tut sich nichts..

Code:
Private Sub 
        If ((TextBox1.Text = "1") And (TextBox2.Text = "2") And (TextBox3.Text = "3")) Then
            CheckBox1.Enabled = True
            CheckBox2.Enabled = True
            CheckBox3.Enabled = True
            CheckBox4.Enabled = True
            CheckBox5.Enabled = True
            CheckBox6.Enabled = True
            CheckBox9.Enabled = True
            CheckBox8.Enabled = True
Sprich die Kombination MUSS passen, erst dann werden die Buttons und Checkboxes aktiviert.

Weiß jemand Rat???
04/22/2015 12:06 Dingtax#2
Ich gehe mal davon aus, dass zum Zeitpunkt der Überprüfung die Bedingung nicht erfüllt ist. Damit spätere Eingaben berücksichtigt werden können benötigst du einen ActionListener, in diesem würde ich die Überprüfung aufrufen ;)
04/22/2015 13:17 Nightwish001#3
Du kannst einfach das PreviewTextInput Event auf allen drei Textboxes verwenden. Das Event wird bei jedem Tastenschlag, welchen du in der Textbox ausführst, aufgerufen. Dort einfach deine Überprüfung einfügen...
04/22/2015 14:41 tolio#4
1. nutze AndAlso [Only registered and activated users can see links. Click Here To Register...]
2. benenne deine Controls richtig
3. setze eine Handler auf das TextChanged Event und überprüfe deine Bedingungen dort
[Only registered and activated users can see links. Click Here To Register...]
04/22/2015 15:35 _ᴋush##5
Gott ist das umständlich.. Ich programmiere seit 3 Tagen :D

Aber danke für eure Tipps!
04/26/2015 01:36 #Saiirex#6
Muss bei einer Abfrage nicht '==' statt '=' verwendet werden?
04/26/2015 01:44 tolio#7
in vb nicht
04/27/2015 17:32 anonymous-29742#8
Code:
If TextBox1.Text = "1" Then
if Textbox2.Text = "2" Then
if Textbox3.Text = "3" Then
            CheckBox1.Enabled = True
            CheckBox2.Enabled = True
            CheckBox3.Enabled = True
            CheckBox4.Enabled = True
            CheckBox5.Enabled = True
            CheckBox6.Enabled = True
            CheckBox9.Enabled = True
            CheckBox8.Enabled = True
End if
End if
End if
04/27/2015 21:58 stotterer09#9
Quote:
Originally Posted by #Lucas# View Post
Code:
If TextBox1.Text = "1" Then
if Textbox2.Text = "2" Then
if Textbox3.Text = "3" Then
            CheckBox1.Enabled = True
            CheckBox2.Enabled = True
            CheckBox3.Enabled = True
            CheckBox4.Enabled = True
            CheckBox5.Enabled = True
            CheckBox6.Enabled = True
            CheckBox9.Enabled = True
            CheckBox8.Enabled = True
End if
End if
End if
also verschachtelte If Abfragen sind ja nicht sehr schön da gefällt AndAlso schom besser
04/28/2015 15:34 anonymous-29742#10
Quote:
Originally Posted by stotterer09 View Post
also verschachtelte If Abfragen sind ja nicht sehr schön da gefällt AndAlso schom besser
Wenns bei ihm nicht richtig geht, soll er es halt so machen :)
Ist ja nur ein Vorschlag, wenn du was besseres hast. Dann teile es mit uns ;)
04/28/2015 18:37 exception1337#11
Code:
 //Dieses Event tritt ein sobald sich der Text in Tbx1, Tbx2 oder Tbx3 ändert
    Private Sub TbxTextChanged(ByVal Tbx As TextBox, ByVal e As EventArgs) Handles Tbx1.TextChanged, Tbx2.TextChanged, Tbx3.TextChanged
        //Inahtl der TextBoxen prüfen
        If Tbx1.Text = "1" And Tbx2.Text = "2" And Tbx3.Text = "3" Then
            //CheckBoxes aktiveren
            Cbx1.Enabled = True
            Cbx2.Enabled = True
            Cbx3.Enabled = True
            Cbx4.Enabled = True
            Exit Sub //Event verlassen
        End If

        //CheckBoxes deaktivieren
        Cbx1.Enabled = False
        Cbx2.Enabled = False
        Cbx3.Enabled = False
        Cbx4.Enabled = False
    End Sub
Kommentare sollten eigentlich alles erklären!
04/28/2015 19:22 snow#12
Code:
Cbx1.Enabled = Cbx2.Enabled = Cbx3.Enabled = Cbx4.Enabled = Tbx1.Text = "1" AndAlso Tbx2.Text = "2" AndAlso Tbx3.Text = "3"
Bin hiermit VB .NET Experte. :pimp:
04/28/2015 19:44 th0rex#13
Quote:
Originally Posted by snow View Post
Code:
Cbx1.Enabled = Cbx2.Enabled = Cbx3.Enabled = Cbx4.Enabled = Tbx1.Text = "1" AndAlso Tbx2.Text = "2" AndAlso Tbx3.Text = "3"
Bin hiermit VB .NET Experte. :pimp:
Wenn du das noch bei Google einreichst wirst du mit Sicherheit angenommen!
04/28/2015 20:23 tolio#14
@snow, denkste :P wobei mich das ergebnis tatsächlich auch überrascht

Vb.Net:
[Only registered and activated users can see links. Click Here To Register...]
C#:
[Only registered and activated users can see links. Click Here To Register...]
04/28/2015 20:41 Mostey#15
Quote:
Originally Posted by tolio View Post
@snow, denkste :P wobei mich das ergebnis tatsächlich auch überrascht

Vb.Net:
[Only registered and activated users can see links. Click Here To Register...]
C#:
[Only registered and activated users can see links. Click Here To Register...]

Schaut nach einem Fehler in der Fiddle Seite aus. Wusste gar nicht dass es sowas auch für .NET gibt. :handsdown:
Page 1 of 2 1 2