R
Russ Green
I have a VB.NET app that uses lots of forms which I am loading into a panel
cotrol using.....
Me.pnlMain.Controls.Clear()
frm.TopLevel = False
frm.WindowState = FormWindowState.Maximized
frm.Dock = DockStyle.Fill
frm.Anchor = AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top +
AnchorStyles.Bottom
frm.AutoSize = True
frm.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pnlMain.Controls.Add(frm)
frm.Show()
What I want to do though is have the form resize when the panel control
(which resizes with it's main form) resizes....i've tried something like the
following but it's not working....How can I do this?
Private Sub pnlMain_Resize(ByVal sender As Object, ByVal e As
System.EventArgs) Handles pnlMain.Resize
On Error Resume Next
Debug.WriteLine(Me.pnlMain.Size.Width.ToString & " x " &
Me.pnlMain.Size.Height.ToString)
Debug.WriteLine(Me.pnlMain.Controls.Item(0).Width & " x " &
Me.pnlMain.Controls.Item(0).Height)
Dim oFrm As New Form
If Me.pnlMain.Controls.Count > 0 Then
'Debug.WriteLine("There is a control in the panel " &
Me.pnlMain.Controls.Item(0).Name)
With Me.pnlMain.Controls.Item(0)
.Size = New Size(Me.pnlMain.Size.Width,
Me.pnlMain.Size.Height)
End With
End If
End Sub
cotrol using.....
Me.pnlMain.Controls.Clear()
frm.TopLevel = False
frm.WindowState = FormWindowState.Maximized
frm.Dock = DockStyle.Fill
frm.Anchor = AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top +
AnchorStyles.Bottom
frm.AutoSize = True
frm.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pnlMain.Controls.Add(frm)
frm.Show()
What I want to do though is have the form resize when the panel control
(which resizes with it's main form) resizes....i've tried something like the
following but it's not working....How can I do this?
Private Sub pnlMain_Resize(ByVal sender As Object, ByVal e As
System.EventArgs) Handles pnlMain.Resize
On Error Resume Next
Debug.WriteLine(Me.pnlMain.Size.Width.ToString & " x " &
Me.pnlMain.Size.Height.ToString)
Debug.WriteLine(Me.pnlMain.Controls.Item(0).Width & " x " &
Me.pnlMain.Controls.Item(0).Height)
Dim oFrm As New Form
If Me.pnlMain.Controls.Count > 0 Then
'Debug.WriteLine("There is a control in the panel " &
Me.pnlMain.Controls.Item(0).Name)
With Me.pnlMain.Controls.Item(0)
.Size = New Size(Me.pnlMain.Size.Width,
Me.pnlMain.Size.Height)
End With
End If
End Sub