by Strider Solutions (1 Submission)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (40 Votes)
Avoid the Flickering
Use this routine to stop a control (like a list or treeview) from flickering when it is getting it's data.
'Get more great source code from
' http://www.stridersolutions.com/products/cs/
Option Explicit
#If Win16 Then
Private Declare Function LockWindowUpdate Lib "User" (ByVal hWndLock As Integer) As Integer
#Else
Private Declare Function LockWindowUpdate Lib "User32" (ByVal hWndLock As Long) As Long
#End If
Private Sub StopFlicker(ByVal lHWnd as Long)
Dim lRet As Long
'Object will not flicker - just be blank
lRet = LockWindowUpdate(lHWnd)
End Sub
Private Sub Release()
Dim lRet As Long
lRet = LockWindowUpdate(0)
End Sub