si lo sabes dimelo xfa
Publicado por Alejandra (3 intervenciones) el 02/05/2006 15:44:32
hola me gustaria q me ayudaran para poder cambiar la clave de contraseña en visual con una establesida tengo esto pero me falta el codigo de como cambiarla
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim I As Integer
Text1.Text = UCase(Text1.Text)
I = Len(Text1.Text)
Text1.SelStart = I
If (KeyAscii = 13) Then
If Text1.Text <> "CLETOS" Then
MsgBox " Password incorrecto", 16, "Password"
Else
Unload password
End If
End If
End Sub
que hago?
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim I As Integer
Text1.Text = UCase(Text1.Text)
I = Len(Text1.Text)
Text1.SelStart = I
If (KeyAscii = 13) Then
If Text1.Text <> "CLETOS" Then
MsgBox " Password incorrecto", 16, "Password"
Else
Unload password
End If
End If
End Sub
que hago?
Valora esta pregunta
0