Google
 
Web itpro-blogger.blogspot.com
月曜日, 12月 26, 2005

オブジェクト指向

【オブジェクト指向分析/設計概論】
http://www.asahi-net.or.jp/~dp8t-asm/java/articles/OOAD/article.html

■継承とポリモーフィズム

サンプルプログラム
フォームにボタンを2つ配置する。

・Class1.vb
'スーパークラス(親クラス)
Public MustInherit Class cSuperClass
Public MustOverride Sub Msg(ByVal msg As String)
End Class

'クラス(子クラス)
Public Class cMsgBox1
Inherits cSuperClass
Public Overrides Sub Msg(ByVal msg As String)
MessageBox.Show(msg & vbCrLf & "クラス名:cMsgBox1")
End Sub
End Class

'クラス(子クラス)
Public Class cMsgBox2
Inherits cSuperClass
Public Overrides Sub Msg(ByVal msg As String)
MessageBox.Show(msg & vbCrLf & "クラス名:cMsgBox2")
End Sub
End Class


・Form1.vb
Public Class Form1

Private cClsMsgBox As cSuperClass
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cClsMsgBox = New cMsgBox1
cClsMsgBox.Msg("Button1")
cClsMsgBox = Nothing
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
cClsMsgBox = New cMsgBox2
cClsMsgBox.Msg("Button2")
cClsMsgBox = Nothing
End Sub
End Class

■参考サイト
【@IT:連載:プロフェッショナルVB.NETプログラミング 第19回 継承とポリモーフィズム】
http://www.atmarkit.co.jp/fdotnet/vb6tonet/vb6tonet19/vb6tonet19_01.html






Comments: コメントを投稿

<< Home

This page is powered by Blogger. Isn't yours?