Ejemplos usando el Api de windows para Visual basic

110 - Api LockWindowUpdate

Volver al Listado Api - Anterior - Siguiente

Función Api para bloquear el repintado de una ventana

Si se requiere en algún momento bloquear una ventana para que no se repinte podés usar esta función que es muy sencilla.

A la misma se le envía el HWND de la ventana, y para reestablecerla se le envía un valor Null o 0.

Nota: Al llamar al Api la ventana se bloqueará completamente inclusive los controles que contenga en el mismo

Controles para el ejemplo

Colocar un timer1
un command1

Código fuente en el formulario:

'Declaración del Api LockWindowUpdate Private Declare Function LockWindowUpdate Lib "user32" _ (ByVal hwndLock As Long) As Long Private Sub Command1_Click() Me.Caption = " Ventana el repintado desactivado " 'Se le envía el Hwnd del control o ventana a bloquear _ el repintado LockWindowUpdate Me.hWnd ' Bloqueamos 3 segundos la ventana Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Static tiempo As Integer If tiempo = 3 Then 'Reestablecemos el repintado LockWindowUpdate 0& tiempo = 0 Timer1.Enabled = False Me.Caption = " Ventana Normal " End If tiempo = tiempo + 1 End Sub

Buscar en Recursos vb