Code Helper1.0 -- VB外接程序

Question

http://www.nettoolx.com/progame//resource/codehelper.zip使用说明： 先regsvr32 codehelper.dll进行注册外接程序
确保codehelper.ini和dll同一目录
新打开一个VB程序，可在外接程序菜单下面看到Code Helper子菜单
打开代码窗口，右键可弹出Code Helper集成到Code Window的快捷菜单命令说明：
add module header:添加模块级头部注释
add procedure header:添加过程级头部注释其它右键菜单： outdent:indent的反操作，indent可通过tab键实现
comment block:注释当前选中的代码块
uncomment block:反注释当前选中的代码块
替代宏说明：
@d 日期
@t 时间
@w 作者
@o 组织名
@n 函数或过程或属性名
@p 参数
@e 参数类型
@f 可选参数之前置字符串
@m 模块名称
@y 模块类型标识
@r 过程或属性标识
各种模块的通用名称:
form 你在注释中要显示的@y名称，如：窗体
module 如：模块
class module 如：类模块
usercontrol 如：控件
propertypage 如：属性页
对于过程和属性的命名：
procedure 如：过程
property 如：属性
swap assignment说明：
交换=两边的对象
对if do select 和定义声明和注释不生效增加模块说明示例:
模板：
'**************************************************************
'*@r名称：@n
'*@y名称：@m
'*功能：
'*传入参数：
'*    @p    类型：@e   @f
'*返回参数：
'*
'*作者：@w
'*日期：@d  @t
'*公司：@o
'**************************************************************
函数：
Public Function FmtStr(str As String, oCodeMod As CodeModule, _
                        procName As String, _
                        aParam() As String, paramCnt As Integer, _
                        Optional bProc As Boolean = True) As String结果：
'**************************************************************
'*过程名称：FmtStr
'*模块名称：ModFunction
'*功能：
'*传入参数：
'*    str         类型：String
'*    oCodeMod    类型：CodeModule
'*    procName    类型：String
'*    aParam      类型：String
'*    paramCnt    类型：Integer
'*    bProc       类型：Boolean      可选　默认值为True
'*返回参数：
'*
'*作者：progame
'*日期：2002-9-6  9:28:56
'*公司：Nothing
'**************************************************************
over