diff options
author | Vladimir Glazounov <vg@openoffice.org> | 2003-05-22 08:47:04 +0000 |
---|---|---|
committer | Vladimir Glazounov <vg@openoffice.org> | 2003-05-22 08:47:04 +0000 |
commit | e5f89610f22e2bae6bdb057de2a211b2c392dbf8 (patch) | |
tree | 1294ab6d6a01d9554abf9c3a3c7294434f325649 /extensions/test/ole/DCOM | |
parent | 4ab81d8f1465d324b7c6bc4f2f9e02eae3cb0d26 (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')
-rw-r--r-- | extensions/test/ole/DCOM/dcom_test/Module1.bas | 38 |
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 |