IBM Lotus Symphony


Функция IsUnoStruct [встроенная]

Возвращает 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


Комментарии по продукту | Дополнительная документация | Товарные знаки