A Mettre dans un module
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
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Exemple dans l’initialisation de la forme
Private Sub Form_Load()
Dim R as long
R = SetWindowPos(Feuille.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or
SWP_NOSIZE)
end sub
Il arrive que d’autres appli utilise cette fonction, il faut donc remettre
la fonction dans l’activation de la forme, ce qui permet de reprendre
cette fonction si la forme est sélectionée.
Private Sub Form_Activate()
Dim R as long
R = SetWindowPos(Feuille.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
end sub
Lermite222