Domů › 4_2005-2006 › StopFlicker
Advertisement
4_2005-2006 Files/ File Controls/ Input/ Output #151152

StopFlicker

Strider Solutions
★★★★★
4.8 · Stažení: 2,341

Avoid the Flickering Use this routine to stop a control (like a list or treeview) from flickering when it is getting it's data.

AI

Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Zdrojový kód
original-source 
'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
Upload
Původní komentáře (3)
Obnoveno z Wayback Machine