Module.InsertLines メソッド (Access)
InsertLines メソッドは、標準モジュールまたはクラス モジュールに、1 行または複数行を挿入します。
構文
式。InsertLines (Line, String)
式Module オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Line | 必須 | 長整数型 (Long) | 挿入を開始する行番号を指定します。 |
String | 必須 | String | モジュールに挿入する文字列を指定します。 |
戻り値
なし
解説
複数の行を追加するには、String 引数を構成する文字列内の目的の改行に組み込み定数 vbCrLfを 含めます。 この定数は、強制的にキャリッジ リターンおよびライン フィードを実行します。
InsertLines メソッドを使用すると、Line 引数で指定された行にある既存のコードが下に移動します。
モジュール内の行番号は 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
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。