VB程序解释说明

Private Sub record_Click()
RecordFlag = Not RecordFlag
If RecordFlag Then
On Error GoTo cancel
CommonDialog1.DefaultExt = "dat"
CommonDialog1.Filter = "Data Files(*.dat)|*.dat|Text Files(*.txt)|*.txt"
CommonDialog1.DialogTitle = "选择要保存的文件名"

CommonDialog1.Flags = cdlOFNNoChangeDir
CommonDialog1.ShowSave

RecordFileName = CommonDialog1.FileName
record.Caption = "停止保存"
record.BackColor = vbRed

Exit Sub
Else
record.Caption = "保存数据"
record.BackColor = &H8000000F
End If
cancel:
RecordFlag = False
RecordFileName = "c:\record.dat"
End Sub

Private Sub Timer1_Timer()
sNow = Right(CStr(Now()), 8)
timelabel.Caption = sNow
DoEvents
If StartFlag Then
readdata2 husb, data(0), SampleNum
Picture1.Cls
For j = 0 To SampleNum - 1 S

Private Sub record_Click() ‘单击record控件
RecordFlag = Not RecordFlag ‘RecordFlag变量取反（未定义，recordFlag定义为布尔型）
If RecordFlag Then ‘当RecordFlag为真时执行以下代码
On Error GoTo cancel ‘以下代码出错时跳转到cancel标识处代码
CommonDialog1.DefaultExt = "dat" ‘CommonDialog控件（对话框控件，在这段代码中用于打开保存对话框，还有其他一些类似打开颜色、字体等对话框，这句代码表示默认打开格式为dat（只是显示给人类看的文字，表示某类文件(PS:dat一搬指代数据文件)，不是后缀指定为dat））
CommonDialog1.Filter = "Data Files(*.dat)|*.dat|Text Files(*.txt)|*.txt" ‘过滤器，过滤，使显示出来的文件只能为dat、txt文件
CommonDialog1.DialogTitle = "选择要保存的文件名" ‘对话框的标题

CommonDialog1.Flags = cdlOFNNoChangeDir ‘强制对话框将对话框打开时的目录置成当前目录，其他数值请查阅相关书籍

CommonDialog1.ShowSave ‘打开保存对话框

RecordFileName = CommonDialog1.FileName ‘变量RecordFileName赋值为保存对话框选中的文件
record.Caption = "停止保存" ‘record控件的caption属性设置为”停止保存”这几个文字
record.BackColor = vbRed ‘record控件的背景色设置为红色

Exit Sub ’退出record控件的单击过程