Form position

  • Thread starter Thread starter John
  • Start date Start date
J

John

Hi

I have a panel to which I have added several forms as follows;

form1 = New frmone
form1.TopLevel = False
Me.MyPanel.Controls.Add(form1)
form1.BringToFront()

form2 = New frmtwo
form2.TopLevel = False
Me.MyPanel.Controls.Add(form2)
form2.BringToFront()

Is there a way to know which form is currently at the top?

Thanks

Regards
 
* "John said:
I have a panel to which I have added several forms as follows;

form1 = New frmone
form1.TopLevel = False
Me.MyPanel.Controls.Add(form1)
form1.BringToFront()

form2 = New frmtwo
form2.TopLevel = False
Me.MyPanel.Controls.Add(form2)
form2.BringToFront()

Is there a way to know which form is currently at the top?
Click to expand...

Add a variable to the container form and set it to the active form if
one of the form gets, for example, clicked.
 
OK, I have dim f as form and f = form1 or f = form2 as the case maybe. Now
how can I call a procedure within either form1 or form2 using f as
reference? f.mysub() does not work.

Thanks

Regards
 
* "John said:
OK, I have dim f as form and f = form1 or f = form2 as the case maybe. Now
how can I call a procedure within either form1 or form2 using f as
reference? f.mysub() does not work.
Click to expand...

\\\
If TypeOf f Is Form1 Then
DirectCast(f, Form1).MySub()
ElseIf ... Then
...
End If
///
 
* "John said:
Thanks. Can I not have; DirectCast(f, TypeOf f).MySub() just to save on
coding?
Click to expand...

No. You can use late binding (you will have to disable 'Option
Strict'), but that's not "recommended". Or you can derive all child
form types from a common base form which defines the method or let them
implement an interface. Then you can declare the variable in the type
of that class or interface and won't need to cast.
 
Back
Top