home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
On Hand
/
On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso
/
00202
/
s
/
disk1
/
button.fr_
/
button.bin
Wrap
Text File
|
1993-04-28
|
2KB
|
89 lines
VERSION 2.00
Begin Form frmButton
Caption = "Test Buttons"
Height = 3210
Left = 1845
LinkTopic = "Form3"
ScaleHeight = 2805
ScaleWidth = 4755
Top = 1785
Width = 4875
Begin CommandButton cmdClose
Caption = "&Close"
Height = 495
Left = 3000
TabIndex = 1
Top = 1800
Width = 1215
End
Begin CommandButton cmdChange
Caption = "Change &Signal"
Default = -1 'True
Height = 495
Left = 600
TabIndex = 0
Top = 1800
Width = 1815
End
Begin Image imgRed
Height = 480
Left = 2160
Picture = Button.FRX:0000
Top = 720
Visible = 0 'False
Width = 480
End
Begin Image imgYellow
Height = 480
Left = 2160
Picture = Button.FRX:0302
Top = 720
Visible = 0 'False
Width = 480
End
Begin Image imgGreen
Height = 480
Left = 2160
Picture = Button.FRX:0604
Top = 720
Width = 480
End
End
Sub ChangeSignal ()
' Check to see what color the light is and change
' it to the next color. The order is green, yellow,
' and then red.
If imgGreen.Visible = True Then
imgGreen.Visible = False
imgYellow.Visible = True
ElseIf imgYellow.Visible = True Then
imgYellow.Visible = False
imgRed.Visible = True
Else
imgRed.Visible = False
imgGreen.Visible = True
End If
End Sub
Sub cmdChange_Click ()
ChangeSignal 'Call procedure.
End Sub
Sub cmdClose_Click ()
Unload Me ' Unload this form.
End Sub
Sub imgGreen_Click ()
ChangeSignal 'Call procedure.
End Sub
Sub imgRed_Click ()
ChangeSignal 'Call procedure.
End Sub
Sub imgYellow_Click ()
ChangeSignal 'Call procedure.
End Sub