IsUnoStruct Function

与えられたオブジェクトが Uno 構造型であれば True を返します。

構文:

IsUnoStruct( Uno type name )

戻り値:

ブール型

パラメーター:

Uno type name:Uno タイプの名前

例:

Sub Main

Dim bIsStruct

' サービスを開始

Dim oSimpleFileAccess

oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )

bIsStruct = IsUnoStruct( oSimpleFileAccess )

MsgBox bIsStruct ' oSimpleFileAccess は構造体ではないため False と表示

' Property 構造体を開始

Dim aProperty As New com.sun.star.beans.Property

bIsStruct = IsUnoStruct( aProperty )

MsgBox bIsStruct ' aProperty は構造体であるため True と表示

bIsStruct = IsUnoStruct( 42 )

MsgBox bIsStruct ' 42 は構造体ではないため False と表示

End Sub