~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.
~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction LockWindowUpdate
Declare Function LockWindowUpdate Lib "user32" Alias "LockWindowUpdate" ( _ ByVal hwndLock As Long) As Long
Versions : . Windows 95/98 : Oui . Windows NT : A partir de 3.1 . Windows 2000/XP : OuiDescription : Cette fonction permet de désactiver (ou réactiver) le rafraîchissement d'une fenêtre (une seule fenêtre à la fois peut être bloquée).
hwndLock est le handle de la fenêtre à bloquer. Pour la débloquer, il suffit de rappeler la fonction avec la valeur 0.
Si la fonction échoue elle retourne 0, sinon une valeur différente de 0.
Exemple d'utilisation :
Private Sub txtTexte_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
' Evite l'aspect grisé de la zone en bloquant la mise à jour
LockWindowUpdate txtTexte.hwnd
' La zone bloqué n'affiche plus de menu contextuel automatique
txtTexte.Enabled = False
' On laisse le temps au système de travailler
DoEvents
' Affiche de mon menu contextuel
PopupMenu mdiFrontal.mnuPopupTexte
' Autorise à nouveau le contrôle
txtTexte.Enabled = True
' Débloque les mises à jour
LockWindowUpdate 0
' Remise en place du focus sur le texte
txtTexte.SetFocus
End If
End Sub
Retour à la liste des API |