| Next
End Function
3、注译
程序的注译越详尽，越仔细越好。以下提及的，必须加注译。
程序中声明的每一个变量，能加上注译最好，至少用来运算或者保存关键数据的变量必须加上注译。
对于每一段逻辑上实现某个基本功能的几句代码，最好在其上一行加上简单注译。
对于每一个自定义的函数，不管大小都必须加上注译，而且注译的格式如下：
''''******************************************************
''''
''''函数所实现的功能
''''函数的参数1的含义：XXXXX
''''函数的参数2的含义：XXXXX
''''……
''''函数返回值所代表的错误信息：XXXXX（函数尽可能声明为Function，不要声明为Sub，
''''函数的返回值为0表示执行成功，为其它值表示执行失败）
''''
''''******************************************************
Public(Private) Function ForExample(……………………) As Long
''''…………………………………………
End Function
4、错误处理（未定）
在Main()函数或主窗体Load过程中添加如下代码：
''''******************************************************
''''
''''打开错误日志文件，在Form_Unload()中关闭
''''
''''******************************************************
Dim strExePath As String
If Right(App.Path, 1) = "\" Then
strExePath = App.Path
Else
strExePath = App.Path & "\"
End If
intErrLogFileHandle = FreeFile()
Open strExePath + "Err.log" For Append Shared As intErrLogFileHandle
在主窗体退出函数中添加如下代码：
''''******************************************************
''''
''''关闭错误日志文件
''''
''''******************************************************
Close #intErrLogFileHandle
在某个Module中添加：
''''******************************************************
''''
''''写入错误日志
''''
''''******************************************************
Public Sub WriteErrLogFile(ByVal strSub As String, ByVal strErr As String)
Print #intErrLogFileHandle, Date, Time, strSub, strErr
End Sub
在每个过程或自定义的函数中，使用如下的系统错误捕获机制：
Public Function ForExample(…………) As Long
On Error Goto FuncError
ForExample=True
………………………
………………………
Exit Function
FuncError:
ForExample=False
WriteErrLogFile " ForExample ", "错误号：" & Err.Number & "，错误源：" & Err.Source & "，错误描述：" & Err.Description
MsgBox "……… ", vbCritical
''''在此作内存资源回收工作
End Function
上一页 [1] [2] [3] | 
