派生クラス--Inherits関数

--クラスの継承--

【開発環境】
os:Windows 10
IDE（統合開発環境）:VisualStudio 2017
言語；VB

【参考書】
株式会社秀和システム「作って覚えるVisualBasic2017」
著者：萩原　博之/宮崎　昭世
これを書くために、ググってまでするのって意味あるのかなぁ？

【派生クラス】
既存のクラスをベースとして、新しいクラスを定義する事を継承と言い、継承によって作られるクラスを派生クラスと言う。


【サンプルコード】
・画面デザイン
1.ツールボックスにある「LabeL」「Button」をフォームに貼り付ける
2.各ツールのtextプロパティを設定する


・クラス「カラス」と派生クラス「キョエ」を作る

1.カラス.vbのコード
Public Class カラス
Public naki As String '鳴き声
Public sumika As String　'巣

Public Function Sing() As String
Return naki
End Function

Public Function Nest() As String
Return sumika
End Function

End Class

2.キョエ.vb
Public Class キョエ
Inherits カラス '派生クラス

Public tomodati As String '友達

'処理
Public Function Frind() As String
Return tomodati
End Function

End Class

3.Form1.vb
イベントハンドラ
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ka As カラス
ka = New カラス

ka.naki = "カァーカァーと鳴く"
ka.sumika = "電柱の上で"

MsgBox("不通のカラスは" + ka.sumika + ka.naki)

End Sub
イベントハンドラ
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim kie As キョエ
kie = New キョエ

kie.naki = "岡村のバカーと鳴く"
kie.sumika = "NHKのスタジオで"
kie.tomodati = "チコちゃんです。"

MsgBox("キョエちゃんの友達は" + kie.tomodati + "キョエは" + kie.sumika + kie.naki)
End Sub
End Class

4.実行



以上