IBM Lotus Symphony


IsUnoStruct 関数 [実行時]

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

構文:

IsUnoStruct( Uno type name )

戻り値:

ブール型

パラメータ:

Uno type : UnoObject

例:

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


製品フィードバック | その他の資料 | 商標