[Pytania] Visual Basic 2010

[Sir Manieek]

Co trzeba wpisać, żeby button mógł być naciśnięty dopiero po wypełnieniu wszystkich textboxów? Albo jak będą jakieś textboxy puste to żeby wyskoczył msgbox?

Z góry dziękuje za pomoc. Będą lajki!!

[Inorist™]

Jade z pamięci:

 

2. Opcje projektu. Pierwsza zakładka. Assembly ...(button).

1.

 

Sub CheckVaild()

dim ret as boolean = true

button1.Enable = false

for i = 1 to ilosc_textboxow

if me.control("textbox" & i).Text.Lenght > 0 then

ret = 1

end if

next

if ret = 0 then

button1.Enable = true

end if

End Sub

 

dodaj tą funkcje do eventu change_text kazdego textboxu.

[imago96]

Możesz pobrać resource hackera i otworzyć nim twoją apkę dzieki czemu możesz zmienic jej opis,wersje,firme,ikonke itd.

[Sir Manieek]

Jade z pamięci:

 

2. Opcje projektu. Pierwsza zakładka. Assembly ...(button).

1.

 

Sub CheckVaild()

dim ret as boolean = true

button1.Enable = false

for i = 1 to ilosc_textboxow

if me.control("textbox" & i).Text.Lenght > 0 then

ret = 1

end if

next

if ret = 0 then

button1.Enable = true

end if

End Sub

 

dodaj tą funkcje do eventu change_text kazdego textboxu.

Nie rozumiem "dodaj tą funkcje do eventu change_text kazdego textboxu.". Zrobisz coś takiego dla 4 textboxów?

[ЯevoX]

Nie rozumiem "dodaj tą funkcje do eventu change_text kazdego textboxu.". Zrobisz coś takiego dla 4 textboxów?

 

 

Chodzi oto że dodajesz ten kod do każdego zdarzenia(eventu) change_text textboxu. Czyli kliknij tą ikonke "pioruna" po prawej i to będzie events

[Sir Manieek]

 

 

Chodzi oto że dodajesz ten kod do każdego zdarzenia(eventu) change_text textboxu. Czyli kliknij tą ikonke "pioruna" po prawej i to będzie events

No tak wiem, już to wycziłem ale jak mam to niby dodać do "change_text textboxu"?

[Inorist™]

Public Class frmMain

 

Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged, TextBox4.TextChanged, TextBox5.TextChanged, TextBox6.TextChanged

Dim c As Integer = 6 'ilość textbox'ów

Dim v As Integer = 0

For i = 1 To c

If Me.Controls("TextBox" & i).Text.Length > 0 Then

v += 1

End If

Next

If v = c Then

Button1.Enabled = True

Else

Button1.Enabled = False

End If

End Sub

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox("test")

End Sub

 

End Class

 

[ЯevoX]

No jak już będziesz w tych eventsach i widzisz text changed,to klikasz na to dwa razy i ci sie pojawia. i tak z kazdym textboxem.

 

albo po prostu jak @up

[Sir Manieek]

@ Inorist™

I mi nie działa :/ wpisuje to

Dim c As Integer = 6 'ilość textbox'ów
Dim v As Integer = 0
For i = 1 To c
If Me.Controls("TextBox" & i).Text.Length > 0 Then
v += 1
End If
Next
If v = c Then
Button1.Enabled = True
Else
Button1.Enabled = False
End If

w każdym. Klikam w każdym texboxie 2 razy na text changed wklejam to i nie działa. :/ Button się blokuje po wpisaniu literki w jakimkolwiek boxie. A powinien być zablokowany i dopiero po wypełnieniu wszystkich textboxów powinien się odblokować.

Użyłem też

    Private Sub Button1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.TextChanged
        If TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" And TextBox4.Text = "" Then
            Button1.Enabled = False
        End If
    End Sub

I też nie działa.. :/

[Inorist™]

http://speedy.sh/ZKYKc/MPC.rar

[Sir Manieek]

Już wszystko działa, dzięki wielkie

Do zamknięcia.