diff options
Diffstat (limited to 'source/text/sbasic/shared/03103900.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03103900.xhp | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/source/text/sbasic/shared/03103900.xhp b/source/text/sbasic/shared/03103900.xhp index f3fd1d339c..127da9c654 100644 --- a/source/text/sbasic/shared/03103900.xhp +++ b/source/text/sbasic/shared/03103900.xhp @@ -37,15 +37,19 @@ <paragraph role="paragraph" id="par_id3154285" xml-lang="en-US">Enables objects to be addressed at run-time as a string parameter using the object name.</paragraph> </section> <paragraph role="paragraph" id="par_id3147573" xml-lang="en-US">For instance, the command:</paragraph> -<paragraph role="paragraph" id="par_id3145610" xml-lang="en-US">MyObj.Prop1.Command = 5</paragraph> -<paragraph role="paragraph" id="par_id3147265" xml-lang="en-US">corresponds to the following command block:</paragraph> -<paragraph role="paragraph" id="par_id3153896" xml-lang="en-US">Dim ObjVar as Object</paragraph> -<paragraph role="paragraph" id="par_id3148664" xml-lang="en-US">Dim ObjProp as Object</paragraph> -<paragraph role="paragraph" id="par_id3150792" xml-lang="en-US">ObjName As String = "MyObj"</paragraph> -<paragraph role="paragraph" id="par_id3154365" xml-lang="en-US">ObjVar = FindObject( ObjName As String )</paragraph> -<paragraph role="paragraph" id="par_id3148453" xml-lang="en-US">PropName As String = "Prop1"</paragraph> -<paragraph role="paragraph" id="par_id3150449" xml-lang="en-US">ObjProp = FindPropertyObject( ObjVar, PropName As String )</paragraph> -<paragraph role="paragraph" id="par_id3159152" xml-lang="en-US">ObjProp.Command = 5</paragraph> +<bascode> + <paragraph role="bascode" id="par_id3145610" xml-lang="en-US">MyObj.Prop1.Command = 5</paragraph> +</bascode> +<paragraph role="bascode" id="par_id3147265" xml-lang="en-US">corresponds to the following command block:</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3153896" xml-lang="en-US">Dim ObjVar as Object</paragraph> +<paragraph role="bascode" id="par_id3148664" xml-lang="en-US">Dim ObjProp as Object</paragraph> +<paragraph role="bascode" id="par_id3150792" xml-lang="en-US">ObjName As String = "MyObj"</paragraph> +<paragraph role="bascode" id="par_id3154365" xml-lang="en-US">ObjVar = FindObject( ObjName As String )</paragraph> +<paragraph role="bascode" id="par_id3148453" xml-lang="en-US">PropName As String = "Prop1"</paragraph> +<paragraph role="bascode" id="par_id3150449" xml-lang="en-US">ObjProp = FindPropertyObject( ObjVar, PropName As String )</paragraph> +<paragraph role="bascode" id="par_id3159152" xml-lang="en-US">ObjProp.Command = 5</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3156214" xml-lang="en-US">To dynamically create Names at run-time, use:</paragraph> <paragraph role="paragraph" id="par_id3154686" xml-lang="en-US">"TextEdit1" to TextEdit5" in a loop to create five names.</paragraph> <paragraph role="paragraph" id="par_id3150868" xml-lang="en-US">See also: <link href="text/sbasic/shared/03103800.xhp" name="FindObject">FindObject</link></paragraph> |