Imaginer que vous avez une fenêtre avec la propriété BoderStyle à None, c'est à dire sans bordure et sans bare de titre (le truk bleu en haut =), mai ke vous vouliez kan mem la déplacer (tjs sans la bare de titre parcke sa fait pa bo ...)
Ben voila le but de mon source ...
Source / Exemple :
' mettez ce code dans une form et sa marche !
Private Click As Boolean ' déclaration des variables
Private ClickX As Long
Private ClickY As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Click = True ' Pour savoir si le bouton de la souris est enfoncé ou pas
ClickX = 0 ' Parcque il faut maintenir le bouton enfoncé pour déplacé =)
ClickY = 0
ClickX = X ' récupération des coordonnées de la souris lors du click
ClickY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Click = True Then 'si la souris en enfoncé
Dim VariationX As Long
Dim VariationY As Long
VariationX = X - ClickX ' calcul de la variation de déplacement de la souris sur X
VariationY = Y - ClickY ' idem sur Y
Me.Left = Me.Left + VariationX ' Attribution des nouvelles coordonées
Me.Top = Me.Top + VariationY
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Click = False ' Pour savoir lorsque la souris n'est plus enfoncé
ClickX = 0
ClickY = 0
End Sub
Conclusion :
Voila, ce n'est pas grand chose mais sa peut servir !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.