blob: 417aac1283e61100899e763cf245c018c4e7bf70 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
VERSION 2.00
Begin Form Form1
Caption = "This is a Disptest application"
ClientHeight = 3915
ClientLeft = 1995
ClientTop = 2115
ClientWidth = 7500
Height = 4320
Left = 1935
LinkTopic = "Form1"
ScaleHeight = 3915
ScaleWidth = 7500
Top = 1770
Width = 7620
Begin CommandButton btnGetHelloValue
Caption = "Get Hello's Value"
Height = 500
Left = 240
TabIndex = 9
Top = 3200
Width = 2000
End
Begin TextBox txtSetHelloMsg
Height = 285
Left = 4300
TabIndex = 4
Top = 2205
Width = 3000
End
Begin CommandButton btnSetHelloMsg
Caption = "Set Hello Message"
Height = 500
Left = 195
TabIndex = 3
Top = 2205
Width = 2000
End
Begin CommandButton btnGetHelloMsg
Caption = "Get Hello Message"
Height = 500
Left = 200
TabIndex = 2
Top = 1200
Width = 2000
End
Begin PictureBox picOutput
Height = 735
Left = 4300
ScaleHeight = 705
ScaleWidth = 2970
TabIndex = 1
Top = 195
Width = 3000
End
Begin CommandButton btnSayHello
Caption = "Say Hello"
Height = 500
Left = 200
TabIndex = 0
Top = 200
Width = 2000
End
Begin Label lblHelloValue
BorderStyle = 1 'Fixed Single
Height = 260
Left = 4300
TabIndex = 11
Top = 3200
Width = 3000
End
Begin Label zLabel
Alignment = 1 'Right Justify
Caption = "Hello's' value:"
Height = 255
Index = 3
Left = 2280
TabIndex = 10
Top = 3195
Width = 1935
End
Begin Label zLabel
Alignment = 1 'Right Justify
Caption = "New Hello message:"
Height = 255
Index = 2
Left = 2300
TabIndex = 8
Top = 2205
Width = 1940
End
Begin Label zLabel
Alignment = 1 'Right Justify
Caption = "Hello message:"
Height = 255
Index = 1
Left = 2300
TabIndex = 7
Top = 1200
Width = 1940
End
Begin Label zLabel
Alignment = 1 'Right Justify
Caption = "Output pane:"
Height = 255
Index = 0
Left = 2300
TabIndex = 6
Top = 195
Width = 1940
End
Begin Label lblGetHelloMsg
BorderStyle = 1 'Fixed Single
Height = 260
Left = 4300
TabIndex = 5
Top = 1200
Width = 3000
End
End
Dim MyObj As object
Sub btnGetHelloMsg_Click ()
lblGetHelloMsg.Caption = MyObj.HelloMessage
End Sub
Sub btnGetHelloValue_Click ()
lblHelloValue.Caption = MyObj
End Sub
Sub btnSayHello_Click ()
picOutput.Print MyObj.SayHello
End Sub
Sub btnSetHelloMsg_Click ()
MyObj.HelloMessage = txtSetHelloMsg.Text
End Sub
Sub Form_Load ()
Set MyObj = CreateObject("hello.application")
End Sub
|