jack06
 Desconectado
Mensajes: 33
¡Que dios los Vendiga!!!
|
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..  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 |
|
|
|
|
En línea
|
 (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ |
|
|
|
seba123neo
|
Hola,no veo el problema le pones al passworchar = * y listo...¿que no te sale? ,mira algo asi: 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. |
|
|
|
|
En línea
|
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
|
|
|
jack06
Desconectado
Mensajes: 33
¡Que dios los Vendiga!!!
|
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....
|
|
|
|
|
En línea
|
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ |
|
|
DaNuK
Desconectado
Mensajes: 4
Pobre soñador
|
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..
|
|
|
|
|
En línea
|
|
|
|
aum
Desconectado
Mensajes: 31
|
seria algo asi si entiendo lo q quieres: 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 |
|
|
|
|
En línea
|
|
|
|
jack06
Desconectado
Mensajes: 33
¡Que dios los Vendiga!!!
|
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... 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
|
|
|
|
|
En línea
|
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ |
|
|
aum
Desconectado
Mensajes: 31
|
es facil antes de Text1.text="Escriba contraseña" pones Text1.PasswordChar=""
|
|
|
|
|
En línea
|
|
|
|
cΔssiΔnі
Desconectado
Mensajes: 548
|
A ver prueba así, suponiendo que tienes el texbox y un botón de aceptar en tu aplicación: 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
|
|
|
|
« Última modificación: 25 Junio 2008, 17:17 por cΔssiΔnі »
|
En línea
|
|
|
|
black_jjk
Desconectado
Mensajes: 21
|
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: 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.  |
|
|
|
|
En línea
|
|
|
|
black_jjk
Desconectado
Mensajes: 21
|
Lo olvidaba , el código te tendría que quedar así: 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
|
|
|
|
|
En línea
|
|
|
|
|
Autor
