1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Definir une form en form d outil

Definir une form en form d outil

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 451 fois - Téléchargée 47 fois

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

Ajouter un commentaire Commentaires
Signaler
Messages postés
38
Date d'inscription
dimanche 5 novembre 2000
Statut
Membre
Dernière intervention
16 décembre 2009
tu saurais pas comment je peu fqire pour passer en premier plan mais par dessus les apps de windows meri davance
Signaler
Messages postés
24
Date d'inscription
jeudi 20 juin 2002
Statut
Membre
Dernière intervention
1 janvier 2007
Super, génial !!!
Juste ce que je cherchais, merci bcp
10/10

007
Signaler
Messages postés
550
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
ouaf ca je sé pa du tou faire, et a mon avi ca doi etre tre cho, delphi permet ca mégafacilement mé bon
sinon en vb je sé pa dsl
a+
Signaler
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
Parfait, mais juste une question, comment tu peux controler la position de ta form ? ca d gérer quand ta form passe sur une zone sur la form d'arrière plan, zone que tu as défini par des coordonnées par exemple et ainsi faire comme dans l'éditeur de visual basic,la form qui vient s'embriquer dans la barre d'outil de gauche ou en haut ?????
Signaler
Messages postés
360
Date d'inscription
vendredi 24 août 2001
Statut
Membre
Dernière intervention
9 juillet 2008
 3
Effectivement, moi ca va me servir :)
Afficher les 7 commentaires
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)