VBA代码编程方法详解(八)
时 间:2010-10-29 23:54:21
作 者:江羽坛 ID:3967 城市:南昌
摘 要:VBA代码编程方法详解(第八部分)
正 文:
6.5 获取过程代码行数信息
'函数功能:获得指定过程总的代码行数(含过程中的所有空行及注释)
Public Function TotalCodeLinesInProc(CompsNameOrIndex, _
strProcName As String, _
Optional ProcKind As vbext_ProcKind = 0) As Long
Dim VBProj As VBProject '工程对象
Dim VBComp As VBComponent '部件对象
Dim CodeMod As CodeModule '代码模块
'设定为当前工程
Set VBProj = VBE.ActiveVBProject
'设定为指定部件
Set VBComp = VBProj.VBComponents(CompsNameOrIndex)
'设定为指定部件代码模块
Set CodeMod = VBComp.CodeModule
'过程计数输出
TotalCodeLinesInProc = CodeMod.ProcCountLines(strProcName, ProcKind)
End Function
'******************************************************************
'调用示例:获得部件"bas_ProcInfo"模块中,"ShowProcedureInfo"过程总行数
Debug.Print TotalCodeLinesInProc("bas_ProcInfo", "ShowProcedureInfo")
'函数功能:获得指定过程代码起始行(从过程之上的空行和注释计算)
Public Function StartLineInProc (CompsNameOrIndex, _
strProcName As String, _
Optional ProcKind As vbext_ProcKind = 0) As Long
Dim VBProj As VBProject
Dim VBComp As VBComponent
Dim CodeMod As CodeModule
Set VBProj = VBE.ActiveVBProject
Set VBComp = VBProj.VBComponents (CompsNameOrIndex)
Set CodeMod = VBComp.CodeModule
StartLineInProc = CodeMod.ProcStartLine(strProcName, ProcKind)
End Function
'******************************************************************
'调用示例:获得部件"bas_ProcInfo"模块中,"ShowProcedureInfo"过程起始行号
Debug.Print StartLineInProc ("bas_ProcInfo", "ShowProcedureInfo")
'函数功能:获得过程第一行代码行(从过程的实际代码行计算,不含过程之上空行和注释)
Public Function CodeBodyLineInProc (CompsNameOrIndex, _
strProcName As String, _
Optional ProcKind As vbext_ProcKind = 0) As Long
Dim VBProj As VBProject
Dim VBComp As VBComponent
Dim CodeMod As CodeModule
Set VBProj = VBE.ActiveVBProject
Set VBComp = VBProj.VBComponents(CompsNameOrIndex)
Set CodeMod = VBComp.CodeModule
CodeBodyLineInProc = CodeMod.ProcBodyLine(strProcName, ProcKind)
End Function
'******************************************************************
'调用示例:获得部件"bas_ProcInfo"模块中,"ShowProcedureInfo"过程实际起始行号
Debug.Print CodeBodyLineInProc ("bas_ProcInfo", "ShowProcedureInfo")
'函数功能:获得指定过程实际代码行数(不包含空行和注释行)
Public Function CodeLinesInProc(ByVal CompsNameOrIndex, _
ByVal strProcName As String, _
Optional ProcKind As vbext_ProcKind = 0) As Long
Dim VBProj As VBProject
Dim VBComp As VBComponent
Dim CodeMod As CodeModule
Dim ProcStart As Long '代码起始行
Dim ProcTotal As Long '代码总行数
Dim I As Integer '循环变量
Dim strCode As String '代码
Dim LineCount As Long '行计数变量
实例化对象
Set VBProj = VBE.ActiveVBProject
Set VBComp = VBProj.VBComponents(CompsNameOrIndex)
Set CodeMod = VBComp.CodeModule
'获取开始行号和总行数
ProcStart = CodeMod.ProcStartLine (strProcName, ProcKind)
ProcTotal = CodeMod.ProcCountLines(strProcName, ProcKind) + ProcStart
For I = ProcStart To ProcTotal
'将代码赋值给字符串变量
strCode = CodeMod.Lines(I, 1)
'跳过空行和注释行
If Trim (strCode) = vbNullString or Left (Trim (strCode), 1) = Chr (39) Then
Else
LineCount = LineCount + 1
End If
Next I
'实际行数输出
CodeLinesInProc = LineCount
End Function
'******************************************************************
'调用示例:获得部件"bas_ProcInfo"模块中,"ShowProcedureInfo"过程实际行数
Debug.Print CodeLinesInProc ("bas_ProcInfo", "ShowProcedureInfo")
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 附件字段如何判断myPictrue...(05.13)
- Access链接表SQL SERV...(05.11)
- Access快速开发平台企业版--...(05.09)
- 新版铁路工程管理系统V2.0(05.08)
- Access快速开发平台企业版--...(05.07)
- 【Access Call用法学习】...(05.06)
- access软件网站长张志简介 (05.05)
- 精美简单实用的系统面板(05.03)
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)