IBM Lotus Symphony
|
Jeśli określony obiekt jest strukturą UNO, zwracana jest wartość True (prawda).
IsUnoStruct (Typ_UNO)
Wartość boolowska
Typ_UNO: Obiekt typu UNO
Sub Main
Dim bStruktura
' Utworzenie instancji usługi
Dim oSimpleFileAccess
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
bStruktura = IsUnoStruct( oSimpleFileAccess )
MsgBox bStruktura ' Wyświetla wartość False, ponieważ element oSimpleFileAccess NIE jest strukturą
' Utworzenie instancji struktury Property
Dim aProperty As New com.sun.star.beans.Property
bStruktura = IsUnoStruct( aProperty )
MsgBox bStruktura ' Wyświetla wartość True, ponieważ element aProperty jest strukturą
bStruktura = IsUnoStruct( 42 )
MsgBox bStruktura ' Wyświetla wartość False, ponieważ wartość 42 NIE jest strukturą
End Sub