How can I make text so that I can drag it with the mouse at run time and place it on different parts of a picture box

Posted on 2009-06-29
Last Modified: 2012-05-07
How can I drag text on to a picture box so that the user can label different parts of the picture without typing 2008 express
Question by:Dov_B
  • 2
  • 2

Expert Comment

ID: 24736975
You said text, which control label or textbox you are using. Right now i can suggest one link as per my understanding. Check the below one.
LVL 85

Accepted Solution

Mike Tomlinson earned 500 total points
ID: 24737828
Instead of drawing the text in the Paint() event, we could create actual Label controls and add them to the PictureBox:
Public Class Form1

    Public Const HTCAPTION As Integer = &H2

    Public Const WM_NCLBUTTONDOWN As Integer = &HA1

    Public Declare Auto Function ReleaseCapture Lib "user32.dll" () As Integer

    Public Declare Ansi Function DragControl Lib "user32.dll" Alias "SendMessageA" (ByVal handle As IntPtr, Optional ByVal Message As Integer = WM_NCLBUTTONDOWN, Optional ByVal HitTest As Integer = HTCAPTION, Optional ByVal wParam As Integer = 0) As Integer

    Private startPt As Point

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NewLabel("Some Thing", New Point(25, 100))

        NewLabel("Another Thing", New Point(150, 100))

        NewLabel("Thing One", New Point(250, 300))

    End Sub

    Private Sub NewLabel(ByVal txt As String, ByVal location As Point)

        Dim lbl As New Label

        lbl.Text = txt

        lbl.Location = location

        lbl.BackColor = Color.Transparent

        AddHandler lbl.MouseDown, AddressOf lbl_MouseDown

        AddHandler lbl.MouseMove, AddressOf lbl_MouseMove


        lbl.Parent = PictureBox1


    End Sub

    Private Sub lbl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

        If e.Button = Windows.Forms.MouseButtons.Left Then

            startPt = New Point(e.X, e.Y)

        End If

    End Sub

    Private Sub lbl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

        If e.Button = Windows.Forms.MouseButtons.Left Then

            Dim lbl As Label = CType(sender, Label)

            lbl.Location = New Point(lbl.Location.X + (e.X - startPt.X), lbl.Location.Y + (e.Y - startPt.Y))

        End If

    End Sub

End Class

Open in new window


Author Comment

ID: 24738127
extremely cool
say before I code the project I dont know how many labels I will need is there a way of dynamicly adding these labels at run time?
also is there a way I can do the same dragging of the labels around the picture box
but drag around smaller pictures I asked this question here
someone sent me links but I am having a heck of a time figuring out how to follow those projects is there a way of doing it the same way as the tex
LVL 85

Assisted Solution

by:Mike Tomlinson
Mike Tomlinson earned 500 total points
ID: 24738159
" there a way of dynamicly adding these labels at run time?"

Yes...I already took that into account.  Just call NewLabel() whenever you want a new label...

" there a way I can do the same dragging of the labels around the picture box...but drag around smaller pictures..." can do the exact same thing I did with Labels but with PictureBoxes.  Just create them at run-time as I did and wire up the MouseDown()/MouseMove() events.

Study the NewLabel() method to see what I'm doing in there...   =)

Author Closing Comment

ID: 31597946
woah!!! you did it again !! Thankyou! I have a couple of related questions if you get a chance

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
It’s quite interesting for me as I worked with Excel using for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now