Mensajes

Mezcla los 2 eventos Que tipo de bucle es ?

Me referia a que esta sin terminar, a que habias puesto el codigo incompleto

Y....Aprende a usar matrices de controles

Y sigues haciendo repost! Limpia tus post antes de que un mod lo haga y se enoje contigo

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Declare Function SetCursor Lib "user32.dll" (ByVal hcursor As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Const IDC_APPSTARTING As Long = 32650
Private Const IDC_ARROW As Long = 32512&
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Any) As Long
Dim normal As Long, wait As Long

Private Sub Form_Load()
    wait = LoadCursor(0&, IDC_APPSTARTING)
    normal = LoadCursor(0&, IDC_ARROW)
    Esperar 3000
    Call SetCursor(normal) ' set it to the previous cursor
End Sub

Public Sub Esperar(Miliseconds As Long)
    Dim retraso As Long
    'GetTickCount devuelve un valor inicial, y se lo sumamos al de retraso
    retraso = Miliseconds + GetTickCount
    While retraso >= GetTickCount
        DoEvents
        Call SetCursor(wait)
    Wend
End Sub


El problema fue que apenas se ponia el cursor, se cambiaba el cursor a otro segun el evento de una ventana  por eso en ese bucle, forzamos a mostrar nuestro cursor

No hagas repost

Ademas del codigo faltaria decir que controles usas (16 commandsbuttons, 3 options, pero... para que sera cada uno? no somos adivinos )

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.
Eso esta sin terminar, encima un monton de commands?

Puedes aligerarte usando matriz de controles

Un gran agujero no solo de seguridad, si te piden un correo alternativo a la hora de crear un mail, y no tienes otros, que haces?

Karcrack, porque el sleep congela todo

Si lo intente con DoEvents pero inmediatamente despues de cambiar el cursor vuelve al anterior :S

Esporque tenes que hacer doevents mediante 3 segundos, con algun bucle o algo

Mi vb no es portable

El error fue de usar Controles de usuarios con soporte para estilos xp, con manifest, sin llamar a InitCommonControls desde el form o sub main

Tema resuelto aca: http://www.leandroascierto.com.ar/foro/index.php?topic=610.0

Y a esos sitios no los expulsan de los servidores por que sufren ataques -.-

Se van a hacer los "famosos" por decir que son capaces de resistir ataques DDos

No uses Sleep, usa doevents, BlackZeroX tiene una funcion que te puede ayudar