InsertLines 方法

全部顯示

InsertLines 方法可在標(biāo)準(zhǔn)模塊或類模塊中插入一行或多行代碼。

expression.InsertLines(Line, String)

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

Line     必需 Long 型。開(kāi)始插入點(diǎn)的行號(hào)。

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

說(shuō)明

在使用 InsertLines 方法時(shí)，line 參數(shù)所指定行處的任何已有代碼均將向下移動(dòng)。

若要一次添加多行，請(qǐng)?jiān)诮M成 string 參數(shù)的字符串中需要分行的位置包含固有常量 vbCrLf。該常量將強(qiáng)制換行。

模塊中行的編號(hào)從 1 開(kāi)始。若要確定模塊中的行數(shù)，請(qǐng)使用 CountOfLines 屬性。

示例

下面的示例新建窗體、添加命令按鈕并創(chuàng)建該命令按鈕的 Click 事件過(guò)程：

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