全部显示

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

expression.InsertLines(Line, String)

expression     必需。返回“应用于”列表中的一个对象的表达式。

Line     必需 Long 型。开始插入点的行号。

String     必需 String 型。 要插入到模块的文本。

说明

在使用 InsertLines 方法时，line 参数所指定行处的任何已有代码均将向下移动。

若要一次添加多行，请在组成 string 参数的字符串中需要分行的位置包含固有常量 vbCrLf。该常量将强制换行。

模块中行的编号从 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