The_Gregg
-
3 déc. 2001 à 21:23
djgab21
Messages postés66Date d'inscriptionvendredi 15 juin 2007StatutMembreDernière intervention19 mai 2011
-
1 mars 2009 à 14:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
djgab21
Messages postés66Date d'inscriptionvendredi 15 juin 2007StatutMembreDernière intervention19 mai 2011 1 mars 2009 à 14:38
Parfait ! C'est ce qu'il me fallait !
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 22 janv. 2008 à 23:55
ravi de l'entendre ^^
gloomy64
Messages postés46Date d'inscriptionlundi 18 octobre 2004StatutMembreDernière intervention 3 avril 2008 22 janv. 2008 à 23:40
Honnetement, j'avous que le code est très mauvais... et au départ c'étais pour un pote que je l'avais postée... qui la repris d'ailleurs... desolès, j'suis un peu surcharger ces temps et je fais un peu n'importe quoi, enfin Renfield, merci de pas etre trop mechant avec moi, de quand meme corriger mon code et j'promets de faire mieux la prochaine fois.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 20 janv. 2008 à 09:15
c'est un code standard, Gloomy64
néanmoins, j'y décèle quelques indélicatesses.
ValRetourLng n'est pas déclaré (pas d'utilisation de l'Option Explicit ?)
ValRetourLng ne sert de toutes facon a rien puisqu'il n'est ni testé, ni renvoyé
MoveForm est une fonction de type Variant (pas de type définit)... et qui ne renvoie rien...
tu transmets à un parametre d'API définit en ByRef As Any la valeur 0& ... donnes lui plutot ByVal 0& si tu ne veux pas crasher un jour ou l'autre ton application.
tu demandes le MoveForm dans le _Load ????
pourquoi ne pas utiliser l'evenemtn adéquat (MouseDown, par exemple)
je n'ai pas compris pourquoi tu as posté...
je sais que tu n'as fait que remanier le code de Nix, qui n''est pas terrible, terrible, mais le poids des années est là !
gloomy64
Messages postés46Date d'inscriptionlundi 18 octobre 2004StatutMembreDernière intervention 3 avril 2008 19 janv. 2008 à 22:44
'Dans un module
Private Declare Function SendMessageA Lib "User32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32"()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Function MoveForm(Who As Form)
Call ReleaseCapture
ValRetourLng = SendMessageA(Who.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
'Dans une Form
Private sub Form_Load()
MoveForm Me
End Sub
Nicoxs
Messages postés11Date d'inscriptionmardi 25 octobre 2005StatutMembreDernière intervention16 janvier 2007 16 janv. 2007 à 19:15
Afyn
Messages postés608Date d'inscriptionsamedi 3 août 2002StatutMembreDernière intervention22 décembre 2016 3 nov. 2003 à 16:11
J'ai vu que cette source était au Top des sources les mieux notées.
Je connais pas les critères de notation, mais j'ai vu des sources sur VB France qui mériteraient amplement un meilleur positionnement.
Faut donc relativiser (comme dirait mc²)
A+
Afyn
Norram
Messages postés8Date d'inscriptionmercredi 25 juin 2003StatutMembreDernière intervention 8 octobre 2003 8 oct. 2003 à 10:51
salut
j'aimerais savoir si faut metre ça dans une form
ou ds un module??????
mais bon, c'est exactement ce ke je cherchait!!!!
merci
jen avait déja un exemplaire mais il y avait pleins d'erreurs mais cété pascomme sa !
merci
@+
tareumleretour
Messages postés38Date d'inscriptionjeudi 27 juin 2002StatutMembreDernière intervention22 mai 20051 16 mars 2003 à 20:44
Oui mais if button=2 comment on fait???
Kicolas
Messages postés2Date d'inscriptionjeudi 31 octobre 2002StatutMembreDernière intervention 8 février 2005 23 nov. 2002 à 05:31
Super ! C'est exactement ce que je cherchais !!!
cs_stailer
Messages postés507Date d'inscriptionjeudi 28 mars 2002StatutMembreDernière intervention13 mai 20091 24 oct. 2002 à 01:17
Vala, c'est justement ce que je cherche. Merci.
bob3000
Messages postés406Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention 2 octobre 2004 8 mai 2002 à 00:23
1 mars 2009 à 14:38
22 janv. 2008 à 23:55
22 janv. 2008 à 23:40
20 janv. 2008 à 09:15
néanmoins, j'y décèle quelques indélicatesses.
ValRetourLng n'est pas déclaré (pas d'utilisation de l'Option Explicit ?)
ValRetourLng ne sert de toutes facon a rien puisqu'il n'est ni testé, ni renvoyé
MoveForm est une fonction de type Variant (pas de type définit)... et qui ne renvoie rien...
tu transmets à un parametre d'API définit en ByRef As Any la valeur 0& ... donnes lui plutot ByVal 0& si tu ne veux pas crasher un jour ou l'autre ton application.
tu demandes le MoveForm dans le _Load ????
pourquoi ne pas utiliser l'evenemtn adéquat (MouseDown, par exemple)
je n'ai pas compris pourquoi tu as posté...
je sais que tu n'as fait que remanier le code de Nix, qui n''est pas terrible, terrible, mais le poids des années est là !
19 janv. 2008 à 22:44
Private Declare Function SendMessageA Lib "User32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32"()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Function MoveForm(Who As Form)
Call ReleaseCapture
ValRetourLng = SendMessageA(Who.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
'Dans une Form
Private sub Form_Load()
MoveForm Me
End Sub
16 janv. 2007 à 19:15
3 nov. 2003 à 16:11
Je connais pas les critères de notation, mais j'ai vu des sources sur VB France qui mériteraient amplement un meilleur positionnement.
Faut donc relativiser (comme dirait mc²)
A+
Afyn
8 oct. 2003 à 10:51
j'aimerais savoir si faut metre ça dans une form
ou ds un module??????
mais bon, c'est exactement ce ke je cherchait!!!!
merci
jen avait déja un exemplaire mais il y avait pleins d'erreurs mais cété pascomme sa !
merci
@+
16 mars 2003 à 20:44
23 nov. 2002 à 05:31
24 oct. 2002 à 01:17
8 mai 2002 à 00:23
3 déc. 2001 à 21:23