salasanan ja tunnuksen pitää olla oikein?
Private Sub Command1_Click()
If LCase$ = (Text1.Text) = "salasana" Then
MsgBox "oikein"
Else
msgox "salasana väärin!"
End If
If LCase$ = (Text2.Text) = "tunnus" Then
MsgBox "oikein"
Else
msgox "tunnus väärin!"
End If
end sub
Private Sub Command1_Click()
If LCase$ = (Text1.Text) = "salasana" Then
MsgBox "oikein"
Else
msgox "salasana väärin!"
End If
If LCase$ = (Text2.Text) = "tunnus" Then
MsgBox "oikein"
Else
msgox "tunnus väärin!"
End If
end sub
Vastaukset 1
Vanhimmat
Private Sub Command1_Click()
If LCase$ = (Text1.Text) = "salasana" and LCase$ (Text2.Text) = "tunnus" Then
MsgBox "oikein"
Else
msgox "salasana väärin!"
End If