home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Windows 95 Special 2 / WIN95_2.bin / utils / envelop / envelop.6 / Tools / Bootcamp / basic / timedchk / TIMEDCHK.ETO < prev    next >
Encoding:
Text File  |  1996-07-08  |  1.5 KB  |  63 lines
  1. Type TimedCheckBox From CheckBox
  2.   Dim timer As New Timer
  3.   Event Start
  4.   Event Finish
  5.  
  6.   ' METHODS for object: TimedCheckBox
  7.   Sub Click()
  8.     If Not timer.Enabled And Value = "Checked" Then 
  9.       SendEvent Start
  10.       timer.Enabled = True
  11.     End If
  12.   End Sub
  13.  
  14.   Sub timer_Timeout()
  15.     SendEvent Finish
  16.     Value = "Unchecked"
  17.     timer.Enabled = False
  18.   End Sub
  19.  
  20. End Type
  21.  
  22. Type TimedCheckBoxForm From SampleMasterForm
  23.   Dim TimedCheckBox1 As New TimedCheckBox
  24.  
  25.   ' METHODS for object: TimedCheckBoxForm
  26.   Sub TimedCheckBox1_Finish
  27.     Show
  28.   End Sub
  29.  
  30.   Sub TimedCheckBox1_Start
  31.     Hide
  32.   End Sub
  33.  
  34. End Type
  35.  
  36. Begin Code
  37. ' Reconstruction commands for object: TimedCheckBox
  38. '
  39.   With TimedCheckBox
  40.     .Move(0, 0, 0, 0)
  41.     With .timer
  42.     End With  'TimedCheckBox.timer
  43.   End With  'TimedCheckBox
  44. ' Reconstruction commands for object: TimedCheckBoxForm
  45. '
  46.   With TimedCheckBoxForm
  47.     .Caption := "Timed CheckBox Form"
  48.     .Move(7515, 2625, 4995, 4005)
  49.     .SampleDir := "C:\ENVELOP\bootcamp\basic\timedchk\"
  50.     .SampleName := "timedchk"
  51.     With .TimedCheckBox1
  52.       .Caption := "TimedCheckBox1"
  53.       .ZOrder := 1
  54.       .Move(1350, 1350, 2100, 450)
  55.       With .timer
  56.       End With  'TimedCheckBoxForm.TimedCheckBox1.timer
  57.     End With  'TimedCheckBoxForm.TimedCheckBox1
  58.     With .helpfile
  59.       .FileName := "C:\ENVELOP\bootcamp\basic\timedchk\timedchk.hlp"
  60.     End With  'TimedCheckBoxForm.helpfile
  61.   End With  'TimedCheckBoxForm
  62. End Code
  63.