🚀 go-pugleaf

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