求高手解释下VB程序

来源：百度知道 编辑：UC知道 时间：2024/06/07 08:28:04
Private Sub idm_Save_Click()
Dim Fname As String
Dim Fmt As Integer
Dim Ffix As String

CDialog1.CancelError = True
CDialog1.Filter = "MDT Files(*.mdt)|*.mdt|ACQ Files(*.acq)|*.acq|Audio Files(*.wav)|*.wav|All Files(*.*)|*.*"
On Error Resume Next
CDialog1.ShowSave
If Err = 0 Then
Fname = CDialog1.FileName
If Fname <> "" Then
Fmt = 0
Ffix = LCase(Right(Fname, 4&))
Select Case Ffix
Case ".mdt"
Fmt = 0
datvier1.SaveData Fname, Fmt
Case ".acq"
Fmt = 1
datvier1.SaveData Fname, Fmt
Case ".wav"
Fmt = 2
datvier1.SaveData Fname, Fmt
Case Else
Fmt = 0
datvier1.SaveData Fname, Fmt
End Selec

Private Sub idm_Save_Click()
Dim Fname As String'文件名
Dim Fmt As Integer'文件类型
Dim Ffix As String’文件扩展名

CDialog1.CancelError = True'公用对话框取消按钮做错误处理
CDialog1.Filter = "MDT Files(*.mdt)|*.mdt|ACQ Files(*.acq)|*.acq|Audio Files(*.wav)|*.wav|All Files(*.*)|*.*"'列出文件类别和扩展名
On Error Resume Next'出错继续向下
CDialog1.ShowSave'公用对话框显示“保存”的样式
If Err = 0 Then'如果错误代码为0
Fname = CDialog1.FileName'从公用对话框读取文件名到变量
If Fname <> "" Then'如果文件名为空
Fmt = 0'文件类型为0
Ffix = LCase(Right(Fname, 4&))'取的扩展名
Select Case Ffix'按照扩展名来分别处理
Case ".mdt"'扩展名为mdt
Fmt = 0'类型为0
datvier1.SaveData Fname, Fmt'调用一个控件的一个方法
Case ".acq"'以下同上
Fmt = 1
datvier1.SaveData Fname, Fmt
C