IsUnoStruct Function

αžαŸ’αžšαž‘αž”αŸ‹ αž–αž·αž αž”αžΎβ€‹αžœαžαŸ’αžαž»β€‹αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αž•αŸ’αžαž›αŸ‹β€‹αž‚αžΊβ€‹αž‡αžΆβ€‹αžšαž…αž“αžΆβ€‹αžŸαž˜αŸ’αž–αŸαž“αŸ’αž’ Uno αž˜αž½αž™Β αŸ”

Syntax:

IsUnoStruct( Uno type )

Return value:

αž”αŸŠαžΌαž›

Parameters:

αž”αŸ’αžšαž—αŸαž‘ UnoΒ αŸ– UnoObject αž˜αž½αž™

Example:


Sub Main
Dim bIsStruct
' Instantiate a service
Dim oSimpleFileAccess
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
bIsStruct = IsUnoStruct( oSimpleFileAccess )
MsgBox bIsStruct ' Displays False because oSimpleFileAccess is NO struct
' Instantiate a Property struct
Dim aProperty As New com.sun.star.beans.Property
bIsStruct = IsUnoStruct( aProperty )
MsgBox bIsStruct ' Displays True because aProperty is a struct
bIsStruct = IsUnoStruct( 42 )
MsgBox bIsStruct ' Displays False because 42 is NO struct
End Sub

Please support us!