Problemas con control personalizado

ega
14 de Noviembre del 2003
hola, hace tiempo genere una caja de texto personalizada donde presionas "enter" y te manda al siguiente objeto, pero ahora traté de ponerle "passwordchar" y no funciona, la propiedad si aparece y me deja cambiarla, pero no pasa nada, ¿donde está el problema? este es el código que escribí

en el load

Dim Carac as string

Public Property Get Password()
Password = Carac
End Property

Public Property Let Password(ByVal Caracter As Variant)
If IsNull(Caracter) Then
Caracter = ""
End If
If Len(Caracter) > 0 Then
If Len(Caracter) > 1 Then
MsgBox "Esta propiedad solo admite un caracter"
Else
Carac = Caracter
Text1.PasswordChar = Carac
PropertyChanged "Password"
End If
End If
End Property

les agradecería mucho su apoyo.

Baltasar
14 de Noviembre del 2003
Lo que hace la propiedad PasswordChar es que cualquier letra o número que se introduzca en ese textbox, te lo muestra como ese caracter. Por ejemplo, si pones passwordchar="X", todo lo que escribas en ese textobox se verá como XXXX... aunque el valor "interno" sea el del texto que realmente escribas.
Lo de pasar a otro control al pulsar enter, es con el evento KeyPress:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Text2.SetFocus
End If
End Sub

Realmente no sé si es esto lo que necesitabas, pero por intentarlo no pierdo nada.
Saludos

jasca
14 de Noviembre del 2003
dale que caracter o simbolo aprezca en la propiedad passwordchar, y si quieres controla que solo ingrese caracteres
usa el evento Keypress
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 97 Or KeyAscii > 122 Or KeyAscii <> 8 Then

KeyAscii = 0

End If
End Sub

este codigo es solo para minusculas y el 8 el para poder borrar a la izq, espero que te sirva