IBM Lotus Symphony


Función IsUnoStruct [Ejecución]

Devuelve True si el objeto dado es una estructura Uno.

Sintaxis:

IsUnoStruct( nombre de tipo Uno )

Valor de retorno:

Lógico

Parámetros:

Tipo Uno: objeto Uno

Ejemplo:

Sub Main

Dim bIsStruct

' Instanciar un servicio

Dim oSimpleFileAccess

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

bIsStruct = IsUnoStruct( oSimpleFileAccess )

MsgBox bIsStruct ' Muestra False porque oSimpleFileAccess NO es una estructura

' Instanciar una estructura de propiedad

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

bIsStruct = IsUnoStruct( aProperty )

MsgBox bIsStruct ' Muestra True porque aProperty es una estructura

bIsStruct = IsUnoStruct( 42 )

MsgBox bIsStruct ' Muestra False porque 42 NO es una estructura

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas