ポリモーフィズム(多能性)
【開発環境】
os:Windows 10
IDE(統合開発環境):VisualStudio 2017
言語;VB
【参考書】
株式会社秀和システム「作って覚えるVisualBasic2017」
著者:萩原 博之/宮崎 昭世
これを書くために、ググってまでするのって意味あるのかなぁ?
【ポリモーフィズム】
ポリモーフィズム(多態性)とは、同じメソッドを使って、暗黙的にさまざまなインスタンスの動作を切り替えるというものです。
例えば、オーバーライトとか、オーバーリードです。
【サンプルプログラム】
1.画面デザイン
①フレームにツールボックスから、「pictureBox」「Textbox」「Button」を選んで貼る。
2.各プロパティの設定
①画像の設定→pictureBox.Imageの右端のボタンを押して、好きな画像を選ぶ
②ボタンの設定→Button.textの欄に「鳴き声」と書く
3.クラスと派生クラスを作る
①「ポリモーフィズム」-「追加」-「クラス」をクリック
②「クラス」を選び、名前の欄に「●●.vb」と書いて、「追加」ボタンを押す
4.ソリューションエクスプローラーに表示
5.各クラスにコードを書く
◆「からす.vb」
Public Class からす
Public naki As String '鳴き声
'メソッド
Public Function Sing() As String
naki = "カァー"
Return naki
End Function
End Class
◆派生クラス「キョエ.vb」
Public Class キョエ
Inherits からす
Public Overloads Function Sing() As String
'オーバライド
naki = "バカー"
'オーバリード
Return naki
End Function
End Class
◆派生クラス「チコ.vb」
Public Class チコ
Inherits からす
Public Overloads Function Sing() As String
'オーバライド
naki = "ぼーっと生きてんじゃねーよ"
'オーバリード
Return naki
End Function
End Class
◆「Form1.vb」
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ka As からす
ka = New からす
TextBox1.Text = ka.Sing()
Dim kie As キョエ
kie = New キョエ
TextBox2.Text = kie.Sing()
Dim ch As チコ
ch = New チコ
TextBox3.Text = ch.Sing()
End Sub
End Class
6.実行
「開始」ボタンを押す