summaryrefslogtreecommitdiff
path: root/extensions/test/ole/DCOM/dcom_test
diff options
context:
space:
mode:
authorVladimir Glazounov <vg@openoffice.org>2003-05-22 08:47:04 +0000
committerVladimir Glazounov <vg@openoffice.org>2003-05-22 08:47:04 +0000
commite5f89610f22e2bae6bdb057de2a211b2c392dbf8 (patch)
tree1294ab6d6a01d9554abf9c3a3c7294434f325649 /extensions/test/ole/DCOM/dcom_test
parent4ab81d8f1465d324b7c6bc4f2f9e02eae3cb0d26 (diff)
INTEGRATION: CWS uno4 (1.2.2); FILE ADDED
2003/05/07 14:44:07 jl 1.2.2.1: *** empty log message ***
Diffstat (limited to 'extensions/test/ole/DCOM/dcom_test')
-rw-r--r--extensions/test/ole/DCOM/dcom_test/Module1.bas38
1 files changed, 38 insertions, 0 deletions
diff --git a/extensions/test/ole/DCOM/dcom_test/Module1.bas b/extensions/test/ole/DCOM/dcom_test/Module1.bas
new file mode 100644
index 000000000000..c41c3a073967
--- /dev/null
+++ b/extensions/test/ole/DCOM/dcom_test/Module1.bas
@@ -0,0 +1,38 @@
+Attribute VB_Name = "Module1"
+Option Explicit
+
+Sub main()
+
+MsgBox "hallo"
+
+'The service manager is always the starting point
+'If there is no office running then an office is started up
+Dim objServiceManager As Object
+Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
+
+'Create the CoreReflection service that is later used to create structs
+Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
+
+'Create the Desktop
+Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
+
+'Open a new empty writer document
+
+Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
+'get a type description class for Size
+Set propClass = objCoreReflection.forName("com.sun.star.beans.PropertyValue")
+
+Dim prop
+propClass.CreateObject prop
+prop.Name = "Hidden"
+prop.Value = True
+
+'create the actual object
+Dim args(0)
+Set args(0) = prop
+
+Dim args2()
+'Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)
+Set objDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args2)
+
+End Sub