none
curseur modification et apparence avec vb2013 RRS feed

  • Question

  • bonjour

    je me pose une question qui est la suivante

     sur un panel je voudrais que le curseur de ma souris prenne la forme du label que j'ai dessiné il a les  dimension d'un carré de 10x10 pixels et de couleur  rouge

     je voudrais  que lorsque je passe  la souris il soit accroché et que je puisse le déplacer et connaitre sa position   en x et y

    je pense par  la location.X ou location.Y

     j'aurais besoin de votre précieuse aide et un grand merci d'avance

    jeudi 19 mai 2016 10:08

Réponses

  • Bonjour,

    j'ai ajouter un curseur dans my ressources :

    voici ce que ça donne dans form1 :


    voici mon codes :

    Public Class Form1
    
        Dim rect As New Rectangle
        Dim ps As New Point
        Dim s As New Size
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Me.Cursor = New Cursor(My.Resources.finger.GetHicon)
        End Sub
    
        Private Sub Panel1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
            Me.Panel1.SendToBack()
            s.Height = 0
            s.Width = 0
            ps = Me.Panel1.PointToClient(System.Windows.Forms.Cursor.Position)
            rect = New Rectangle(ps, s)
            Me.Panel1.Invalidate()
        End Sub
    
        Private Sub Panel1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
            If (e.Button = MouseButtons.Left) Then
                Me.Panel1.SendToBack()
                Label2.Text = e.X
                Label4.Text = e.Y
                ps = Me.Panel1.PointToClient(System.Windows.Forms.Cursor.Position)
                rect = New Rectangle(rect.Left, rect.Top, ps.X - rect.Left, ps.Y - rect.Top)
                Me.Panel1.Invalidate()
            End If
        End Sub
    
        Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
            Using Pen As Pen = New Pen(Color.Red, 5)
                e.Graphics.DrawRectangle(Pen, rect)
            End Using
        End Sub
    End Class

    cordialement,


    • Modifié zorro591 jeudi 19 mai 2016 16:36
    • Marqué comme réponse SIMONGEORGES jeudi 19 mai 2016 20:53
    jeudi 19 mai 2016 16:13

Toutes les réponses

  • Bonjour,

    j'ai ajouter un curseur dans my ressources :

    voici ce que ça donne dans form1 :


    voici mon codes :

    Public Class Form1
    
        Dim rect As New Rectangle
        Dim ps As New Point
        Dim s As New Size
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Me.Cursor = New Cursor(My.Resources.finger.GetHicon)
        End Sub
    
        Private Sub Panel1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
            Me.Panel1.SendToBack()
            s.Height = 0
            s.Width = 0
            ps = Me.Panel1.PointToClient(System.Windows.Forms.Cursor.Position)
            rect = New Rectangle(ps, s)
            Me.Panel1.Invalidate()
        End Sub
    
        Private Sub Panel1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
            If (e.Button = MouseButtons.Left) Then
                Me.Panel1.SendToBack()
                Label2.Text = e.X
                Label4.Text = e.Y
                ps = Me.Panel1.PointToClient(System.Windows.Forms.Cursor.Position)
                rect = New Rectangle(rect.Left, rect.Top, ps.X - rect.Left, ps.Y - rect.Top)
                Me.Panel1.Invalidate()
            End If
        End Sub
    
        Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
            Using Pen As Pen = New Pen(Color.Red, 5)
                e.Graphics.DrawRectangle(Pen, rect)
            End Using
        End Sub
    End Class

    cordialement,


    • Modifié zorro591 jeudi 19 mai 2016 16:36
    • Marqué comme réponse SIMONGEORGES jeudi 19 mai 2016 20:53
    jeudi 19 mai 2016 16:13
  • un grand merci

    jeudi 19 mai 2016 20:53