次の方法で共有

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 のサポートおよびフィードバックを参照してください。