And Jürgen Schmidt answered this question around August-2005. Here is
the corrected code
for the problem ......
Sub MyReflectionTest
Dim enumeration as Object
Dim typeDescription as object
dim valueArray(0)
dim level
valueArray(0) = com.sun.star.uno.TypeClass.SERVICE
servicemgr = getProcessServiceManager()
tdmgr =
servicemgr.DefaultContext.getValueByName("/singletons/com.sun.star.reflection.theTypeDescriptionManager")
if not IsNull(tdmgr) then
enumeration =
tdmgr.createTypeDescriptionEnumeration("com.sun.star.reflection",
valueArray, 1)
if not isNull(enumeration) then
do while (enumeration.hasMoreElements)
typeDescription = enumeration.nextTypeDescription
MsgBox typeDescription.name
loop
endif
endif
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
