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$

関連項目