PasswordChar

[jack06]

Hola bueno haber si me hechan una manito; Bueno lo que estoy trantando de hacer esk al iniciar el Prog. me sale seleccioando en el Text mostrandome este mensaje "Escriba su Contraseña", hasta ai todo bien pero lo que quiero hacer es que al escribir se escriba pero en hasteriscos claro utilizando el PasswordChar pero lo he estado trantando de hacer pero no me sale habe si me orientan este es lo que eh avanzado..

Código [Seleccionar] Expandir

Private Sub Text1_Click()
    Select Case Text1.Text
        Case Is = "Escriba su Contraseña"
                 Text1.Text = ""
        Case Is <> "Escriba su Contraseña"
    End Select
End Sub

Private Sub Text1_LostFocus()
    Select Case Text1.Text
        Case Is = ""
                Text1.Text = "Escriba su Contraseña"
        End Select
End Sub

Private Sub Form_Click()
    Select Case Text1.Text
        Case Is = ""
            Text1.Text = "Escriba su Contraseña"
    End Select
End Sub

Private Sub Form_Load()
    Text1 = "Escriba su Contraseña"
    Text1.SelLength = Len(Text1.Text)
End Sub

[seba123neo]

Hola,no veo el problema le pones al passworchar = * y listo...¿que no te sale? ,mira algo asi:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1.Text = "" Then Exit Sub
If Not Text1.Text = "seba" Then
Exit Sub
Else
MsgBox "correcto"
Unload Me
End If
End Sub

Private Sub Form_Load()
Text1.Text = "Escriba su contraseña"
Text1.SelLength = Len(Text1.Text)
Text1.PasswordChar = ""
End Sub

Private Sub Text1_Change()
Text1.PasswordChar = "*"
End Sub

saludos.

[jack06]

Hola sebas gracias por darte un tiempito en mi problema, uhm bueno hats y todo bien pero el problema es que cuando un click en el text supuesta se borra el mensaje "Escriba aqui su Contra" para poder escribir la contraseña supuestamente, pero aqui viene el problema sino escribo nada osea dejo en blanco el text me tiene que seguir saliendo el mensaje "Escriba aqui su Contra" pero e problema es que me sale ia en PasswordChar  osea ******** no se si me dejo entender....

[DaNuK]

vamos a ver dices que no te funciona el password char lo estas mediante codigo cierto?
te recomiendo que intentes con la propiedad password char ojala y te funcione
salu..

[aum]

seria algo asi si entiendo lo q quieres:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1.Text = "" Then Exit Sub
If Not Text1.Text = "seba" Then
Exit Sub
Else
MsgBox "correcto"
Unload Me
End If
End Sub

Private Sub Form_Load()
Text1.Text = "Escriba su contraseña"
Text1.SelLength = Len(Text1.Text)
Text1.PasswordChar = ""
End Sub

Private Sub Text1_Change()
Text1.PasswordChar = "*"
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub


se pueden hacer mejoras obviamente

[jack06]

Hola gracias por las respuestas todo esta ok pero ay un solo problemita miren si doy un click en el text se limpia el mensaje para poder escribir ia hasta ai ok pero si dejo en blanco el text y doy un click en el form me tiene k mostrar nuevamente el mensaje "Escriba su Contra", pero me muetsra el mensaje en asteriscos ********* ese es mi problema y nuevamente gracias x las respuestas...

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1.Text = "" Then Exit Sub
If Not Text1.Text = "seba" Then
Exit Sub
Else
MsgBox "correcto"
Unload Me
End If
End Sub

Private Sub Form_Load()
Text1.Text = "Escriba su contraseña"
Text1.SelLength = Len(Text1.Text)
Text1.PasswordChar = ""
End Sub

Private Sub Text1_Change()
Text1.PasswordChar = "*"
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub

Private Sub Text1_LostFocus()
    Select Case Text1.Text
        Case Is = ""
                Text1.Text = "Escriba su Contraseña"
        End Select
End Sub

Private Sub Form_Click()
    Select Case Text1.Text
        Case Is = ""
            Text1.Text = "Escriba su Contraseña"
    End Select
End Sub


[aum]

es facil antes de Text1.text="Escriba contraseña"   pones Text1.PasswordChar=""

[cassiani]

A ver prueba así, suponiendo que tienes el texbox y un botón de aceptar en tu aplicación:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    Text1.Text = "Introduzca su contraseña"
   
    'Que el texbox no reciba el foco al inciarse la aplicacion _
    se supone que hay un botón de aceptar
   
    'lo haces desde tiempo de diseño, pero lo coloco acá para que lo veas...
    CmdAceptar.TabIndex = 0
    Text1.TabIndex = 1
End Sub

Private Sub Text1_GotFocus()
     If Text1.Text = "Introduzca su contraseña" Then
        Text1.Text = ""
        Text1.PasswordChar = "*"
    End If
End Sub

Private Sub Text1_LostFocus()
    If Len(Text1.Text) = 0 Then
        Text1.Text = "Introduzca su contraseña"
        Text1.PasswordChar = ""
    End If
End Sub


[black_jjk]

Yo pienso que el problema tiene que ver con tu "Select Case", si solo vas a ocupar una de dos opciones usa entonces un "If" vale, prueba esto en cualquiera de los procesos que ya tienes declarados:

Código [Seleccionar] Expandir


Select Case Text1.Text
  Case ""
    Text1 = "Escriba su Contraseña"
    Text1.PasswordChar = ""
  Case "Escriba su Contraseña"
    Text1 = ""
    Text1.PasswordChar = ""
  Case Else
    Text1.PasswordChar = "*"
End Select

Según lo entendí así es como quieres que quede, un consejo más, puedes usar solo el GotFocus y LostFocus en tu Text1 para evaluar si han escrito una contraseña, no importa si hacen click o llegan a ese control a través de la tecla de tabulación.

[black_jjk]

Lo olvidaba  , el código te tendría que quedar así:

Código [Seleccionar] Expandir


Private Sub Form_Load()
    Text1 = "Escriba su Contraseña"
    Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Text1_GotFocus()
Select Case Text1.Text
  Case ""
    Text1 = "Escriba su Contraseña"
    Text1.PasswordChar = ""
  Case "Escriba su Contraseña"
    Text1 = ""
    Text1.PasswordChar = ""
  Case Else
    Text1.PasswordChar = "*"
End Select
End Sub

Private Sub Text1_LostFocus()
Select Case Text1.Text
  Case ""
    Text1 = "Escriba su Contraseña"
    Text1.PasswordChar = ""
  Case "Escriba su Contraseña"
    Text1 = ""
    Text1.PasswordChar = ""
  Case Else
    Text1.PasswordChar = "*"
End Select
End Sub