【Perl Script Laboratory】
http://www.psl.ne.jp/

---

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

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

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

・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

---

■リンク集■
【Excel VBA 入門講座】
http://excelvba.pc-users.net/index.html

【EXCEL生産性向上委員会】
http://www.excel7.com/index.htm

【Office TANAKA】
http://www.officetanaka.net/

---

■#If,#Const
【＠IT：連載：改訂版 プロフェッショナルVB.NETプログラミング　Chapter 16　プリプロセッサ】
http://www.atmarkit.co.jp/fdotnet/vb6tonet2/vbnet2_16/vbnet2_16_01.html

■#Region
似たような関数処理をブロック単位毎にグループ分けすると折り込んで畳んでしまう機能を使ったときにソースが
見やすくすることができる。

#Region "タイトル"

#End Region

【＠IT：連載：改訂版 プロフェッショナルVB.NETプログラミング　Chapter 16　プリプロセッサ】
http://www.atmarkit.co.jp/fdotnet/vb6tonet2/vbnet2_16/vbnet2_16_02.html

---

■StringFormatクラス（System.Drawing名前空間）
テキストレイアウト情報で配置や行間などを取得または設定します。
・Alignmentプロパティ
テキスト配置情報を取得または設定します。
・LineAlignmentプロパティ
行配置を取得または設定します。
・FormatFlagsプロパティ
書式情報を格納するStringFormatFlags列挙体を取得または設定します。
StringFormatFlags列挙体は、文字列の表示情報およびレイアウト情報を指定します。

DirectionRightToLeft=1
DirectionVertical=2
DisplayFormatControl=32
FitBlackBox=4
LineLimit=8192

DirectionRightToLeft：右寄せ表示。
DirectionVertical：縦書き（全角のみ表示可能？、英数字・半角カタカナは横に表示される）
DisplayFormatControl：左寄せ折返し表示。
FitBlackBox：折返して表示される。

LineLimit 書式指定用の四角形には、完全な直線だけがレイアウトされます。既定では、クリッピングの結果、テキストの末尾が表示された状態、または行が表示されなくなった状態のうち、いずれか早い方の状態になるまでレイアウトが継続します。既定の設定では、行高さの整数倍でない書式指定用四角形を用いた場合は、最後の行の一部が隠れることがあります。必ず行全体が表示されるようにするには、この値を指定した上で、少なくとも 1 つの行と高さが同じの書式指定用の四角形を使用してください。 8192
MeasureTrailingSpaces 既定では、 MeasureString メソッドから返される外接四角形によって、各行末の空白が除外されます。各行末の空白を計測に含める場合はこのフラグを設定します。 2048
NoClip グリフの突出部と書式指定用の四角形からはみ出すラップされていないテキストを表示できます。既定では、書式指定用の四角形からはみ出たテキストとグリフ部はすべてクリップされます。 16384
NoFontFallback フォールバックを無効にして、要求されたフォントでサポートされていない文字のフォントを切り替えます。欠落文字は、グリフの欠落したフォント (通常は空白の正方形) で表示されます。 1024
NoWrap 四角形内の書式指定時に、行間のテキストのラップを無効にします。このフラグは、四角形ではなく点が渡された場合、または長さゼロの行の四角形が指定された場合に暗黙的に指定されます。 4096

【StringFormat メンバ／MSDN】
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemdrawingstringformatmemberstopic.asp

■Graphicsクラス（System.Drawing名前空間）
ディスプレイデバイスに描画するためのクラス。
・FillRectangleメソッド
座標ペア（左上隅のx,y）、幅（width）、および高さ（height）で指定された四角形の内部を塗りつぶす。
FillRectangle(Brush, Rectangle)
例：
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim wRec As New Rectangle(0, 0, 50, 20)
Dim g As Graphics = e.Graphics
g.FillRectangle(Brushes.Blue, wRec)
End Sub

・DrawRectangleメソッド

【Graphics メンバ／MSDN】
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemdrawinggraphicsmemberstopic.asp

---

■VB6.0で使えたItemDataプロパティがなくなったための代用方法

【VB.NETのComboBoxでItemDataを使うには？】
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200411/04110095.txt

【VB.NETで作る! | VB6のItemDataの代用】
http://shinshu.fm/MHz/88.44/a03195/0000033677.html

---

【Programming Library - VB/VC/Delphi総合情報ページ】
http://homepage1.nifty.com/MADIA/

【MOONGIFT - オープンソースによるIT戦略支援 -】
http://www.moongift.jp/

---

Timer コントロール
Enabled プロパティ、Interval プロパティなどがそのままアップグレードされます。ただし、Interval プロパティの最小値が 「1」 であるため、この値が 「0」 のときは自動的に 「1」 に変更されます。つまり、Visual Basic 6.0 では Interval プロパティが 「0」 に設定されていたためTimerイベントが発生しなかった場合でも、1 ミリ秒ごとに Timer イベントが発生するアプリケーションに変わってしまいます。そのため、このような場合には、アップグレード後に手直しが必要になります。

【VB 6.0 ユーザーのための VB .NET 移行ガイド - 標準コントロール】
http://www.microsoft.com/japan/msdn/net/vbtransitionguide/chapter5/chapter5_4.asp

---