WFE

Signaler
Messages postés
626
Date d'inscription
samedi 28 septembre 2002
Statut
Membre
Dernière intervention
18 mai 2009
-
Messages postés
294
Date d'inscription
samedi 5 février 2005
Statut
Membre
Dernière intervention
24 juillet 2015
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/30726-wfe

Messages postés
294
Date d'inscription
samedi 5 février 2005
Statut
Membre
Dernière intervention
24 juillet 2015

merci pour l'info ^^ bon voila j'ai REGROUPé toutes ces fontion dans la dll ^^

regardez vb la c vraimment super ^^
Messages postés
13
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
31 mai 2005

Très bien comme dll bon travail. Pratique et très facile d'utilisation comme le dit XtremDuke

Une seul amélioration pour le déplacement du formulaire pour la rapidité tu pourrais remplacer par :

Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1

Private Declare Function ReleaseCapture _
Lib "user32" () As Long

Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Any) As Long

Private Sub Form_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)

If button = vbLeftButton Then
' Permet au le déplacement du formulaire par drag
Call ReleaseCapture
Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If

End Sub


Merci et bonne continuation
Messages postés
294
Date d'inscription
samedi 5 février 2005
Statut
Membre
Dernière intervention
24 juillet 2015

^^ merci pour ton commentaire :p
Messages postés
626
Date d'inscription
samedi 28 septembre 2002
Statut
Membre
Dernière intervention
18 mai 2009
3
Librairie très utile et très simple d'emploie.

Merci pour cet ajout.