DEPLACEMENT DE COMMAND1
Ze_Dam
Messages postés
340
Date d'inscription
lundi 8 mars 2004
Statut
Membre
Dernière intervention
7 juillet 2005
-
28 août 2004 à 16:23
trcdl Messages postés 78 Date d'inscription jeudi 25 septembre 2003 Statut Membre Dernière intervention 25 juin 2007 - 30 août 2004 à 21:03
trcdl Messages postés 78 Date d'inscription jeudi 25 septembre 2003 Statut Membre Dernière intervention 25 juin 2007 - 30 août 2004 à 21:03
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/25765-deplacement-de-command1
https://codes-sources.commentcamarche.net/source/25765-deplacement-de-command1
30 août 2004 à 21:03
ça marche ...
et surtout c'est tous simple
merci
a bientot
30 août 2004 à 20:17
30 août 2004 à 20:05
29 août 2004 à 15:10
29 août 2004 à 11:04
28 août 2004 à 22:06
Je vais reprendre clairement. On met l'API dans les déclarations (form mais si module, alors il faut mettre Public à la place de Private dans l'API)
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Ensuite dans le code,
If InternetGetConnectedState(0&, 0&) Then
MsgBox "Vous êtes connecté à Internet"
Else
MsgBox "Vous n'êtes pas connecté à Internet"
End If
Beep
End Message :P
28 août 2004 à 21:58
trcdl
28 août 2004 à 21:03
@+
28 août 2004 à 20:38
D'ailheur je suis en train de tester un bout de code que tu a laissé , par la !
nom de dieu mais quel code de fous pour tester si on est connecté à internet ou pas. il faut utiliser la bonne api et tout va bien les gars
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
If InternetGetConnectedState(0&, 0&) Then
MsgBox "Vous êtes connecté à Internet" Else
MsgBox "Vous n'êtes pas connecté à Internet"
Et voilà elle est pas plus belle la vie ??????
comme tu dit . a bientot
28 août 2004 à 19:51
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
Const WM_NCLBUTTONDOWN=&HA1
dans la procedure CommandButton_MouseDown
Private sub CommandButton_MouseDown(...,.....,.....)
Call ReleaseCapture
Call SendMessage(CommandButton.Hwnd, &Ha1, &H2, Byval 0&)
end sub
28 août 2004 à 16:23
Public PosX et Public PosY doivent être écris par respectivement Private PosX As Integer et Private PosY As Integer car il n'y a qu'une seule form donc pas de public et il faut mettre integer car sinon elle devient object
et aussi Dim ind doit être remplacé par Dim ind As Integer pour la meme raison (lire ci-dessus)
toute la procdure en dessous de form_Load est inutile car il suffit de nommer toi-même les controles. Croit-moi, qd tu auras pleins de controles, tu ne le ne le feras plus ainsi.
on ne laisse jamais de controles nommés Text1, Form1, Command1, Label1, pour la compréhension et la meilleur gestion du code
et pour info, le dodragdrop est bien pour les controles qui le prenne en charge, dans les autres cas, il faudra utiliser mousedown, mousemove et enfin mouseup qui modifieront le left et top du controle si mousedown a été pressé avant et jusqu'a ce que mouseup soit détecté