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 支援與意見反應。