用代码注释指定过程或函数的代码-叶海峰
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


用代码注释指定过程或函数的代码

发表时间:2013/11/27 16:36:17 评论(0) 浏览(3344)  评论 | 加入收藏 | 复制
   
摘 要:在窗体间传递参数的几种常用方法
正 文:

回答网友 布鲁斯 论坛发帖的问题

http://accessoft.com/bbs/showtopic.asp?id=20242 

代码如下:


Public Sub AutoMarkCodes(ModuleName, ProcName)

'----------------------------------------------------------------
' Procedure : AutoMarkCodes
' DateTime  : 2013-11-26 15:22
' Author    : 叶海峰
' ModuleName:模块名
' Procname  :过程或函数名
' 调用方法: Call AutoMarkCodes 模块名,过程名
' 注:该方法只适用于标准模块(包括窗体,报表中的过程等等),不适用与类模块,窗体模块名为 Form_窗体名,报表为Report_报表名
    Dim mymodule As Module
    Dim str    As String
    Dim i
    Dim startline
    Dim endline

    Set mymodule = Application.Modules(ModuleName)

    With mymodule
        startline = .ProcBodyLine(ProcName, vbext_pk_Proc) + 1
        endline = .ProcCountLines(ProcName, vbext_pk_Proc)
        For i = startline  To startline + endline
        If .Lines(i, 1) Like "*End Sub*" Or .Lines(i, 1) Like "*End Function*" Then Exit For
            .ReplaceLine i, "'" & .Lines(i, 1)
        Next
    End With
End Sub


Sub test()
AutoMarkCodes "模块1", "DataBaseInfo"
End Sub


Access软件网交流QQ群(群号:198465573)
 
 相关文章
Indent2K代码格式化工具介绍  【竹笛  2007/12/5】
在access VBA中如何快速设置和解除注释块,如何一下子将VB...  【叶杨山  2008/1/13】
FAQ:Visual Basic 如何注释一段较长程序代码?   【UMVSOFT整理  2008/4/26】
VBA代码中绿色部分注释及注释符的用意\注释符用法  【麥田  2009/7/29】
Access中SQL查询语句可以注释吗? sql不支持注释符  【麥田  2012/12/12】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

叶海峰

文章分类

文章存档

友情链接