VBA代码编程方法详解(十一)
时 间:2010-10-30 13:23:55
作 者:江羽 ID:3967 城市:南昌
摘 要:VBA代码编程方法详解(第十一部分)
正 文:
6.11 代码模块中删除代码操作
'过程功能:删除指定行代码
'输入参数:VBCompName (String字符串变量) 指定模块名
' StartLine 代码起始行
' LinesNum 代码行数,默认为一行
Sub DelLinesCodes (VBCompName As String, StartLine As Long, _
Optional LinesNum As Long = 1)
Dim VBProj As VBProject
Dim VBComps As VBComponents
Set VBProj = VBE.ActiveVBProject
Set VBComps = VBProj.VBComponents
VBComps(VBCompName).CodeModule.DeleteLines StartLine, LinesNum
End Sub
'******************************************************************
'调用示例一:删除"模块1"中,第一行代码
Call DelLinesCodes("模块1", 1)
'******************************************************************
'调用示例二:删除"模块1"中,从第一行到第十行代码
Call DelLinesCodes("模块1", 1, 10)
'删除指定过程代码
Public Sub DelProcCodes(VBCompName As String, VBProcName As String)
Dim VBProj As VBProject
Dim VBComps As VBComponents
Dim ProcKind As vbext_ProcKind
Set VBProj = VBE.ActiveVBProject
Set VBComps = VBProj.VBComponents
With VBComps (VBCompName).CodeModule
.DeleteLines .ProcStartLine (VBProcName, ProcKind), _
.ProcCountLines (VBProcName, ProcKind)
End With
End Sub
'******************************************************************
'调用示例:删除“模块
Call DelProcCodes ("模块1", "我的过程")
'删除指定模块中所有代码
Public Sub DelVBCompCodes (ByVal VBCompName As String)
Dim VBProj As VBProject
Dim VBComps As VBComponents
'实例对象
Set VBProj = VBE.ActiveVBProject
Set VBComps = VBProj.VBComponents
'从代码模块中第一行到最后一行执行删除
VBComps(VBCompName).CodeModule.DeleteLines 1, _
VBComps(VBCompName).CodeModule.CountOfLines
End Sub
'******************************************************************
'调用示例:删除“模块
Call DelVBCompCodes ("模块1")
6.12 添加事件过程代码操作
'过程功能:创建一个事件过程
'输入参数:VBCompNameOrIndex(Variant)部件名或索引
' strEventProc(String)事件程序
' strEventObj(String)事件对象
' strInsertCode(String)事件中欲插入代码,默认为空
Sub CreateEventProcCode (VBCompNameOrIndex As Variant, _
strEventProc As String, _
strEventObj As String, _
Optional strInsertCode As String = "")
Dim VBProj As VBProject
Dim VBComp As VBComponent
Dim CodeMod As CodeModule
Dim LineNum As Long
'实例化对象
Set VBProj = VBE.ActiveVBProject
Set VBComp = VBProj.VBComponents (VBCompNameOrIndex)
Set CodeMod = VBComp.CodeModule
With CodeMod
LineNum = .CreateEventProc (strEventProc, strEventObj)
'是否为事件添了代码,如未添加则退出
If strInsertCode = vbNullString Then Exit Sub
'从事件代码之后插入新代码
LineNum = LineNum + 1
.InsertLines LineNum, strInsertCode
End With
End Sub
'************************************************
'调用示例一:在窗体1中创建窗体加载事件,并加入代码
Dim strProcCode As String
strProcCode = Space(4) & "Msgbox " & Chr(34) & "这是创建事件代码演示!"
Call CreateEventProcCode("Form_窗体1", "Load", "Form", strProcCode)
'************************************************
'调用示例二:在窗体1中创建窗体打开事件,但不加入代码
Call CreateEventProcCode("Form_窗体1", "Open", "Form")
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)
学习心得
最新文章
- 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)
- Access日期格式的数据导出Ex...(04.28)