How to invoke a sub from the formula of the EventDrop in the Events Section.

V

Vinay

hi All,
i am working on a visio project which involves invoking
visio through VB6.

i have certain doubts regarding visio. i was browsing
through the visimation.com search forum and found your
reply to a specific mail on the Topic:How do I get Custom
Properties?

let me explain you the whole scenario.....

1) One of the component will create all the stencils from
the masters dynamicaly, taking the data of the masters
from the database and saving the stecils at a specific
location in the hard disk.

2) now i open a drawing with one of the dynamically
created stencils.

3)i will try to drop one of the masters in the stencil to
the new drawing document. This drop event should trigger a
macro that is placed in a separate component as a dll.

The above is the whole scenario.

i have done the above 1) and 2).
i have problem going ahead with the 3) task.

for the 3) task
i have created a dll containing macro functions with the
instancing property as global-multi-use.
When a particular shape from the stencil is dropped onto
any drawing, i wish to invoke one of the macro functions
from the formula of the Event Section in the shape sheet.

please advice as to how to write the formula for this
particular task?

i have written the following piece of code for this...

1.. we have created a dll called macoDLL.dll and it
contains 2 functions called functionA and functionB
functions.

2.. I have written the formula to call the functionA in
the EventDrop Cell of the Events Section in the Shapesheet
as follows

syntax =RUNADDON("projectname.macrofunction")
=RUNADDON("macroDLL.functionA")

The macroDLL is referenced in the VBA Editor of the Visio
IDE.

but we are unable to invoke the functionA. no output at
all.....

I tried by writing a macro(MYMACRO) using the Visio's
Macro wizard within the stencil and in the macro I invoked
the functionA of the macroDLL. I called this macro from
the formula of the EventDrop in the Events Section.
=RUNADDON("MYMACRO")

I was successfull to invoke the functionA from the macro
MYMACRO.

But I would like to call the dll functionA from the
formula of the EventDrop in the Events Section directly.

Also We have tried the CALLTHIS

syntax =CALLTHIS
("procedurename","projectname")
=CALLTHIS("macro1","macroDLL")


this also it is not working.
please let me know How the above to be solved preferably
programatically using the Visio Object Model.


Thanks in advance
Vinay
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top