How to make movable label move within its panel only

Question

0.00/5 (No votes)

See more:

Hello Sir/Mam I am having hard time searching over and over the net about moving a label within its panel. I already know how to move a label created in run time but the label keeps moving out in a panel. I tried this code on my own:

VB

If (label.Left + label.Width) = panel.Width Then
            
End If

If (label.Top + label.Height) = panel.Height Then
                
End If

But i am stuck and still don't know what to do. I hope you can give some advice's or ideas. Thanks in advance sir/mam.

Posted 7-Jan-15 2:07am

Kim Paulene Opulencia

Add a Solution

Comments

Kschuler 7-Jan-15 10:07am

Could you provide a specific example and explain when and why and how you are moving the label? Your situation is not clear. What code are you using to move it. The code you have now is just some IF statements that don't actually execute anything.

Kim Paulene Opulencia 7-Jan-15 10:14am

Im going to move a label using mouse click and drag it over within a panel and not to go out the panel when moving.

2 solutions

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

bojammis · Answer 1 · 2015-01-07T08:29:00

Solution 1

Hello Kim,
This will move a label inside the panel container. It does not check or limit the travel but you should be able to figure that out. The key to the coordinate is using the Control.PointToClient method.

VB

Public Sub New()
    'This form has a Panel container Panel1 and a Label Label1
    ' This call is required by the designer.
    InitializeComponent()
End Sub
Dim _isMoving As Boolean
Dim _pt As Point
Private Sub Label1_MouseDown(sender As Object, e As MouseEventArgs) Handles Label1.MouseDown
    _isMoving = True
    _pt = New Point(e.X, e.Y)
End Sub
Private Sub Label1_MouseUp(sender As Object, e As MouseEventArgs) Handles Label1.MouseUp
    _isMoving = False
End Sub
Private Sub Label1_MouseMove(sender As Object, e As MouseEventArgs) Handles Label1.MouseMove
    Dim pos As Point = Panel1.PointToClient(Cursor.Position)
    pos.X = pos.X - _pt.X
    pos.Y = pos.Y - _pt.Y
    If _isMoving Then
        Label1.Location = pos
    End If
End Sub

Hope that helps,

regs

ron O.

Posted 7-Jan-15 8:29am

bojammis

Comments

Kim Paulene Opulencia 7-Jan-15 20:44pm

Hi Sir thanks for your response ill try your code and ill tell you if it works on me. thanks again.

Kim Paulene Opulencia 7-Jan-15 20:53pm

Hi sir i tried it already yeah but i have the code of moving the label with mouse drag inside the panel, what my problem is it still going out to the panel.

bojammis 7-Jan-15 21:19pm

Make sure you have assigned the Parent of the label by either;
myform.controls.add(myLabel)
or
mylabel.parent = myform

Kim Paulene Opulencia 7-Jan-15 21:22pm

should i put that in form load? i put it in the load but dont work.

bojammis 7-Jan-15 22:00pm

Depends...if the label is available in the form designer - just drag the label into the panel. If you are creating the label in your code then you need to do this in the constructor after the initializeComponent() statement.

regs ron O,

Kim Paulene Opulencia 7-Jan-15 22:01pm

I already put a label inside the panel in the form designer for testing purposes. where will i put the code sir? i actually put it after the initializaComponent but still not working sir.

bojammis 8-Jan-15 11:37am

If you have a Label named label1 and a Panel named Panel1 you should be able to cut and paste the example and it should run....

Kim Paulene Opulencia 8-Jan-15 21:01pm

I paste the code and the label move but it still going out the panel. Do it still need another code for it not to go out the panel?

bojammis 9-Jan-15 14:03pm

Ok - maybe we don't have a clear understanding of "...going out of the panel..." Is it that you want the labels rectangle not to disappear as it extends into the limits of the panels rectangle shape, if the panel border style is set to "singlefixes" the label would begin to disappear as it enters the border area. Or can the label be places outside of the panel and onto the Form?

Kim Paulene Opulencia 9-Jan-15 19:59pm

The label should not go out inside the panel the rectangle of panel. The label should not disappear in the panel while it will move when it reach the limits of the panel.

bojammis 11-Jan-15 16:28pm

ok- so now you need to put on the old thinking cap - you need to write some code that adds or subtracts the area of the label that violates the requirement you just stated - let me know what that might look like.

regs

ron O.

Prince Tegaton · Answer 2 · 2015-01-07T08:47:00

Solution 2

You have to set the Label control to a parent container of which will be the panel. By so doing, it won't move out from the assigned parent.

Try out this code, not actually with my PC, writing from a mobile phone.

Label1.ParentContainer(Panel1)

Give it a go and make some corrections where needed!

Posted 7-Jan-15 8:47am

Prince Tegaton

Comments

bojammis 7-Jan-15 17:37pm

I don't think there is a member ParentContainer for the Label control;
Try
Label1.Parent = Panel1
or
Panel1.Controls.Add(Label1)

Kim Paulene Opulencia 7-Jan-15 21:00pm

i tried the code but still dont work.

How to make movable label move within its panel only

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

How to make movable label move within its panel only

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

Existing Members

...or Join us