1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| ' Gambas class file
PUBLIC SUB Buttons_Click() ''Look at the TextBoxes 'Action' property
IF LAST.Name ENDS "Fill" THEN
IF TextBox1.Text = "" THEN
Action["TBoxes"].Text = "Testing"
ELSE
Action["TBoxes"].Text = Str(Rand(0, 1000000))
END IF
ELSE
Action["TBoxes"].Text = ""
END IF
END
|