summaryrefslogtreecommitdiff
path: root/extensions/test/ole/EventListenerSample/events.htm
diff options
context:
space:
mode:
authorJoachim Lingner <jl@openoffice.org>2001-11-28 08:30:16 +0000
committerJoachim Lingner <jl@openoffice.org>2001-11-28 08:30:16 +0000
commit9cd85f2543d56d4efbdac6382f248ae2ac482130 (patch)
tree59b39c2255d85cf4b87298e79c2fbb245f274b43 /extensions/test/ole/EventListenerSample/events.htm
parent7f0798b36d6541891b629341abf2b436b348d5d7 (diff)
*** empty log message ***
Diffstat (limited to 'extensions/test/ole/EventListenerSample/events.htm')
-rw-r--r--extensions/test/ole/EventListenerSample/events.htm18
1 files changed, 15 insertions, 3 deletions
diff --git a/extensions/test/ole/EventListenerSample/events.htm b/extensions/test/ole/EventListenerSample/events.htm
index be6d9aa2dfd0..a9ac88bd11ec 100644
--- a/extensions/test/ole/EventListenerSample/events.htm
+++ b/extensions/test/ole/EventListenerSample/events.htm
@@ -42,7 +42,7 @@ function XEventListener_disposing( source)
</script>
<script language="VBScript">
-SUB MainVB()
+SUB MainVB( id)
Set objServiceManager= CreateObject("com.sun.star.ServiceManager")
Set objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
@@ -53,7 +53,13 @@ Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop")
Dim args()
Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)
-Set eventListener= CreateObject("EventListener.EvtListener")
+Dim eventListener
+select case id
+ case 0
+ Set eventListener= CreateObject("EventListener.EvtListener")
+ case 1
+ Set eventListener= CreateObject("VBasicEventListener.VBEventListener")
+end select
objDocument.addEventListener eventlistener
END SUB
@@ -79,7 +85,13 @@ is written in C++ and housed in a dll. Then the event listener is added to the d
The button runs VBScript code that creates the components EventListener.EvtListener and adds it
to the document.
</p>
-<button onclick='MainVB()'>VBScript</Button>
+<button onclick='MainVB(0)'>VBScript</Button>
+<p>
+Runs VBScript code that creates VBasicEventListener.VBEventListener ActiveX component which was
+written with VB
+</p>
+<button onclick='MainVB(1)'>VBScript</Button>
+
</body>
</html>