おやじプログラマー日記

VB.NETのコントロールには「Tag」というプロパティがあります。この「Tag」ですが動作的には何もしないプロパティです。
何もしないプロパティは変に思われる方がいるかもしれませんが、要は何に使ってもよいと言うことです。
「Tag」プロパティはObject型として実装されていますので、何を格納しても良いことになります。
String型でもInteger型でもコンロールでも、または構造体(Struct型)でもクラスでもOKです。

■TextBoxでの例
以下は、フォーカス取得時に現在のTextプロパティの内容をTagプロパティに退避し、KeyUpイベント時の「ESC」キー押下に反応し Tagに退避してあった内容をTextに再設定し、初期値の再表示を行う様に動作するソースです。 Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter 'フォーカス取得時に現在のTextの内容をTagに保存する TextBox1.Tag = TextBox1.Text End Sub Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp If e.KeyCode = Keys.Escape Then '[ESC]キー押下時に、Tagの内容をTextに移す TextBox1.Text = TextBox1.Tag.ToString End If End Sub
■構造体を使った例
以下は、フォーカス取得時に構造体を宣言しその内容を初期化してTagプロパティに退避します。 KeyUpイベント時の「ESC」キー押下に反応しTagに退避してあった構造体の内容の「S1」をTextに再設定し、 「↑」キー押下に場合には構造体の内容の「S2」をTextに再設定します。
'テスト構造体 Structure StTest Public S1 As String Public S2 As String '初期化 Sub New(ByVal P1 As String, ByVal P2 As String) S1 = P1 S2 = P2 End Sub End Structure Private Sub TextBox2_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Enter 'Tagに構造体の実体を退避する Dim St As New StTest("AAAAA", "BBBBB") TextBox2.Tag = St End Sub Private Sub TextBox2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp If e.KeyCode = Keys.Escape Then '[ESC]キー押下時に、Tagのテスト構造体の「S1」の内容をTextに設定する Dim St As StTest St = CType(sender.Tag, StTest) 'キャスト TextBox2.Text = St.S1 ElseIf e.KeyCode = Keys.Up Then '[↑]キー押下時に、Tagのテスト構造体の「S2」の内容をTextに設定する Dim St As StTest St = CType(sender.Tag, StTest) 'キャスト TextBox2.Text = St.S2 End If End Sub
■クラスを使った例
構造体を使った例をクラスに置き換えた例で、内容は構造体の場合とほぼ同様のものです。 この例はあまりプログラム的には、毎回EnterイベントでクラスをNewしているところが良くない感じはしますが、 あくまでTagの使用例のためです。 'テストクラス Class CsTest Public S1 As String Public S2 As String '初期化 Sub New(ByVal P1 As String, ByVal P2 As String) S1 = P1 S2 = P2 End Sub End Class Private Sub TextBox3_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.Enter 'Tagにクラスを退避する Dim Cs As New CsTest("11111", "22222") TextBox3.Tag = Cs End Sub Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyUp If e.KeyCode = Keys.Escape Then '[ESC]キー押下時に、Tagのテストクラスの「S1」の内容をTextに設定する Dim Cs As CsTest Cs = CType(sender.Tag, CsTest) 'キャスト TextBox3.Text = Cs.S1 ElseIf e.KeyCode = Keys.Up Then '[↑]キー押下時に、Tagのテストクラスの「S2」の内容をTextに設定する Dim Cs As CsTest Cs = CType(sender.Tag, CsTest) 'キャスト TextBox3.Text = Cs.S2 End If End Sub