请大家帮满看下代码什么意思

来源：百度知道 编辑：UC知道 时间：2024/05/18 00:54:21
'CSEH: Syx_ErrMsgBox-Resume-Return
Public Function MakeTxtAddress() As Boolean
'<EhHeader>
On Error GoTo DoErr
MakeTxtAddress = True

'</EhHeader>
Set mStrings = Nothing
Set mStrings = New Collection

Set mStrings = LoadStrings(App.Path & "\Output\pinyin.txt")

MakeTxtAddress = WriteBin

If Not MakeTxtAddress Then
Err.Raise 600, , "拼音地址生成失败！"
End If

'<EhFooter>
Exit Function
DoErr:
If MsgBox(CStr(vbObjectError + 100) & Err.Source & vbCrLf & _
"数据下载.CDish.MakeTxtAddress" & vbCrLf & Err.Description & _
"是否继续执行？", vbYesNo) = vbYes Then
MakeTxtAddress = False
Resume Next
Else
MakeTxtAddress = False
End If
'</EhFooter>
End Function

基本解读完了~

'CSEH: Syx_ErrMsgBox-Resume-Return
Public Function MakeTxtAddress() As Boolean //声明一个子函数，并且是真假布尔类型的
'<EhHeader>
On Error GoTo DoErr //发现错误跳到DOERR处执行
MakeTxtAddress = True

'</EhHeader>
Set mStrings = Nothing //将MSTRINGS设为空，
Set mStrings = New Collection //将MSTRONGS初始为一个新的对象

Set mStrings = LoadStrings(App.Path & "\Output\pinyin.txt") //装入PINYIN.TXT文件

MakeTxtAddress = WriteBin //读取

If Not MakeTxtAddress Then //如果没有读取到就提示错误
Err.Raise 600, , "拼音地址生成失败！" //错误提示类型和内容
End If

'<EhFooter>
Exit Function //退出函数

DoErr: //这是一个
If MsgBox(CStr(vbObjectError + 100) & Err.Source & vbCrLf & _ //提示一个网络对话框
"数据下载.CDish.MakeTxtAddress" & vbCrLf & Err.Description & _
"是否继续执行？", vbYesNo) = vbYes Then
M