WFE
XtremDuke
Messages postés
626
Date d'inscription
samedi 28 septembre 2002
Statut
Membre
Dernière intervention
18 mai 2009
-
14 avril 2005 à 09:46
T_Mehdi Messages postés 294 Date d'inscription samedi 5 février 2005 Statut Membre Dernière intervention 24 juillet 2015 - 14 avril 2005 à 19:11
T_Mehdi Messages postés 294 Date d'inscription samedi 5 février 2005 Statut Membre Dernière intervention 24 juillet 2015 - 14 avril 2005 à 19:11
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
https://codes-sources.commentcamarche.net/source/30726-wfe
14 avril 2005 à 19:11
regardez vb la c vraimment super ^^
14 avril 2005 à 15:20
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
14 avril 2005 à 11:58
14 avril 2005 à 09:46
Merci pour cet ajout.