Toolbar deplacable

Question

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

SEB83200 · Answer

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

Toolbar deplacable

1 réponse

Votre réponse

Discussions similaires