Parfois une fenêtre d’affichage est recouverte par d’autres fenêtres. Ce p’tit bout de code écrit en vba permet de repositionner la fenêtre au sommet.
Option Explicit
Private Declare Function BringWindowToTop Lib « user32″ (ByVal _
hwnd As Long) As LongPrivate Declare Function FindWindow Lib « user32″ Alias _
« FindWindowA » (ByVal lpClassName As Any, ByVal lpWindowName _
As Any) As LongPublic Sub ToTop(sForm As String)
Dim THandle As Long
Dim iret As Long
THandle = FindWindow(vbEmpty, sForm)
If THandle <> 0 Then iret = BringWindowToTop(THandle)
End Sub
Utilisation.
Appeler la routine ToTop en lui passant le titre de la fenêtre ou « caption » Il faut bien sur que cette fenêtre soit chargée en mémoire.
Appeler la routine ToTop en lui passant le titre de la fenêtre ou « caption » Il faut bien sur que cette fenêtre soit chargée en mémoire.
powered by performancing firefox