Wachtwoord.

[HUKED]

hey,

Ik heb in form1 een text box gemaakt, nu wil ik als je daar "nopassword" typt dat je dan form2 opent.
Maar als je een ander wachtwoord in typt dat label1 dan verandert in "Wrong" en form2 niet opent.

Hoe doe ik dat?

 

[WILLIAMXXX]

Gebruik deze fucntie zet hem onder de button_click event.

[CODE]form2.show()
If textbox1.text = "Hetwachtwoord" Then 'zet daar jou wachtwoord neer.
else
form2.close
label1.text = "Wrong"
end if

[/CODE]

Als je het wachtwoord in sterretjes wilt hebben zoek bij textbox1 naar de properties: Passwordchar en typ daar een *

 

[HUKED]

ik krijg deze error:

 

[WILLIAMXXX]

Ow, jij werkt niet met vb.net probeer dit:

form2.top = me.left
form2.left = me.top
form2.show

 

[HUKED]

Nu krijg ik dit:

 

[RonaldGJ]

Private Sub Command1_Click()
If Text1.Text = "nopassword" Then
Unload Me
Form2.Show
ElseIf Text1.Text <> "nopassword" Then
Label1.Caption = "Wrong"
End If
End Sub

 

[HUKED]

bedankt ^^

 

[RonaldGJ]

np

 

[That Guy]

Private Sub Command1_Click()
If Text1.Text = "nopassword" Then
Unload Me
Form2.Show
ElseIf Text1.Text <> "nopassword" Then
Label1.Caption = "Wrong"
End If
End Sub

ik zou "Unload me" en "Form2.Show" omdraaien, anders kan het zijn dat "Me" (Form1) zichzelf sluit en verder geen code uitvoert.


V.:thumb:

 

[WILLIAMXXX]

ik zou "Unload me" en "Form2.Show" omdraaien, anders kan het zijn dat "Me" (Form1) zichzelf sluit en verder geen code uitvoert.


V.:thumb:

Ik zou het nog anders doen:

Form2.show boven de if zetten:thumb:

 

[RonaldGJ]

Maar dan opent ie hem, en dan moet ie hem weer sluiten!
Dat is alleen maar onhandig

 

[That Guy]

Nee william, want hij moet hem alleen openen als het password "nopass" (voorbeeld) is

V.:thumb:

 

[WILLIAMXXX]

Waarom gebruik jij de elseif functie in plaats van de else???

 

[That Guy]

omdat

Private Sub Command1_Click()
If Text1.Text = "nopassword" Then
Unload Me
Form2.Show
ElseIf Text1.Text <> "nopassword" Then
Label1.Caption = "Wrong"
End If
End Sub

precies hetzelfde is als

Private Sub Command1_Click()
If Text1.Text = "nopassword" Then
Unload Me
Form2.Show
Else
Label1.Caption = "Wrong"
End If
End Sub

maar met de ElseIf functie er alvast bij is het leerzamer en makkelijker uitbreidbaar, maar het maakt natuurlijk geen bal uit

V.

 

[RonaldGJ]

Ik doe het altijd zo, omdat het voor mezelf net even wat beter overzichtelijker is!
Maarja, iedereen werkt op zijn eigen manier:thumb:!

Succes dr verder mee, Ronald!