[Pytanie] Komenda.

[19patryk97]

Witam

Jak napisać komende w visual basic 2010, która polega na tym, że jeżeli się zaznaczy checkbox to wtedy będzie aktywny textbox.

Potrzebne mi to na tą zasade. Jak kliknie się ten checkbox to wtedy będzie można było wpisać text do textboxu i klinąć button.

[Seba65439]

Ustawiasz textbox enabled na false i dalej kod do checkboxa

 

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        TextBox1.Enabled = True
    End Sub
 

 

[Symeg]

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        TextBox1.Enabled = CheckBox1.Checked
    End Sub

 

Kod Seba65439 powoduje że text box będzie już aktywny na stałe po zmianie stanu check boxa

[19patryk97]

Zauważyłem dzięki.

A wiecie może jak zrobić i co dodać aby wyczyszcić pole jednym kliknięciem ?

Ps. Textbox jest cały czas od momentu włączenia "programu" jest możliwość wpisania w nim.

@up.

Jak zrobie tak jak ty to owszem jak włącze to moge wpisać( a chce aby można było dopiero po kliknięciu), ale jak klikne 2-krotnie to zablokowana będzie.

[Gość]

Zauważyłem dzięki.

A wiecie może jak zrobić i co dodać aby wyczyszcić pole jednym kliknięciem ?

Ps. Textbox jest cały czas od momentu włączenia "programu" jest możliwość wpisania w nim.

@up.

Jak zrobie tak jak ty to owszem jak włącze to moge wpisać( a chce aby można było dopiero po kliknięciu), ale jak klikne 2-krotnie to zablokowana będzie.

To ustaw Enabled na false przy starcie.

[19patryk97]

@up nie wiem jak to zrobić

Ale mam 2 pytanie:

Jak zrobić aby timer1 wyłączył się po kliknięciu klawisza f2 a włączył się po kliknięciu klawisza f1 ?

[נσкєя™]

 

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.F2 Then
timer1.stop()
        End If
      If e.KeyCode = Keys.F1 Then
timer1.start()
        End If
    End Sub
 

[19patryk97]

@up. wywala błąd w formule e.keycode = keys...

[נσкєя™]

Znajdź we własciwosciach formy "KeyPreview" i zmień na true lub w evencie load form wpisz

KeyPreview = True

Jak Będzie to samo to podaj kod erroru

Jaki program używasz do pisania?

 

 

A z tym textboxem to:

Utwórz timer , w form_load wpisz

 

timer1_start()

 

, kliknij 2x na timer1 i wpisz

 

If CheckBox1.Checked = True Then
            TextBox1.Enabled = True
        Else
            TextBox1.Enabled = False
            TextBox1.Text = ""
        End If

Kliknij teraz 2x na button powinien wyglądać tak:

 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            'To zostawiamy puste
        Else
            'To powraca jesli checkbox nie jest zaznaczony
            MsgBox("Zaznacz Text i wpisz coś")
            Return
        End If
        If TextBox1.Text = "" Then
            'To powraca gdy pole jest puste
            MsgBox("Pole text nie powinno być puste!")
            Return
        Else
            'Tudajemy polecenia dalsze :P lub funkcję
            Return
        End If
    End Sub
 

Tak powinno wyglądać wszystko z tym co ci podałem:

 

 

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        KeyPreview = True
        Timer2.Start()
    End Sub
    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.F2 Then
            Timer1.Stop()
        End If
        If e.KeyCode = Keys.F1 Then
            Timer1.Start()
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            'To zostawiamy pust
        Else
            'To powraca jesli checkbox nie jest zaznaczony
            MsgBox("Zaznacz Text i wpisz coś")
            Return
        End If
        If TextBox1.Text = "" Then
            MsgBox("Pole text nie powinno być puste!")
            Return
        Else
            'Tudajemy polecenia dalsze :P lub funkcję
            Return
        End If
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If CheckBox1.Checked = True Then
            TextBox1.Enabled = True
        Else
            TextBox1.Enabled = False
            TextBox1.Text = ""
        End If
    End Sub
End Class

 

 

 

[19patryk97]

@up dzięki. Wszystko jest już okej.