Module.ProcCountLines プロパティ (Access)
ProcCountLines プロパティは、標準モジュールまたはクラス モジュール内の指定したプロシージャ内の行数を返します。 取得のみ可能な Long 値です。
式。ProcCountLines (ProcName、 ProcKind)
式Module オブジェクトを表す変数。
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
ProcName | 必須 | String | モジュール内のプロシージャの名前。 |
ProcKind | 必須 | vbext_ProcKind | プロシージャの種類。 使用できる設定値については、次の「備考」を参照してください。 |
ProcKind 引数には、次のvbext_ProcKind定数のいずれかを指定できます。
定数 | 説明 |
---|---|
vbext_pk_Get | Property Get プロシージャ |
vbext_pk_Let | Property Let プロシージャ |
vbext_pk_Proc | Sub プロシージャまたは Function プロシージャ |
vbext_pk_Set | Property Set プロシージャ |
プロシージャは、プロシージャ定義の直前に置かれるコメントやコンパイル定数で始まります。プロシージャ定義は、次のいずれかで示されます。
- Sub ステートメント
- Function ステートメント
- Property Get ステートメント
- Property Let ステートメント
- Property Set ステートメント
ProcCountLines プロパティは、プロシージャ内の行数を返します。その行は ProcStartLine プロパティによって返され、プロシージャを終了する行で終わります。 このプロシージャは、End Sub、End Function、または End Property で終わります。
注意
ProcCountLines プロパティでは、Sub プロシージャと Function プロシージャは区別なく扱われ、Property プロシージャはそれぞれ区別して扱われます。
次の使用例では、指定されたプロシージャの行数をメッセージ ボックスに表示します。
Dim strForm As String
Dim strProc As String
strForm = "Products"
strProc = "Form_Activate"
MsgBox "There are " & Forms(strForm).Module.ProcCountLines(strProc, vbext_pk_Proc) & _
" lines in the " & strProc & " procedure."
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。