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 3Me.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 segundoSleep 1000
Next i
Loop
End Sub

