home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / VCR / RECORDER.CLS < prev    next >
Encoding:
Text File  |  1997-01-26  |  866 b   |  32 lines
  1. VERSION 1.0 CLASS 
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsRecorder"
  6. Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
  7. Attribute VB_Creatable = False
  8. Attribute VB_TemplateDerived = False
  9. Attribute VB_PredeclaredId = False
  10. Attribute VB_Exposed = False
  11. Attribute VB_Customizable = False
  12. '**********************************************
  13. ' ╙├╙┌VCR ╩╛└²╙ª╙├│╠╨≥╡─└α─ú┐Θíú
  14. ' ╛═╧± VCR ╡─┬▀╝¡─ú┐Θ╥╗╤∙ú¼┤µ┤ó╩²╛▌
  15. ' ▓ó╕·╫┘┬╝╧±╡─╢»╫≈íú
  16. '**********************************************
  17.  
  18. Option Explicit
  19.  
  20. Public Channel As Integer   '┬╝╧±╡─╞╡╡└
  21. Public StartRecording As Variant    '┐¬╩╝╩▒╝Σ
  22. Public StopRecording As Variant     '╜ß╩°╩▒╝Σ
  23. Public Enabled As Boolean   '┬╝╧±─ú╩╜
  24.  
  25. Private Sub Class_Initialize()
  26.     ' │⌡╩╝╗»└α╩⌠╨╘
  27.     Enabled = True
  28.     Channel = 3
  29.     StartRecording = Empty
  30.     StopRecording = Empty
  31. End Sub
  32.