IsUnoStruct Function

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

Syntax:

IsUnoStruct( Тип_Uno )

Return value:

Bool

Parameters:

Тип_Uno. UnoObject

Example:


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

Please support us!