抽象クラス

抽象クラス

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

【参考書】
株式会社秀和システム「作って覚えるVisualBasic2017」
著者：萩原　博之/宮崎　昭世

【抽象クラスとは】
抽象クラスとは継承されることを前提としたクラスのことで、直接インスタンスを生成できない

【サンプルプログラム】
1.画面デザインを下記のようにする


2.各ツールの配置及びプロパティの設定
①Form1にLavel、pictureBox、Textbox、Buttonなど配置
②プロパティ設定
Lavel.Text ="鳥の鳴き声を入れなさい"
pictureBox.Imageは好きな画像を入れる
Button.Text ="答え合わせ"

【クラスを作る】
1.基底・抽象クラス「鳥.vb」
2.派生クラス「カラス.vb」
3.派生クラス「キョエ.vb」


【コーデング】
1.抽象クラス「鳥.vb」
'抽象クラス
Public MustInherit Class 鳥
'変数
Public naki As String '鳴き声
'関数
Public Function Sing() As String
Return naki
End Function
End Class

2.派生クラス「カラス.vb」
'派生クラス
Public Class カラス
Inherits 鳥
Public Overloads Function Sing() As String
naki = "カァー"

Return naki
End Function

End Class

3.派生クラス「キョエ.vb」
Public Class キョエ
Inherits 鳥

Public Overloads Function Sing() As String
naki = "バカー"

Return naki
End Function
End Class

4.イベントハンドラ
「Form1.vb」
Public Class Form1
'変数宣言
Dim answer1 As String
Dim answer2 As String
'イベントハンドラ
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim ka As カラス
ka = New カラス
answer1 = TextBox1.Text


Dim kei As キョエ
kei = New キョエ
answer2 = TextBox2.Text

If (answer1 = ka.Sing And answer2 = kei.Sing) Then
MsgBox("正解")
Else
MsgBox("ボーッ生きてんじゃねよ")

End If

End Sub
End Class

5.開始

間違えると