抽象クラス
【開発環境】
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.開始
間違えると