diff options
Diffstat (limited to 'source/text/sbasic/shared/03104500.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03104500.xhp | 34 |
1 files changed, 19 insertions, 15 deletions
diff --git a/source/text/sbasic/shared/03104500.xhp b/source/text/sbasic/shared/03104500.xhp index 88c8393dcf..6ba94e787c 100644 --- a/source/text/sbasic/shared/03104500.xhp +++ b/source/text/sbasic/shared/03104500.xhp @@ -47,25 +47,29 @@ <paragraph role="paragraph" id="par_id3146957" xml-lang="en-US" l10n="U" oldref="2">Returns True if the given object is a Uno struct.</paragraph> </section> <paragraph role="heading" id="hd_id3148538" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3155341" xml-lang="en-US" l10n="U" oldref="4">IsUnoStruct( Uno type )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3155341" xml-lang="en-US" oldref="4">IsUnoStruct( Uno type )</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148473" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3145315" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3145609" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3148947" xml-lang="en-US" l10n="CHG" oldref="8">Uno type : A UnoObject</paragraph> <paragraph role="heading" id="hd_id3156343" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="code" id="par_idN10632" xml-lang="en-US" l10n="NEW">Sub Main</paragraph> -<paragraph role="code" id="par_idN10635" xml-lang="en-US" l10n="NEW">Dim bIsStruct</paragraph> -<paragraph role="code" id="par_idN10638" xml-lang="en-US" l10n="NEW">' Instantiate a service</paragraph> -<paragraph role="code" id="par_idN1063B" xml-lang="en-US" l10n="NEW">Dim oSimpleFileAccess</paragraph> -<paragraph role="code" id="par_idN1063E" xml-lang="en-US" l10n="NEW">oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )</paragraph> -<paragraph role="code" id="par_idN10641" xml-lang="en-US" l10n="NEW">bIsStruct = IsUnoStruct( oSimpleFileAccess )</paragraph> -<paragraph role="code" id="par_idN10644" xml-lang="en-US" l10n="NEW">MsgBox bIsStruct ' Displays False because oSimpleFileAccess is NO struct</paragraph> -<paragraph role="code" id="par_idN10649" xml-lang="en-US" l10n="NEW">' Instantiate a Property struct</paragraph> -<paragraph role="code" id="par_idN1064D" xml-lang="en-US" l10n="NEW">Dim aProperty As New com.sun.star.beans.Property</paragraph> -<paragraph role="code" id="par_idN10650" xml-lang="en-US" l10n="NEW">bIsStruct = IsUnoStruct( aProperty )</paragraph> -<paragraph role="code" id="par_idN10653" xml-lang="en-US" l10n="NEW">MsgBox bIsStruct ' Displays True because aProperty is a struct</paragraph> -<paragraph role="code" id="par_idN10658" xml-lang="en-US" l10n="NEW">bIsStruct = IsUnoStruct( 42 )</paragraph> -<paragraph role="code" id="par_idN1065B" xml-lang="en-US" l10n="NEW">MsgBox bIsStruct ' Displays False because 42 is NO struct</paragraph> -<paragraph role="code" id="par_idN10660" xml-lang="en-US" l10n="NEW">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub Main</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim bIsStruct</paragraph> +<paragraph role="bascode" id="par_idN10638" xml-lang="en-US">' Instantiate a service</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim oSimpleFileAccess</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">bIsStruct = IsUnoStruct( oSimpleFileAccess )</paragraph> +<paragraph role="bascode" id="par_idN10644" xml-lang="en-US">MsgBox bIsStruct ' Displays False because oSimpleFileAccess Is NO struct</paragraph> +<paragraph role="bascode" id="par_idN10649" xml-lang="en-US">' Instantiate a Property struct</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aProperty As New com.sun.star.beans.Property</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">bIsStruct = IsUnoStruct( aProperty )</paragraph> +<paragraph role="bascode" id="par_idN10653" xml-lang="en-US">MsgBox bIsStruct ' Displays True because aProperty is a struct</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">bIsStruct = IsUnoStruct( 42 )</paragraph> +<paragraph role="bascode" id="par_idN1065B" xml-lang="en-US">MsgBox bIsStruct ' Displays False because 42 is NO struct</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> |