IsUnoStruct Function
Возвращает значение 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 НЕ является структурой
' Создание структуры свойства
Dim aProperty As New com.sun.star.beans.Property
bIsStruct = IsUnoStruct( aProperty )
MsgBox bIsStruct ' Отображает True, поскольку aProperty является структурой
bIsStruct = IsUnoStruct( 42 )
MsgBox bIsStruct ' Отображает False, поскольку 42 не является структурой
End Sub