begin process at 2012 02 13 08:28:31
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

API

 > DEFINIR UNE FORM EN FORM D OUTIL

DEFINIR UNE FORM EN FORM D OUTIL


 Information sur la source

Note :
9,25 / 10 - par 4 personnes
9,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :API Niveau :Débutant Date de création :13/07/2002 Date de mise à jour :13/07/2002 17:13:18 Vu :3 336

Auteur : Stephane

Ecrire un message privé
Site perso
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description

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

  • '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
'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


 Sources du même auteur

Source avec Zip Source avec une capture UTILISER LA TELECOMMANDE PCTV AVEC KTV
Source avec Zip OUVRIR PLUSIEURS FICHIERS DANS UNE SEULE INSTANCE
Source avec Zip Source avec une capture CLASSE DE DESSIN (API) PLUS RAPIDE QUE VB
Source avec Zip Source avec une capture DOCKCONTROL : DOCKER/UNDOCKER VOS BARRE D'OUTILS ET AUTRES C...
Source avec Zip ROTATION DANS L'ESPACE 3D > 2D

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) .NET DEPENDENCY VIEWER : ARBRE DES DÉPENDANCES D'UN ASSEMBLY... par ShareVB
Source avec Zip Source .NET (Dotnet) UTILITAIRE SKYDRIVE par MasterShadows
Source avec Zip ROTATION RAPIDE D'IMAGE par trex70
Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ... par Renfield
Source avec Zip Source avec une capture MOUSE SPEED AND WEIGHT : RETOUR DE FORCE VIRTUEL ! par ScSami

Commentaires et avis

Commentaire de OphidiaN le 13/07/2002 18:22:25

put111111 enfiiiiiiinnnnnnnnnnnn
merci :)
++

Commentaire de OphidiaN le 13/07/2002 18:23:32

merde, je le savais déjà ça... g cru autre chose lol :)
bien qd meme :)
++

Commentaire de processus le 14/07/2002 11:17:29

Effectivement, moi ca va me servir :)

Commentaire de leptidev le 15/10/2002 13:00:03

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 ?????

Commentaire de Stephane le 24/10/2002 21:29:14

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+

Commentaire de 007 le 14/02/2005 01:33:56

Super, génial !!!
Juste ce que je cherchais, merci bcp
10/10

007

Commentaire de kgdecaen le 28/01/2008 08:28:37

tu saurais pas comment je peu fqire pour passer en premier plan mais par dessus les apps de windows meri davance

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,014 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales