プロパティ

　VB2010では、クラスの中にプロパティを定義することができます。このプロパティは、クラス作成者の側から見ると、メソッドのように記述をします。クラス利用者の側から見ると、フィールドのように利用できます。

プロパティのイメージ
プロパティのイメージ

プロパティ定義の書式
アクセス修飾子 Property プロパティ名 As データ型
　Get
　　フィールド取得の記述
　End Get
　Set(value As データ型)
　　フィールド設定の記述
　End Set
End Property

　修飾子ではアクセス権限を指定でき、「ReadOnly」「WriteOnly」を指定することにより、代入するか、参照するかの制限を指定することができます。

　次のプログラムが「ReadOnly」を指定した際のプログラムです。Getブロックのみ表示されます。

Public ReadOnly Property Speed As Integer
　Get

　End Get
End Property

　以下のプログラムは「WriteOnly」を指定した際のプログラムです。Setブロックのみ表示されます。

Public WriteOnly Property Speed As Integer
　Set(value As Integer)

　End Set
End Property

○　プロジェクト

　プロジェクトを作成して確認してみましょう。

プロジェクトの種類 コンソール アプリケーション
プロジェクト名 PropertyTest

サンプルダウンロード

○　作成の準備

　サンプルにプロパティを追加しましょう。それに伴い、不要になるメソッドを削除しましょう。「ConstructorTest」をコピーしてプロジェクトを作成してください。

○　プログラム

　Carクラスに次のようにプロパティの追加記述をしてください。

Car.vb

  1. Public Class Car
  2. 　'フィールド==========
  3. 　'Public _speed As Integer 'スピード情報
  4. 　Private _speed As Integer 'スピード情報(修正)
  6. 　'Public _gas As Double 'ガソリン情報
  7. 　Private _gas As Double 'ガソリン情報(修正)
  9. 　'プロパティ==========
  10. 　'スピード参照用
  11. 　Public ReadOnly Property Speed As Integer
  12. 　　Get
  13. 　　　Return Me.m_speed
  14. 　　End Get
  15. 　End Property
  17. 　'ガソリン参照・設定用
  18. 　Public Property Gas As Double
  19. 　　Get
  20. 　　　Return Me.m_gas
  21. 　　End Get
  22. 　　Set(value As Double)
  23. 　　　If Value > 0 Then
  24. 　　　　Me.m_gas = Value
  25. 　　　Else
  26. 　　　　Me.m_gas = 0
  27. 　　　End If
  28. 　　End Set
  29. 　End Property
  31. 　'コンストラクタ===========
  32. 　Public Sub New()
  33. 　　Me.New(20)
  34. 　End Sub
(そのほかの記述…)
  1. 　'初期化を行うメソッド
  2. 　'Public Sub Init(gas As Double)
  3. 　' Me.m_speed = 0
  4. 　' Me.m_gas = gas
  5. 　'End Sub
  7. 　''スピードを取得する
  8. 　'Public Function GetSpeed() As Integer
  9. 　' Return Me.m_speed
  10. 　'End Function
  12. 　''ガソリン量を取得する
  13. 　'Public Function GetGas() As Double
  14. 　' Return Me.m_gas
  15. 　'End Function
  16. End Class

○　プログラム

　オブジェクトを利用するプログラムも変更しましょう。

Form1.vb

  1. '表示用プロシージャ
  2. Private Sub showData()
  3. 　'Me.TextBox1.Text = Me.obj.m_speed()
  4. 　'Me.TextBox1.Text = Me.obj.GetSpeed
  5. 　Me.TextBox1.Text = Me.obj.Speed
  7. 　'Me.TextBox2.Text = Me.obj.m_gas()
  8. 　'Me.TextBox2.Text = Me.obj.GetGas()
  9. 　Me.TextBox2.Text = Me.obj.Gas
  10. End Sub

　プロパティを追加することにより、Carオブジェクトにとってはメソッドのように動作し、Carクラスを利用するオブジェクトからはフィールドを使うかのように利用することができるようになりました。

前へ   次へ