Toolbar deplacable

Signaler
Messages postés
34
Date d'inscription
lundi 16 juin 2008
Statut
Membre
Dernière intervention
11 juin 2013
-
Messages postés
34
Date d'inscription
lundi 16 juin 2008
Statut
Membre
Dernière intervention
11 juin 2013
-
Bonjour,

J'aimerai réaliser une Toolbar deplacable et qui s'accroche sur les cotes Gauch, droite, en haut et en bas.

Losqu'elle est accrochée sur un cote, j'aimerai qu'elle serait verticale et lorsqu'on la decroche qu'elle soit horizontale.

Comment faire?

Merci

1 réponse

Messages postés
34
Date d'inscription
lundi 16 juin 2008
Statut
Membre
Dernière intervention
11 juin 2013

Bonjour,

J'ai avancé mais j'ai un probléme.

En effet lorsque ma barrde passe de l'horizontale au verticale, la barre reste en haut alors que le curseur lui est plus bas.

Voilà mon code, si quelqu'un aurait pourrait m'aider ce serait sympas.

Merci
-------------------------------------------
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Lors du clic et du Maintient du Bouton Enfoncé '

If Curs5 = True Then
Curs5 = False
Else
Curs5 = True
x1 = X
y1 = Y
End If

End Sub
--------------------------------------------
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Sur déplacement de la Souris'
'Action sur la source


If Curs5 = True Then
If PICTURE2.Left < 500 Or PICTURE2.Left > 15000 Then
PICTURE2.Move PICTURE2.Left + X - x1, PICTURE2.Top + Y - y1
PICTURE2.Width = 1080
PICTURE2.Height = 11175
ElseIf PICTURE2.Left > 500 < 15000 Then
With PICTURE2
PICTURE2.Move PICTURE2.Left + X - x1, PICTURE2.Top + Y - y1
.Width = 11175
.Height = 1080
End With
End If
End If
End Sub
---------------------------------------
Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Lors du relachement du Bouton de la Souris'
If Curs5 = True Then
Curs5 = False
End If

If pd > pa Then
If PICTURE2.Left < 500 Then
PICTURE2.Left = 0
PICTURE2.Top = 0
End If
End If

If pa > pd Then
If PICTURE2.Left > 15000 Then
PICTURE2.Left = 18000
PICTURE2.Top = 0
Else

End If
End If

End Sub