Ejemplo de un cuadro de texto de estilo "Contraseña" en VB para MS-DOS

Seleccione idioma Seleccione idioma
Id. de artículo: 90043 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

En esta página

Resumen

En Microsoft Visual Basic para MS-DOS y Microsoft Visual Basic para Windows, es no intrínseco para un control de edición del estilo de contraseña. Sin embargo, se puede generar código para realizar este tipo de funcionalidad mediante el control de edición existente.

Más información

Ejemplo

En el ejemplo siguiente se demostrará cómo configurar un cuadro de texto para aceptar una contraseña de usuario como entrada. Mostrará un asterisco (*) para cada carácter escrito.

Para probar este ejemplo en VBDOS.EXE:

  1. Inicie Microsoft Visual Basic para MS-DOS.
  2. En el menú Edición, elija nuevo formulario y el nombre del formulario Form1.FRM.
  3. Agregue dos cuadros de texto y dos etiquetas. El CtrlNames será el predeterminado (Texto1, texto2, Label1 y Label2).
  4. Coloque las etiquetas a la izquierda de cada cuadro de texto.
  5. Establezca las propiedades siguientes para los controles enumerados a continuación:
    Text1.Text = ""
    Text2.Text = ""
    Label1.Caption = "contraseña de entrada:"
    Label1.Caption = "es la contraseña:"
  6. Guarde el formulario y salir el Diseñador de formularios. Volverá a VBDOS.EXE.
  7. En el nivel de módulo del formulario, agregue el código siguiente:
            DIM SHARED Password$
            CONST NUMCHARS = 9  ' Character limit for password.
  8. En el evento Text1_KeyPress, agregue el siguiente código:
       Sub Text1_KeyPress (KeyAscii AS INTEGER)
           STATIC Temp$    ' Collects characters each time key is pressed.
           IF KeyAscii = 13 THEN       ' ENTER key pressed.
               Password$ = Temp$       ' Assign Password values. collected.
               Temp$ = ""              ' Clear Temp variable.
               Text2.Text = Password$  ' Display password.
               Text1.Text = ""         ' Clear password input box.
               Password$ = ""          ' Clear password when done.
               KeyAscii = 0            ' Prevents Beep after ENTER Key.
           ELSEIF KeyAscii = 8 THEN    ' Backspace key pressed.
               Temp$ = LEFT$(Temp$, LEN(Temp$) - 1) ' Remove one char.
           ELSEIF LEN(Temp$) = NUMCHARS THEN      ' Limit size of password.
               KeyAscii = 0
               BEEP                    ' Signal user that field is full.
           ELSE
               Temp$ = Temp$ + CHR$(KeyAscii)     ' Add a character.
               KeyAscii = 42           ' Print a '*' instead of character.
           END IF
    						
  9. Guarde su trabajo.
  10. En el menú Ejecutar, elija Iniciar.
  11. En el primer cuadro Escriba una contraseña; se mostrará un asterisco (*) para cada carácter que especifique.
  12. Presione ENTRAR.
Se borrará el primer cuadro de texto y el segundo contendrá la contraseña.

Propiedades

Id. de artículo: 90043 - Última revisión: martes, 04 de febrero de 2014 - Versión: 2.1
La información de este artículo se refiere a:
  • Microsoft Visual Basic 1.0 Standard Edition
  • Microsoft Visual Basic for MS-DOS
Palabras clave: 
kbnosurvey kbarchive kbmt KB90043 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 90043

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com