by Waty Thierry (60 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Tue 30th March 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Enabled/Disable Window redraw for window flickering
API Declarations
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : [email protected]
' * Date : 13/10/98
' * Time : 10:24
' * Module Name : Form_Module
' * Module Filename : Form.bas
' **********************************************************************
' * Comments : Enabled/Disable Window redraw For window flickering
' *
' **********************************************************************
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : [email protected]
' * Date : 13/10/98
' * Time : 10:24
' * Module Name : Form_Module
' * Module Filename : Form.bas
' **********************************************************************
' * Comments : Enabled/Disable Window redraw For window flickering
' *
' **********************************************************************
Public Sub SetRedraw(frm As Form, bRedraw As Boolean)
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : [email protected]
' * Date : 19/11/98
' * Time : 16:43
' * Module Name : Lib_Module
' * Module Filename : Lib.bas
' * Procedure Name : SetRedraw
' * Parameters :
' * frm As Form
' * bRedraw As Boolean
' **********************************************************************
' * Comments : Enabled/Disable Window redraw for window flickering
' * This will increase greatly the speed of work
' *
' **********************************************************************
If (bRedraw = True) Then
LockWindowUpdate 0
frm.Refresh
Else
LockWindowUpdate frm.hwnd
End If
End Sub