Eingabe prüfen TextBoxes

_ᴋush# · 04/22/2015, 10:52

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

Dingtax · 04/22/2015, 12:06

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

Nightwish001 · 04/22/2015, 13:17

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

tolio · 04/22/2015, 14:41

1. nutze AndAlso

2. benenne deine Controls richtig
3. setze eine Handler auf das TextChanged Event und überprüfe deine Bedingungen dort

_ᴋush# · 04/22/2015, 15:35

Gott ist das umständlich.. Ich programmiere seit 3 Tagen

Aber danke für eure Tipps!

~~#Saiirex~~ · 04/26/2015, 01:36

Muss bei einer Abfrage nicht '==' statt '=' verwendet werden?

tolio · 04/26/2015, 01:44

in vb nicht

~~anonymous-29742~~ · 04/27/2015, 17:32

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

stotterer09 · 04/27/2015, 21:58

Quote:

Originally Posted by #Lucas#

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

~~anonymous-29742~~ · 04/28/2015, 15:34

Quote:

Originally Posted by stotterer09

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

exception1337 · 04/28/2015, 18:37

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!

snow · 04/28/2015, 19:22

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.

th0rex · 04/28/2015, 19:44

Quote:
Originally Posted by snow
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.

Wenn du das noch bei Google einreichst wirst du mit Sicherheit angenommen!

tolio · 04/28/2015, 20:23

@snow, denkste :P wobei mich das ergebnis tatsächlich auch überrascht

Vb.Net:

C#:

Mostey · 04/28/2015, 20:41

Quote:

Originally Posted by tolio

@snow, denkste :P wobei mich das ergebnis tatsächlich auch überrascht

Vb.Net:

C#:

Schaut nach einem Fehler in der Fiddle Seite aus. Wusste gar nicht dass es sowas auch für .NET gibt.