Bloqueando el redibujado del monitor

[LeandroA]

hola una boludes pero te bloquea toda la pc hasta tener que reiniciar si es que no se lo deshabilita

agregar un timer1

Código [Seleccionar] Expandir


Option Explicit
Private Const WM_SETREDRAW As Long = &HB
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long

Private Sub Form_Load()
Timer1.Interval = 5000
SendMessage GetDesktopWindow, WM_SETREDRAW, 0, ByVal 0
End Sub

Private Sub Timer1_Timer()
    SendMessage GetDesktopWindow, WM_SETREDRAW, 1, ByVal 0
End Sub


[el_c0c0]

mm.. interesante.. pero obviamente no te va a llevar a reiniciar esto.. lo q si te lleva a reiniciar es cuando cambias de escritorio y no lo devolves al original, ahi si estas bien cagado

saludo

[LeandroA]

Estas seguro que no te lleva a reiniciar? prova con esto y despues me contas, Guarda todo primero!

Código [Seleccionar] Expandir


Option Explicit
Private Const WM_SETREDRAW As Long = &HB
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long

Private Sub Form_Load()
SendMessage GetDesktopWindow, WM_SETREDRAW, 0, ByVal 0
End Sub