modtools.bas

操作节点

Attribute VB_Name = "modTools"
Option Explicit

Private Const WM_SETREDRAW = &HB
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Sub FreezeCtl(Ctl As Control)
    
    SendMessageLong Ctl.hwnd, WM_SETREDRAW, 0, 0
    
End Sub
Public Sub UnFreezeCtl(Ctl As Control)

    On Error Resume Next    'Gdyby Ctl nie mia砤 .Refresh
    
    SendMessageLong Ctl.hwnd, WM_SETREDRAW, 1, 0
    Ctl.Refresh
    
End Sub