Sending the name of a control to a module *Resolved*

[Elminster]

Hey guys!

I have a form and a module.

My form have an object called flash and my module have a function.

I am trying to send trought the function the name of the object, but I am not having success... Nothing is happening. Nor even an error.

In my form I have the following function call:

PegaFlash 101, "CUSTOM", "logo.swf", Me, Flash


In my module I have the following function:

Public Sub PegaFlash(i As Integer, swf As String, arquivo As String, F As Form, O As Object)

.
. codes...
.
F.O.Movie = sEnv & arquivo

End Sub



The F variable is getting correctly the name of the form that I passed. But the Object flash is not being received by the function..

If I change the last code to the following:

F.Flash.Movie = Senv & arquivo

everything will run fine...

What am I doing wrong?

Thanks in advance,

Elminster

[Dave Bleby]

Have you tried passing F.Flash.Movie as one parameter i.e. the object rather than as separate parameters?

Good luck,

Dave.

[TOMERP]

IF YOU CAN GET IT BY WRITING F.Flash.Movie IT IS A WASTE TO TRANSFER THOSE ARGUMENTS. LEAVE IT THIS WAY, NO?
IF YOU INSISTE - I THINK THE PROBLEM IS THAT YOU SHOULD USE THE "SET" IN ORDER TO TELL THE MECHINE THAT O IS REFERING TO THE CONTROL ON F FORM.
SO TRY:

DIM OO AS OBJECT
SET OO= Flash
PegaFlash 101, "CUSTOM", "logo.swf", Me, OO

OR

MAYBE YOU SHOULD USE A SPECIFIC VAIREBLE TYPE:

Public Sub PegaFlash(i As Integer, swf As String, arquivo As String, F As Form, O As Flash Type)

[Elminster]

Thanks for the answers guys!

I tryed the 3 ways but no one works...

I need to send the object trought the function because in some cases I will have more than one shockwave object in a form, so if I dont do that I will have to write a new function for every new object in a form that I use after the first.. =-(

Thanks guys

Elminster

[Elminster]

I make a new way to resolve that.

I create an index control for flash.. Sou I just pass the index..
I dont need to create more functions for each control anymore

Thanks for your help guys!

Elminster