🚀 go-pugleaf

I forgot to mention the following::

In the MDI Child form you could also do:

Option Explicit
Dim MyVarBB As MDIForm1
Private Sub Form_Load()
Set MyVarBB = MDIForm1 'Not Using .MyVarAA it will be the same (kinda)
'In this case MyVarAA in the MDIForm is not needed at all... 
MyVarBB.Command1.Visible = False
End Sub


On Wed, 23 Jul 2003 20:28:46 GMT, Don@home.com wrote:

>On Wed, 23 Jul 2003 21:32:56 +0200, "sjoerd" <iwi@iwi.myweb.nl> wrote:
>
>>
>>"Jan Hyde" <StellaDrinker@REMOVE.ME.uboot.com> wrote in message
>>news:ohvshvk1jgtihtm0u278gjtpskd7e2k0me@4ax.com...
>>> "sjoerd" <iwi@iwi.myweb.nl>'s wild thoughts were released on
>>> Wed, 23 Jul 2003 12:35:00 +0200 bearing the following fruit:
>>>
>>> >Hi,
>>> >
>>> >I have a problem in a MDI-project.
>>> >I declared a variable MyVarAA in frmMain.frm (Public MyVarAA) in the
>>General
>>> >Declaration section)
>>> >
>>> >I need this variable in Form1, so in the Form_Load of this form I wrote:
>>> >
>>> >MyVarBB = frmMain.MyVarAA
>>> >
>>> >When trying to run the program I get the following error:
>>> >
>>> >Run-time error 426 (only one MDI-form allowed).
>>> >
>>> >The debug-information tells me:
>>> >
>>> >frmMain.MyVarAA = <object variable or with block variable not set>
>>> >
>>> >Acoording to the book I use (Using Visual Basic 6) is this the way to do
>>it.
>>> >Error in the Book? Bug in VB? Something else?
>>> >
>>> >Thanks,
>>> >
>>> >Sjoerd
>>> >
>
>First off I don't know why you want to do it this way BUT here's something to
>look at...
>
>In the MDIForm do:
>
>Option Explicit
>Public MyVarAA As MDIForm1 'Declare an Object Varible
>
>Private Sub MDIForm_Load()
>'Just declaring it is only half the process. Have to use the
>'Set blah = blahblah to actually create the references..
>Set MyVarAA = MDIForm1 'Set the references to This Form
>End Sub
>
>Then in Form1 (MDIChild form) do:
>
>Option Explicit
>Dim MyVarBB As MDIForm1 'Declare an Object Varible (early binding)
>
>Private Sub Form_Load()
>Set MyVarBB = MDIForm1.MyVarAA 'Set the References to that in MDIForm
>'Now MyVarBB has all the references of MDIForm1
>End Sub
>
>
>Have a good day...
>
>Don

Have a good day...

Don