Zamknutφ p°ekreslovßnφ komponentu II
Postup:
Deklarujte:
Declare Function
SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg
As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_SETREDRAW = &HB
Public Function
LockControl(objX As Object, cLock As Boolean)
Dim i As Long
If cLock Then
'
Vypnutφ p°φznaku Redraw
Call SendMessage(objX.hwnd, WM_SETREDRAW, False, 0)
Else
'
Zapnutφ p°φznaku Redraw a p°ekreslenφ
Call SendMessage(objX.hwnd, WM_SETREDRAW, True, 0)
objX.Refresh
End If
End Function
Pou₧itφ:
'
Zamezenφ p°ekreslovßnφ
LockControl Text1.hWnd, True
'
Obnovenφ p°ekreslovßnφ
LockControl Text1.hWnd, False