LOTUSSCRIPT 言語

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

構文は次の通りです。

With objectRef


End With
要素説明
objectRefオブジェクトへの参照を値として持つ式です。たとえば、objectRef は、オブジェクト参照を返す関数呼び出しまたはオブジェクト参照を含む Variant 変数を指定できます。
statements1 つ以上のステートメント。

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$

関連項目