Definir une form en form d outil

Commenter

Contenu du snippet

CETTE SOURCE N'EST PAS DE MOI !

ca faisai longtemp que je l'avait sur le DD, puis j'ai regardé si elle y étai sur le site, mais elle n'y est pas.

en fait ce code rend une form en form d'outil, c'est a dire qui reste en premier plan d'une form principale, mais en arriere plan par rapport a d'autres fenetres externes.

Source / Exemple : 


'déclarations dans un module (ou la même form qui suit mais en changeant les public par des private)
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewLong As Long) As Long
Public Const GWW_HWNDPARENT = (-8)

'dans la form qui deviendra la form outil
'pour info parent représente la form principale
Dim OriginalParenthWnd As Long
Sub Form_Load()
   OriginalParenthWnd = SetWindowLong(Me.hwnd, GWW_HWNDPARENT, Parent.hwnd)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim r As Long
   'Rendre le parent original
    r = SetWindowLong(Me.hwnd, GWW_HWNDPARENT, OriginalParenthWnd)
End Sub

Conclusion :


Voila, je pensai que ca pourrai rendre service a bon nombre de gens
a+

PS:j'ai pas mis de zip parce que c'est parce que c'est enfantin

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Stephane)