• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Enabled/Disable Window redraw for window flickering

Enabled/Disable Window redraw for window flickering

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




Rate Enabled/Disable Window redraw for window flickering

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' * 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