mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
141 lines
3.8 KiB
141 lines
3.8 KiB
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
|
|
|