Fair déplacer un label

Question

Bonjour/bonjour à toutes et à tous.


Je viens demander de votre aide pouru n petit projet que je réalise !

Enfaite, j'ai créer un "MenuStrip" où j'ai mis un onglet : Création, avec l'arborescence suivante : 

|-Création
|->----------- 1
|->----------- 2
|->----------- 3

Je voudrais, si possible : Lorsque je clique sur "1" un nouveau label se créer avec comme texte : "1"

Et ensuite, que je puisse le déplacer dans ma page et le palcer où je veux ! :( Mais ça fait maintenant 10 jours que j'essaye de trouver, ce qui m'est impossible >.<


Je vous remerci d'avance ! :)

cs_ShayW · Answer

Salut
   
  Private lastmouselocation As Point
   'choice1 c'est chez toi 1 
  Private Sub choice1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles choice1.Click
        Dim mylabel As New Label
        With mylabel
            .Font = New Font("arial", 12, FontStyle.Bold)
            .Text = "BLABLA"
            .BorderStyle = BorderStyle.Fixed3D
            .Location = New Point(10, 60)
            .Visible = True
        End With
        Me.Controls.Add(mylabel)

        AddHandler mylabel.MouseMove, AddressOf labelmousemove
        AddHandler mylabel.MouseDown, AddressOf labelmovedown
    End Sub  

 Private Sub labelmovedown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        lastmouselocation = e.Location
    End Sub

   

    Private Sub labelmousemove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Dim ptlabel As New Point
        ptlabel = e.Location
        If e.Button = Windows.Forms.MouseButtons.Left Then

            DirectCast(sender, Label).Left += e.Location.X - lastmouselocation.X
            DirectCast(sender, Label).Top += e.Location.Y - lastmouselocation.Y
        End If
    End Sub

spriatez · Answer

Salut à toi !


Je vais tester votre script !

MErci beaucoup !

spriatez · Answer

J'ai testé et tout :D 

Mais j'arrive pas à comprendre le "choice1 c'est chez toi 1 "

Merci :)

cs_ShayW · Answer

Mais j'arrive pas à comprendre le "choice1 c'est chez toi 1 " 

erreur de ma part

Utilisateur anonyme · Answer

Bonjour,

Voici un exemple commenté qui utilise une autre méthode que celle de ShayW que je salue au passage :
Option Strict On
Public Class Form1
    'déclaration du label à déplacer
    Dim MonLabel As Label
    'déclaration d'un point servant de base au déplacement
    Dim MonPoint As Point
    'observe qu'on peut abonner tous les toolstrip au même événement avec Handles
    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                         Handles ToolStripMenuItem2.Click, _
                                                 ToolStripMenuItem3.Click
        'instance d'un label en récupérant son texte depuis ton toolstrip
        MonLabel New Label With {.Text DirectCast(sender, ToolStripMenuItem).Text, _
                                   .BackColor = Color.Pink, _
                                   .Location = New Point(15, 30), _
                                   .BorderStyle = BorderStyle.FixedSingle
                                  }
        'ajout des abonnements aux événements Mouse...
        AddHandler MonLabel.MouseDown, AddressOf MonLabelMouseDown
        AddHandler MonLabel.MouseMove, AddressOf MonLabelMouseMove
        'ajout au formulaire
        Me.Controls.Add(MonLabel)
    End Sub

    Private Sub MonLabelMouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
        'au clic gauche, on récupère un point de base
        If e.Button = Windows.Forms.MouseButtons.Left Then
            'on ré-attibue ici MonLabel au contrôle à déplacer
            'ceci permet de reprendre n'importe quel label pour le déplacer à nouveau
            MonLabel = DirectCast(sender, Label)
            'récupération du point de base
            MonPoint = e.Location
        End If
    End Sub

    Private Sub MonLabelMouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
        'au déplacement(bouton gauche enfoncé) on calcule le point du label en se servant de Point.Subtract
        If e.Button = Windows.Forms.MouseButtons.Left Then
            MonLabel.Location = Point.Subtract(Cursor.Position, _
                                              New Size(Me.Left + MonPoint.X, _
                                              Me.Top + MonPoint.Y + SystemInformation.CaptionHeight))
        End If
    End Sub
End Class

spriatez · Answer

Salut banana32,

Un grand merci de ton script, je vais essayé aussi ! :D


Parcontre, j'essaye de faire passer le label sur un autre, mais j'y arrive pas :( il se glisse dessous, je peux faire comment s'il vous plaît ? :o

ucfoutu · Answer

Bonjour,
Tapez le texte de l'url ici.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

cs_ShayW · Answer

Bonjour

après la ligne
 Me.Controls.Add(mylabel)
 mylabel.BringToFront()

ou selon le code de Banana32 que je salue 
Me.Controls.Add(MonLabel)
MonLabel.BringToFront()

spriatez · Answer

Bonsoir ucfoutu,

Merci de l'information ! :D



Bonsoir ShayW,

Merci énormement pour le code ! :D ça marche niquel :) J'aurais bien galérer à essayer de trouver !! :p

Fair déplacer un label

9 réponses

Votre réponse

Discussions similaires