Déplacer un label avec la souris

Question

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. 


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

Deadly-Smurf · Answer

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:


 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 !

Déplacer un label avec la souris

1 réponse

Votre réponse

Discussions similaires