Module.InsertLines 方法 (Access)
InsertLines 方法線條或程式碼插入標準模組或類別模組中。
語法
運算式。InsertLines (Line、 String)
表達 代表 Module 物件的變數。
參數
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
Line | 必要 | Long | 要開始插入的起始行號。 |
String | 必要 | String | 要插入模組中的文字。 |
傳回值
無
註解
若要新增多行,請在構成String引數的字串內所需的分行符號中包含內部常數vbCrLf。 此常數強制換行並換行符號。
當您使用 InsertLines 方法時, Line 引數所指定行的任何現有程式碼都會向下移動。
模組之中行號是一個開頭。 若要判斷在模組中的行數,請使用 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 支援與意見反應。