Code - Visual Basic Research Center

~ 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 ~

Retour à la liste des fonctions

Divers : MessageBox
Positionner une boîte de message à un endroit précis sur l'écran.
(Consulté 22719 fois.)

Il est parfois utile de pouvoir décider soi-même de la position d'apparition d'une boîte de message. Le code suivant peut vous aider. Il faut utiliser le sous-classement, c'est à dire que l'on intercepte l'évènement Windows qui commande l'affichage de la boîte de message. On donne alors de nouvelle coordonnées à la fenêtre, puis on rend la main au sytème.
Lorsqu'un programme VB utilise le sous-classement il est fortement déconseillé de le faire tourner en mode débug (pas à pas), et même de le lancer à partir de VB, c'est pourquoi il faut faire très attention et que ce genre de technique est difficile à mettre en place. Dans la plupart des cas, on avance en aveugle puisque les tests se font directement à partir de l'exécutable.

' Déclaration des API
Public Declare Function UnhookWindowsHookEx Lib "user32" ( ByVal hHook As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function SetWindowPos Lib "user32" ( ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

' Déclaration des constantes
Public Const GWL_HINSTANCE = (-6)
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H4
Public Const SWP_NOACTIVATE = &H10
Public Const HCBT_ACTIVATE = 5
Public Const WH_CBT = 5

' Une variable globale
Public lgHook As Long

Function WinProc(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
' On attend uniquement l'évènement HCBT_ACTIVATE
' qui indique l'affichage de la fenêtre
If lMsg = HCBT_ACTIVATE Then
' Positionne la fenêtre aux coordonnées (100,100)
SetWindowPos wParam, 0, 100, 100, 0, 0, SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE
' Rend la main au système
UnhookWindowsHookEx lgHook
End If
WinProc = False
End Function

'Dans la procédure où est affiché la MsgBox, il faut mettre ce code là :
Dim lgInst As Long, lgId As Long
...
lgInst = GetWindowLong(Me.hwnd, GWL_HINSTANCE)
lgId = GetCurrentThreadId()
' Défini la fonction de sous-classement
lgHook = SetWindowsHookEx(WH_CBT, AddressOf WinProc, lgInst, lgId)
' Affiche la boîte de message à la position donnée dans WinProc
MsgBox ...
...

Retour à la liste des fonctions