Resize Panel at runtime?

[Kevin L]

How would I go about resizing a panel control using a mouse at runtime?

[Cor Ligthert]

Hi Kevin,

It are no panels however labels, when you try this you understand very eays
in my opinion how to do it with panels.

It needs nothing just open a new form project delete all the code and past
this in.

I hope this helps?

Cor

Public Class Form1
Inherits System.Windows. Forms.Form
Public Sub New()
MyBase.New()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub
Private components As System.Componen tModel.IContain er
Private WithEvents Label1 As New System.Windows. Forms.Label
Private WithEvents Label2 As New System.Windows. Forms.Label
Private mouseX, mouseY As Integer
Private arLabels() As Label
Dim myMousedown As String
Private Sub Form1_Load(ByVa l sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Me.ClientSize = New System.Drawing. Size(400, 400)
Label1.Name = "Label1"
Label2.Name = "Label2"
arLabels = New Label() {Label1, Label2}
Dim lblY As Integer = 100
For Each Lbl As Label In arLabels
Lbl.Location = New System.Drawing. Point(100, lblY)
Lbl.ForeColor = Color.Red
Lbl.BackColor = Color.Transpare nt
Lbl.TextAlign = ContentAlignmen t.MiddleCenter
Lbl.Text = Lbl.Location.X. ToString & "." &
Lbl.Location.Y. ToString
AddHandler Lbl.MouseDown, AddressOf Label_MouseDown
AddHandler Lbl.MouseUp, AddressOf Label_MouseUp
AddHandler Lbl.MouseMove, AddressOf Label_MouseMove
lblY += 30
Me.Controls.Add (Lbl)
Next
End Sub
Private Sub Label_MouseDown (ByVal sender As Object, ByVal _
e As System.Windows. Forms.MouseEven tArgs)
Dim lbl As Label = DirectCast(send er, Label)
myMousedown = lbl.Name
lbl.BringToFron t()
mouseX = Cursor.Position .X - lbl.Location.X
mouseY = Cursor.Position .Y - lbl.Location.Y
lbl.Cursor = Cursors.Hand
End Sub
Private Sub Label_MouseUp(B yVal sender As Object, ByVal e As _
System.Windows. Forms.MouseEven tArgs)
Dim lbl As Label = DirectCast(send er, Label)
myMousedown = ""
lbl.Cursor = Cursors.Default
End Sub
Private Sub Label_MouseMove (ByVal sender As Object, ByVal e _
As System.Windows. Forms.MouseEven tArgs)
Dim lbl As Label = DirectCast(send er, Label)
Static LastCursor As Point
Dim NowCursor As Point = New Point(Cursor.Po sition.X,
Cursor.Position .Y)
If Point.op_Inequa lity(NowCursor, LastCursor) Then
If myMousedown = lbl.Name Then
lbl.Location = New System.Drawing. Point(Cursor.Po sition.X _
- mouseX, Cursor.Position .Y - mouseY)
End If
LastCursor = Cursor.Position
lbl.Text = lbl.Location.X. ToString & "." &
lbl.Location.Y. ToString
End If
End Sub
End Class
///

[Herfried K. Wagner [MVP]]

* "Kevin L" <no_spam@not_re al_email.com> scripsit:

How would I go about resizing a panel control using a mouse at runtime?

<URL:http://divil.co.uk/net/articles/designers/hosting.asp>

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>
<URL:http://dotnet.mvps.org/dotnet/faqs/>