IBM Lotus Symphony


IsUnoStruct 函数 [运行时]

如果给定的对象具有 Uno 结构,将返回 True。

语法:

IsUnoStruct( Uno type name )

返回值:

布尔值

参数:

Uno type:一个 UnoObject

示例:

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


产品反馈 | 其他文档 | 商标