オブジェクトのメンバを参照する

特定のオブジェクトのクラスメンバに簡単にアクセスする方法として、With ステートメントを使用できます。With ステートメントを使用して、オブジェクトのメンバによる式のテストを実行することもできます。

構文は次のとおりです。

With objectRef

[ statements ]

End With

要素	説明
objectRef	オブジェクトへの参照を値として持つ式です。例えば、objectRef は、オブジェクト参照を返す関数呼び出しまたはオブジェクト参照を含む Variant 変数を指定できます。
statements	1 つ以上のステートメント。 With ステートメント自体は、最大 16 レベルまでネストできます。

要素

説明

objectRef

オブジェクトへの参照を値として持つ式です。例えば、objectRef は、オブジェクト参照を返す関数呼び出しまたはオブジェクト参照を含む Variant 変数を指定できます。

statements

1 つ以上のステートメント。

With ステートメント自体は、最大 16 レベルまでネストできます。

次の例では、With ステートメントを使用してオブジェクトのメンバを参照します。オブジェクト名 (startEmp) を表すドット表記法を使用しています。

Class Employee
   Public empName As String   
   Public newName As String
   
   '  Sub GetName prompts for and accepts input to newName.
   Sub GetName
      newName$ = InputBox$("Enter name:" , "New Name" )
   End Sub
End Class

Dim startEmp As New Employee
'  Sub SetEmp puts information into the new employee object. 
Sub SetEmp (E As Employee)
   With E
      Call .GetName  ' Prompts for input to startEmp.newName$.
      .empName$ = .newName$     
   End With
End Sub
Call SetEmp(startEmp)

With ステートメントの外で、全体の参照を指定する必要があります。以下に例を示します。

Employee.empName$ = .newName$