ubiquitour.com

Cómo insertar caracteres aleatorios en un Textbox en VB6

Cómo insertar caracteres aleatorios en un Textbox en VB6

Insertar caracteres al azar en un control de "TextBox" en VB6 puede ayudar a los usuarios por no exigirles a pensar en algo único para entrar en un cuadro de texto. En VB6, puede utilizar variables de tipo de datos "String" unas y "para... Bucle"para crear una cadena aleatoria de caracteres. Esto es útil cuando desea agregar nuevos usuarios a la aplicación y quieres conseguirlos comenzó a crear una buena contraseña para iniciar sesión.

Instrucciones

1 Inicie Microsoft Visual Basic 6.0, haga clic en "EXE estándar" en la ventana de diálogo "Nuevo proyecto" para crear un nuevo proyecto. Haga clic en el control de "TextBox" y haga clic en el formulario para agregar un nuevo control de "TextBox" en el 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 & UCase(rgch) & "0123456789"

Dim i As Long

For i = 1 To cb

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

Next

Text1.Text = RandomString

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