Mensaje Espere...
Publicado por Badboy (74 intervenciones) el 11/10/2004 19:39:54
como se crea un cuadro de mensaje que le indique al usuario que espere y vayan apareciendo los puntos suspensivos
Valora esta pregunta
0
Private Sub Form_Load()
Dim i As Integer
Do While True
Me.YourTextBoxOrLabel.Caption = "Espere"
For i = 1 To 3
Me.YourTextBoxOrLabel.Caption = Me.YourTextBoxOrLabel.Caption & "."
DoEvents
' Ajusta el tiempo de espera entre cada punto (opcional)
' Puedes usar Sleep API para un control más preciso del tiempo
' Ejemplo: Sleep 1000 para esperar 1 segundo
' Puedes agregar el código Sleep en el encabezado del módulo (declaración API) y luego usar Sleep 1000 aquí
' Consulta la documentación de Sleep API para obtener más información
' Espera 1 segundo antes de mostrar el siguiente punto
' Puedes ajustar este valor según tus necesidades
' El tiempo de espera se mide en milisegundos
' Por ejemplo, Sleep 500 esperará medio segundo
Sleep 1000
Next i
Loop
End Sub