Access VBA教程:InsertLines方法

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

expression.InsertLines(Line, String)

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

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

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

说明

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

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

模块中行的编号从 1 开始。若要确定模块中的行数,请使用CountOfLines属性。

VBA示例

下面的示例新建窗体、添加命令按钮并创建该命令按钮的 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

上页:Access VBA教程:ImportXML方法 下页:Access VBA教程:InsertText方法

Access VBA教程:InsertLines方法

Access VBA教程:InsertText方法 Access VBA教程:Item方法
Access VBA教程:Line方法 Access VBA教程:Modify方法
Access VBA教程:Move方法 Access VBA教程:NewAccessProject方法
Access VBA教程:NewCurrentDatabase方法 Access VBA教程:Nz函数
Access VBA教程:OfflineConflict方法 Access VBA教程:OpenAccessProject方法
Access VBA教程:OpenConnection方法 Access VBA教程:OpenCurrentDatabase方法
Access VBA教程:OpenFunction方法 Access VBA教程:Print方法
Access VBA教程:PrintSnapshot方法 (Snapshot Viewer) Access VBA教程:PSet方法
Access VBA教程:Quit方法 Access VBA教程:Recalc方法
Access VBA教程:Refresh方法 Access VBA教程:RefreshDatabaseWindow方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号