Cómo insertar caracteres aleatorios En un cuadro de texto en VB6

Inserción de caracteres aleatorios en un control "Cuadro de texto" en VB6 puede ayudar a los usuarios al no requerir que piensen en algo único para entrar en un cuadro de texto. En Visual Basic 6, puede utilizar algunas variables de tipo de datos "String" y un "bucle For ..." para crear una cadena aleatoria de caracteres. Esto es útil cuando se desea añadir nuevos usuarios a su aplicación y quiere ayudarles a comenzar en crear una buena contraseña para iniciar sesión.

Instrucciones

1 Inicie Microsoft Visual Basic 6.0, haga clic en "EXE estándar" en el "Nuevo proyecto" ventana de diálogo para crear un nuevo proyecto. Haga clic en el control "Cuadro de texto" y haga clic en el formulario para agregar un nuevo control "Cuadro de texto" al formulario. Añadir un "botón de comando" utilizando la misma técnica.

2 Haga doble clic en el botón de comando para crear un nuevo evento Click para este botón. Agregue el código siguiente para generar una cadena aleatoria:

Dim rgch As String

RGCH = "abcdefghijklmnopqrstuvwxyz"

RGCH = RGCH y Ucase (RGCH) y "0123456789"

Dim i As Long

Para i = 1 a cb

RandomString = RandomString & Mid $ (RGCH, Int (Rnd () * Len (RGCH) + 1), 1)

Siguiente

Text1.Text = RandomString

3 Pulse la tecla "F5" para ejecutar el programa y haga clic en el botón de comando para generar caracteres aleatorios en el cuadro de texto.