Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 451 fois - Téléchargée 47 fois
'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
Juste ce que je cherchais, merci bcp
10/10
007
sinon en vb je sé pa dsl
a+
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.