recorder.cls

该文件包含一些关于软件的知识,里面有一些比较经典的东西,值得大家去卡看.

VERSION 1.0 CLASS 
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsRecorder"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_Creatable = False
Attribute VB_TemplateDerived = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Customizable = False
'**********************************************
' 用于 VCR 示例应用程序的类模块。
' 就像 VCR 的逻辑模块一样，存储数据
' 并跟踪录象的动作。
'**********************************************

Option Explicit

Public Channel As Integer   '录像的频道
Public StartRecording As Variant    '开始时间
Public StopRecording As Variant     '结束时间
Public Enabled As Boolean   '录象模式

Private Sub Class_Initialize()
    ' 初始化类属性
    Enabled = True
    Channel = 3
    StartRecording = Empty
    StopRecording = Empty
End Sub