全部显示

InsertLines 方法

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

expression   必需。返回“Applies To”列表中的一个对象的表达式。

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