IsUnoStruct Function

Возвращает значение True, если данный объект является структурой Uno.

Синтаксис:

IsUnoStruct( Тип_Uno )

Return value:

Boolean

Параметры:

Тип_Uno. UnoObject

Пример:


Sub Main
Dim bIsStruct
' Создание службы
Dim oSimpleFileAccess
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
bIsStruct = IsUnoStruct( oSimpleFileAccess )
MsgBox bIsStruct ' Отображает ЛОЖЬ, поскольку 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

Пожалуйста, поддержите нас!