Fungsi IsUnoStruct

Mengembalikan True jika objek yang diberikan adalah struct Uno.

Sintaksis:

IsUnoStruct( Tipe uno )

Nilai balikan:

Bool

Parameter:

Uno Tipe : Sebuah UnoObjet

Contoh:


Sub Main
Dim bIsStruct
' Memberi contoh sebuah layanan
Dim oSimpleFileAccess
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
bIsStruct = IsUnoStruct( oSimpleFileAccess )
MsgBox bIsStruct 'Menampilkan False karena oSimpleFileAccess TIDAK memiliki struct
' Memberi contoh sebuah struct Properti
Dim aProperty As New com.sun.star.beans.Property
bIsStruct = IsUnoStruct( aProperty )
MsgBox bIsStruct 'Menampilkan True karena aProperty adalah sebuah struct
bIsStruct = IsUnoStruct( 42 )
MsgBox bIsStruct 'Menampilkan False karena BUKAN struct
End Sub

Mohon dukung kami!