Déplacer un label avec la souris
calmeethumilite
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Deadly-Smurf Messages postés 74 Date d'inscription Statut Membre Dernière intervention -
Deadly-Smurf Messages postés 74 Date d'inscription Statut Membre Dernière intervention -
Bonjour, avec le code ci-dessous. j'arrive à déplacer une pictureBox avec la souris, par contre pas les Label. Quelqu'un aurait-il une idée.
Merci
Julien
Public Class Form6
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Integer, ByVal wMsg As Integer, _
ByVal wParam As Integer, ByVal lParam As String) As Integer
Private Declare Sub ReleaseCapture Lib "user32" ()
'Déplacement de la PictureBox
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Dim lHwnd As Int32
lHwnd = PictureBox1.Handle
If lHwnd = 0 Then Exit Sub
ReleaseCapture()
SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
Merci
Julien
A voir également:
- Déplacer un label avec la souris
- Déplacer colonne excel - Guide
- Quelle touche pour débloquer la souris ? - Guide
- Déplacer la barre des taches windows 11 - Guide
- Label printer logiciel - Télécharger - Outils professionnels
- Souris ordinateur - Guide
1 réponse
Bonjour Julien,
Il y as possibilité de déplacée les label à la souris en utilisant l'événement "Mouse Down" et "Mouse Move", tu devrais écrire quelque chose comme sa:
Ah oui si tu as une erreur au niveau de "Label" tu doit généré un stub de propriété, en cliquant dessus sa te le dit normalement.
Apres tout en haut de tes code tu es censé voir marque un truc comme quoi Label1 est un point.
En espérant t'avoir était utile :)
"L'habit ne fait pas le moine" avant de juger quelqu'un, apprend à le connaître ... Baka !
Il y as possibilité de déplacée les label à la souris en utilisant l'événement "Mouse Down" et "Mouse Move", tu devrais écrire quelque chose comme sa:
Private Sub Label1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
Label = e.Location
End If
End Sub
Private Sub Label1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Location += e.Location - Label
End If
End Sub
Ah oui si tu as une erreur au niveau de "Label" tu doit généré un stub de propriété, en cliquant dessus sa te le dit normalement.
Apres tout en haut de tes code tu es censé voir marque un truc comme quoi Label1 est un point.
En espérant t'avoir était utile :)
"L'habit ne fait pas le moine" avant de juger quelqu'un, apprend à le connaître ... Baka !