IBM Lotus Symphony
|
Возвращает True, если указанный объект является структурой Uno.
IsUnoStruct( Тип_Uno )
Bool
Тип_Uno : UnoObject
Sub Main
Dim bIsStruct
' создать экземпляр службы
Dim oSimpleFileAccess
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
bIsStruct = IsUnoStruct( oSimpleFileAccess )
MsgBox bIsStruct ' Показывает False, так как oSimpleFileAccess не является struct
' создать экземпляр Property struct
Dim aProperty As New com.sun.star.beans.Property
bIsStruct = IsUnoStruct( aProperty )
MsgBox bIsStruct ' Показывает True, так как aProperty является struct
bIsStruct = IsUnoStruct( 42 )
MsgBox bIsStruct ' Показывает False, так как 42 не является struct
End Sub