DÉPLACER UNE FEUILLE SANS CAPTION
cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
-
10 oct. 2003 à 21:31
vbdaniel Messages postés 2 Date d'inscription vendredi 26 décembre 2003 Statut Membre Dernière intervention 24 janvier 2004 - 24 janv. 2004 à 09:41
vbdaniel Messages postés 2 Date d'inscription vendredi 26 décembre 2003 Statut Membre Dernière intervention 24 janvier 2004 - 24 janv. 2004 à 09:41
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/16982-deplacer-une-feuille-sans-caption
https://codes-sources.commentcamarche.net/source/16982-deplacer-une-feuille-sans-caption
24 janv. 2004 à 09:41
20 oct. 2003 à 12:12
Jusqu'à présent j'utilisais un code qui a très bien fonctionné depuis Win 3.1 jusqu'à Win 98-SE mais plus sous XP.
Je peux à nouveau déplacer mes fenêtres. Merci !
13 oct. 2003 à 21:16
Aller @+ et bon prog.
11 oct. 2003 à 19:40
C'est vrai que je me suis un peu compliqué la vie !
Juste une chose, je ne pense pas que PosY en String soit adapté :
Dim PosX as Single, PosY As Single
11 oct. 2003 à 18:54
11 oct. 2003 à 13:56
Dim PosX, PosY As String
Dim Deplacement As Boolean
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PosX = X
PosY = Y
Deplacement = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Deplacement = True Then
Me.Top = Me.Top + Y - PosY
Me.Left = Me.Left + X - PosX
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Deplacement = False
End Sub
Aller @+
10 oct. 2003 à 21:31
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
mais cette methode comporte certain probleme lors des changement de focus ...
by@