方法 : プロパティを作成する
更新 : 2007 年 11 月
プロパティは Property ステートメントと End Property ステートメントで囲まれた部分に定義します。この内部に、Get プロシージャか Set プロシージャ、またはその両方を定義します。プロパティのコードは、すべてこれらのプロシージャの内部に作成します。
Get プロシージャはプロパティの値を取得し、Set プロシージャは値を格納します。プロパティのアクセスを読み取り/書き込みにする場合は、両方のプロシージャを定義する必要があります。読み取り専用のプロパティにするには Get だけを定義し、書き込み専用のプロパティにするには Set だけを定義します。
プロパティを作成するには
プロパティやプロシージャの外側で Property ステートメント を記述し、続けて End Property ステートメントを記述します。
プロパティがパラメータを受け取る場合は、Property キーワードの後ろにプロシージャ名を指定し、続けてパラメータ リストをかっこで囲んで記述します。
かっこの後ろに As 句を記述して、プロパティの値のデータ型を指定します。データ型は、書き込み専用のプロパティの場合でも指定する必要があります。
Get プロシージャと Set プロシージャを、必要に応じて追加します。方法については、以降を参照してください。
プロパティ値を取得する Get プロシージャを作成するには
Property ステートメントと End Property ステートメントの間に Get ステートメント を記述し、続けて End Get ステートメントを記述します。Get プロシージャにパラメータを定義する必要はありません。
Get ステートメントと End Get ステートメントの間に、プロパティ値を取得するコードを定義します。このコードには、プロパティ値を生成して返す処理の他に、計算を行ったりデータを操作したりする処理を含めることができます。
プロパティの値を呼び出し元のコードに返すには、Return ステートメントを使用します。
読み取り/書き込みプロパティ、および読み取り専用プロパティを作成する場合は、Get プロシージャを記述する必要があります。書き込み専用プロパティに Get プロシージャを定義することはできません。
プロパティ値を書き込む Set プロシージャを作成するには
Property ステートメントと End Property ステートメントの間に Set ステートメント (Visual Basic) を記述し、続けて End Set ステートメントを記述します。
Set ステートメント内で、キーワード Set の後ろにパラメータ リストをかっこで囲んで指定します。このパラメータ リストには、呼び出し元のコードから渡される値を受け取るための値パラメータを、最低でも 1 つ定義する必要があります。この値パラメータの既定の名前は Value ですが、必要であれば別の名前を使うこともできます。値パラメータのデータ型は、プロパティ自体と同じであることが必要です。
Set ステートメントと End Set ステートメントの間に、値をプロパティに格納するコードを定義します。このコードには、プロパティ値を検査して格納する処理の他に、計算を行ったりデータを操作したりする処理を含めることができます。
呼び出し元のコードから渡された値を受け取るには、値パラメータを使用します。この値は、代入ステートメントに直接格納することも、格納する値を内部的に計算するために式の中で使用することもできます。
読み取り/書き込みプロパティ、および書き込み専用プロパティを作成する場合は、Set プロシージャを記述する必要があります。読み取り専用プロパティに Set プロシージャを定義することはできません。
使用例
次の例は、読み取り/書き込みプロパティを作成して、ファースト ネームとラスト ネームの 2 つの部分で構成されるフル ネームを格納します。呼び出しコードが fullName を読み込むと、Get プロシージャが 2 つの部分を組み合わせてフル ネームを返します。呼び出しコードが新しいフル ネームを代入すると、Set プロシージャはそれを 2 つの部分に分割します。フル ネームに空白が含まれない場合は、全体をファースト ネームとして格納します。
Dim firstName, lastName As String
Property fullName() As String
Get
If lastName = "" Then
Return firstName
Else
Return firstName & " " & lastName
End If
End Get
Set(ByVal Value As String)
Dim space As Integer = Value.IndexOf(" ")
If space < 0 Then
firstName = Value
lastName = ""
Else
firstName = Value.Substring(0, space)
lastName = Value.Substring(space + 1)
End If
End Set
End Property
fullName の Property プロシージャを呼び出す一般的な例は次のとおりです。最初の呼び出しでプロパティ値が設定され、2 番目の呼び出しで値が取得されます。
fullName = "MyFirstName MyLastName"
MsgBox(fullName)
参照
処理手順
方法 : 既定のプロパティを宣言する/呼び出す (Visual Basic)