Puntero del Mouse - Reloj de Arena

Sugar
23 de Julio del 2004
Hola una preguntita a todos espero me ayuden tengo un procedimiento que dilata mucho porque exporta datos de SQL a una BD de Access el problema es que quiero que mienstras suceda eso el puntero del mousse cambie al reloj de arena...
cual es la instruccion para hacer eso ?
porfa le agradeceré si alguien me ayuda me inagino que es facil pero como estoy pegada en otras cosas no he investigado esto tan trivial...ayudenme porfaa

tecniCam
23 de Julio del 2004
Ejemplo de la propiedad MousePointer
En este ejemplo se cambia el puntero del mouse por un reloj de arena mientras se dibujan círculos en la pantalla y al final del procedimiento el puntero adopta la forma que tenía originalmente. Para probar este ejemplo, pegue el código en la sección Declaraciones de un formulario. Presione F5 para ejecutar el programa y luego haga clic en el formulario.

Private Sub Form_Click ()
Dim I ' Declara una variable.
' Cambia el puntero del mouse por un reloj de arena.
Screen.MousePointer = vbHourglass
' Establece un color aleatorio y dibuja círculos en el formulario.
For I = 0 To ScaleWidth Step 50
ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (I, ScaleHeight * Rnd), 400
Next
' Vuelve al puntero normal.
Screen.MousePointer = vbDefault
End Sub

Felipe Henr?ez Ordenes
23 de Julio del 2004
Hola
Mucho más fácil que la respuesta anterior cuando empieze el proceso escribe MOUSEPOINTER=11 y cuando el proceso termine MOUSEPOINTER=0

Chao FELIPE

programador666
23 de Julio del 2004
Las respuestas de los chicos estan muy bien.

Sugerencia: Pon en Form Main(Principal) una StatusBar y el procedimiento que quieres pon lo siguiente:

StatusBar1.Panels(1).Text = "Procesando"
'Sentencias que quieras
StatusBar1.Panels(1).Text = "Listo"

semperfimxl
23 de Julio del 2004
Si quieres mejorar aun mas la presentacion de tu proyecto, y tienes manera de saber cuantos registros vas a exportar de SQL a tu base de datos, puedes poner un ProgressBar en tu forma (recomendable cambiar su propiedad Scrolling a ScrollingSmooth y Visible=False al cargar la forma) y darle la certeza al usuario de que el proceso esta realmente ejecutandose, pues puede ver al grado de avance que lleva...

'+++++++++++++

Screen.MousePointer = vbHourGlass

oRsOrigen.movelast

ProgressBar.Min = 0
ProgressBar.Max = oRSOrigen.RecordCount
ProgressBar.Value = 0

ProgressBar.VisiBle = True

oRsOrigen.movefirst

do while not oRsOrigen.eof
If (ProgressBar.Value + 1) <= ProgressBar.Max then
ProgressBar.Value = ProgressBar.Value + 1
End if

...
' Agregar el registro a tu base de datos...
oRsDestino.AddNew
...
oRsDestino.Update
...

oRsOrigen.movenext
Loop

Screen.MousePointer = vbArrow

MsgBox "Proceso Ha Terminado ..."
ProgressBar.Visible = False

'+++++++++++++++++