Form within a form?

[Jon]

I am having a brain drought here. I used to code in VB
until about 3 years ago. I guess it's not quite like a
bicycle because man i feel dumb :)

Here, quickly, is what i am trying to accomplish...

One way or another i need a form to appear inside another
form when clicking a command button. Example...

I have a Form - we'll call it Form1 - we'll say it has a
command button.

I also have another Form - we'll call it Form2

I want it so that when i click the command button on
Form1 Form2 appears within Form1 perhaps in a frame or
any other means.

Any option or workaround is acceptable at this point as
it is not a major project.

Thanks!

[Ken Tucker [MVP]]

Hi,

Use the setparent api. Here is a link to an example which places a
form in a panel.

Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild
As IntPtr, ByVal hWndNewParent As IntPtr) As Integer

http://www.onteorasoftware.com/Visua....aspx#AnsApiQ1

Ken
------------------
"Jon" <an*******@discussions.microsoft.com> wrote in message
news:10****************************@phx.gbl...

I am having a brain drought here. I used to code in VB
until about 3 years ago. I guess it's not quite like a
bicycle because man i feel dumb :)

Here, quickly, is what i am trying to accomplish...

One way or another i need a form to appear inside another
form when clicking a command button. Example...

I have a Form - we'll call it Form1 - we'll say it has a
command button.

I also have another Form - we'll call it Form2

I want it so that when i click the command button on
Form1 Form2 appears within Form1 perhaps in a frame or
any other means.

Any option or workaround is acceptable at this point as
it is not a major project.

Thanks!

[William Ryan]

Are you talking about MDI?
"Jon" <an*******@discussions.microsoft.com> wrote in message
news:10****************************@phx.gbl...

I am having a brain drought here. I used to code in VB
until about 3 years ago. I guess it's not quite like a
bicycle because man i feel dumb :)

Here, quickly, is what i am trying to accomplish...

One way or another i need a form to appear inside another
form when clicking a command button. Example...

I have a Form - we'll call it Form1 - we'll say it has a
command button.

I also have another Form - we'll call it Form2

I want it so that when i click the command button on
Form1 Form2 appears within Form1 perhaps in a frame or
any other means.

Any option or workaround is acceptable at this point as
it is not a major project.

Thanks!

[Stac]

Not sure if it fits in with what you're doing, but could
you use panels for your different form elements and just
hide / show the panels as needed. I did this for a web app
and it works great. Or you could use the tab control and
just go to another tab?
Just a thought?
Stac

[Jon]

I am not sure if MDI is what i'm looking for but this is
what i was thinking as well. I guess i'm confused as to
how to make this work :(

I forgot to mention that i am using VB6 and the source
code available at the link provided in the other reply
won't work i don't think :(

[George Shubin]

"Jon" <an*******@discussions.microsoft.com> wrote in message
news:10****************************@phx.gbl...

I want it so that when i click the command button on
Form1 Form2 appears within Form1 perhaps in a frame or
any other means.

You can make a form become a part of the main form's controls collection:

'Load and display selected sub-form
frm = New frm_Dummy
Me.Controls.Add(frm)
'Adjust sub-form height and location
frm.Top = NavBar.Top
frm.Height = NavBar.Height
frm.Width = Me.Width - frm.Left - 10
'Display the desired form within the current form
Call ShowSubForm(frm.Tag.ToString)

Private Sub ShowSubForm(ByVal sFrmName As String)
'Bring to the front the sub-form
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is Form Then
If ctl.Tag.ToString = sFrmName.ToString Then
ctl.BringToFront()
ctl.Show()
End If
End If
Next
End Sub
--
------------------------------------------------------------------------
George Shubin Custom Software Development
dX Software Systems Database Applications
Ph: 503-981-6806 Fax: [phone]
www.dxonline.com ge****@dxonline.com
------------------------------------------------------------------------

[Herfried K. Wagner [MVP]]

* "Ken Tucker [MVP]" <vb***@bellsouth.net> scripsit:

Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild
As IntPtr, ByVal hWndNewParent As IntPtr) As Integer

http://www.onteorasoftware.com/Visua....aspx#AnsApiQ1

- or -

\\\
Dim f As New Form2()
f.TopLevel = False
Me.Panel1.Controls.Add(f)
f.Show()
///

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>

[EricJ]

..NET code won't work in VB6, working w mdi has changed 2.
The best way to get the info you need would be asking it in a .VB newsgroup

eric

"Jon" <an*******@discussions.microsoft.com> wrote in message
news:08****************************@phx.gbl...

I am not sure if MDI is what i'm looking for but this is
what i was thinking as well. I guess i'm confused as to
how to make this work :(

I forgot to mention that i am using VB6 and the source
code available at the link provided in the other reply
won't work i don't think :(