Module.InsertLines 方法 (Access)

InsertLines 方法在标准模块或类模块中插入一行或一组行代码。

语法

表达式。InsertLines (Line、 String)

表达 一个代表 Module 对象的变量。

参数

返回值

Nothing

注解

若要添加多行，请在构成 String 参数的字符串中所需的换行符处添加内部常量 vbCrLf。 该常量将强制回车并换行。

使用 InsertLines 方法时， Line 参数指定的 行处的任何现有代码将向下移动。

在模块中的行从 1 开始编号。 要确定一个模块中的行数，请使用 CountOfLines 属性。

示例

以下示例创建一个新窗体，添加一个命令按钮，并为命令按钮创建 Click 事件过程。

Function ClickEventProc() As Boolean 
 Dim frm As Form, ctl As Control, mdl As Module 
 Dim lngReturn As Long 
 
 On Error GoTo Error_ClickEventProc 
 ' Create new form. 
 Set frm = CreateForm 
 ' Create command button on form. 
 Set ctl = CreateControl(frm.Name, acCommandButton, , , , _ 
 1000, 1000) 
 ctl.Caption = "Click here" 
 ' Return reference to form module. 
 Set mdl = frm.Module 
 ' Add event procedure. 
 lngReturn = mdl.CreateEventProc("Click", ctl.Name) 
 ' Insert text into body of procedure. 
 mdl.InsertLines lngReturn + 1, vbTab & "MsgBox ""Way cool!""" 
 ClickEventProc = True 
 
Exit_ClickEventProc: 
 Exit Function 
 
Error_ClickEventProc: 
 MsgBox Err & " :" & Err.Description 
 ClickEventProc = False 
 Resume Exit_ClickEventProc 
End Function

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。