This exercise follows the above exercise, you should have completed it first. This example also uses the Form Editor.
Suppose you want to modify the properties of another object (say the text in a text object) when the button has been clicked.
In the Form Editor, switch back to edit mode (press Ctrl + E).
Create a new text object.
Open the text object’s properties (select and then right mouse click).
Make sure that the text item’s Object Code property reads "Text1". The Object Code property is the name that is used to refer to that object from BASIC code.
If not expanded, click on the + sign next to the Events section to expand the list.
Double-click on the EventInitialize handler function. The VBS Mini-Editor opens.
Add the following code to the EventInitialize function:
Set
This = Text1
Press the Enter key to get to a new line. On
the next line, type this code:
This.Text
= "The button has not yet been clicked"
Click the OK button to close the editor.
Once the object Text1 has been set up as described, open the property sheet for the button object added in the prior exercise.
Click the Events tab.
Double-click on the EventClick function.
Replace the basic code you added in the previous
example with the following two lines:
Line 1: MsgBox "I’ve been clicked, and am about to modify
Text1’s text"
Line 2: Text1.Text = "The button was clicked."
Click the OK button to close the VBS Mini-Editor.
Close the Property Sheet.
Switch to run mode (press Ctrl + E). The code you added to Text1’s EventInitialize function sets Text1 to initially read "The button has not yet been clicked".
Now try to click the button. The "I’ve been clicked, and am about to modify Text1’s text" message should appear. As soon as you close the message box, Text1’s text should be modified to read "The button was clicked.".
This example illustrates how the properties of any object in a form may be accessed from Basic code via the ObjectCode.property_name syntax.