継承

　継承は、インヘリタンスとも呼ばれます。既に用意されているオブジェクトを基に、機能などを追加して新たなオブジェクトを作ることができる機能です。

　プログラミング方法は、クラスを定義する際に継承の指定をします。

クラス継承の書式
Class サブクラス名
　Inherits スーパークラス名
　各種定義…
End Class

　継承の指定をしたら、スーパークラスにはないフィールドやメソッドを追加や修正する記述をします。

○　プロジェクト

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

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

サンプルダウンロード

○　作成の準備

　車クラスを基にバスクラスを定義してみましょう。スーパークラスとするCarクラスを「SharedTest2」からコピーしてください。

○　プログラム(Busクラス)

　サブクラスとしてBusクラスを作成しましょう。追加する項目は、運賃・人数をあらわすフィールドと、乗車・降車するメソッドです。

Bus.vb

  1. Public Class Bus
  2. 　Inherits Car
  3. 　'フィールド==========
  4. 　Private m_unchin As Integer '運賃情報
  5. 　Private m_cnt As Integer '乗客数情報
  7. 　'プロパティ==========
  8. 　'運賃参照用
  9. 　Public ReadOnly Property Unchin() As Integer
  10. 　　Get
  11. 　　　Return Me.m_unchin
  12. 　　End Get
  13. 　End Property
  15. 　'乗客数参照用
  16. 　Public ReadOnly Property Count() As Integer
  17. 　　Get
  18. 　　　Return Me.m_cnt
  19. 　　End Get
  20. 　End Property
  22. 　'コンストラクタ==========
  23. 　Public Sub New()
  24. 　　Me.New(100)
  25. 　End Sub
  27. 　Public Sub New(ByVal gas As Double)
  28. 　　MyBase.New(gas)
  29. 　　Me.m_unchin = 0
  30. 　　Me.m_cnt = 0
  31. 　End Sub
  33. 　'メソッド==========
  34. 　'乗車するメソッド
  35. 　Public Sub jousya(ByVal pri As Integer)
  36. 　　If Not Me.Speed = 0 Then
  37. 　　　MessageBox.Show("停車させてください。")
  38. 　　　Exit Sub
  39. 　　End If
  40. 　　If Me.m_cnt > 50 Then
  41. 　　　MessageBox.Show("満席です。")
  42. 　　　Exit Sub
  43. 　　End If
  44. 　　Me.m_unchin += pri
  45. 　　Me.m_cnt += 1
  46. 　End Sub
  48. 　'降車するメソッド
  49. 　Public Sub kousya()
  50. 　　If Me.m_cnt = 0 Then
  51. 　　　MessageBox.Show("誰も乗車していません。")
  52. 　　　Exit Sub
  53. 　　End If
  54. 　　If Not Me.Speed = 0 Then
  55. 　　　MessageBox.Show("停車させてください。")
  56. 　　　Exit Sub
  57. 　　End If
  58. 　　Me.m_cnt -= 1
  59. 　End Sub
  60. End Class

○　フォームデザイン

　利用するために、Formに次のようにコントロールを追加して、各イベントプロシージャに記述をしてください。

コントロールの配置例
コントロールの配置例

○　プログラム(Form1クラス)

　各イベントプロシージャを以下のように記述してください。

Form1.vb

  1. 'インスタンス変数
  2. Dim bus1 As Bus
  4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  5. 　'インスタンス生成
  6. 　Me.bus1 = New Bus(120)
  8. 　'表示
  9. 　Me.showData()
  10. 　Me.TextBox3.Text = 0
  11. End Sub
  13. '[アクセル]ボタンクリック
  14. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  15. 　Me.bus1.speedUp(5)
  16. 　Me.showData()
  17. End Sub
  19. '[ブレーキ]ボタンクリック
  20. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  21. 　Me.bus1.speedDown(5)
  22. 　Me.showData()
  23. End Sub
  25. '[乗車]ボタンクリック
  26. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  27. 　Me.bus1.jousya(200)
  28. 　Me.TextBox3.Text = Me.bus1.Unchin
  29. End Sub
  31. '[降車]ボタンクリック
  32. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  33. 　Me.bus1.kousya()
  34. End Sub
  36. '表示を行うプロシージャ
  37. Private Sub showData()
  38. 　Me.TextBox1.Text = Me.bus1.Speed
  39. 　Me.TextBox2.Text = Me.bus1.Gas
  40. End Sub

　Carクラスを基にBusクラスを作成しました。BusクラスはCarクラスを継承しているので、Carクラスのメンバを記述しなくても使用することができます。ただし、Privateになっているメンバは、継承したクラスでも直接アクセスすることができません。Protectedにすれば、直接操作できます。

　VB2010では、サブクラスは1つのクラスから継承することができます。複数のクラスから継承させることはできません。（多重継承の禁止）

　今回のサンプルは、停止している状態で乗車することができ、乗車すると200円売り上げが加算されます。また、定員がいっぱいになると乗車できなくなります。そして、停止している状態で降車することができ、乗客がいなくなると降車できなくなります。

前へ   次へ