プログラム

テキストボックスにデータを入力し、[Enter]キーを押すと次のコントロールに移動する。という仕組みは頻繁に使います。

VB6(Visual Studio 6)では、フォームのデザイン時にこの動作を設定することができましたが、.NETではデザイン時でのこの設定がなくなっています（タブキーでの移動はあります）。

（以下のコードは実際に動作していますが、説明の邪魔になる部分を削除したり手を加えています。従ってこのままでは正しく動作しないことがあります。当ブログのコードは今後とも同様です。
掲載しますコードはベストだと思っているわけではありません。私たちの試行錯誤の結果、ともかく要求機能を満足するものです。
コードがもし読者の皆さんのお役に立つのであれば、コードのダウンロードを別途検討したいと思います。）

プログラムでコントロールの[KeyUp]イベントハンドラーで、[Enter]キーが押されたら、次のコントロールに移動するコードを書きます。

    Public Shared Sub SimpleKeyUp(ByVal sender As Object, _
                  ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyValue = Keys.Enter Then
	　Dim frm As Form = sender.findform
        　　Dim ctrl As Control = CType(sender, Control)
        　　Dim blnForwd As Boolean = True

        　　frm.SelectNextControl(ctrl, blnForwd, True, True, True)
        End If
    End Sub

このプログラムで注目すべきは、[sender]（実はコントロール）から、それが配置されている[Form]を補足でき、このフォームで次の[TabIndex]のコントロールにフォーカスを移すことができることです（TabIndexの順番はデザイン時に設定します）。

そしてこのコードは、下のように当該コントロールに[KeyUp]イベントハンドラーとして登録します。

    Public Shared Sub SetSimpleEnterKeyHandler(ByRef ctrl As Control)

        If TypeOf (ctrl) Is TextBoxBase Then
            RemoveHandler CType(ctrl, TextBoxBase).KeyUp, AddressOf SimpleKeyUp
            AddHandler CType(ctrl, TextBoxBase).KeyUp, AddressOf SimpleKeyUp
        ElseIf TypeOf (ctrl) Is ButtonBase Then
            RemoveHandler CType(ctrl, ButtonBase).KeyUp, AddressOf SimpleKeyUp
            AddHandler CType(ctrl, ButtonBase).KeyUp, AddressOf SimpleKeyUp
        ElseIf TypeOf (ctrl) Is ListControl Then
            RemoveHandler CType(ctrl, ListControl).KeyUp, AddressOf SimpleKeyUp
            AddHandler CType(ctrl, ListControl).KeyUp, AddressOf SimpleKeyUp
        End If

        If TypeOf (ctrl) Is CheckBox Then
            RemoveHandler CType(ctrl, CheckBox).KeyUp, AddressOf ChkInstKeyUp
            AddHandler CType(ctrl, CheckBox).KeyUp, AddressOf ChkInstKeyUp
        End If
    End Sub

さらにこのコードは、前回ご紹介しました、[CtrlBindingCollection]クラスの[Cell]サブクラスのコンストラクターでコールされています。

その結果、

Dim CBC As New CtrlBindingCollection
With CBC
　　.Bind(TextBox1, “氏名”, “String”, True)
　　.Bind(TextBox2, “郵便番号”, “String”, True)
　　.Bind(TextBox3, “住所”, “String”, True)
　　.Bind(TextBox4, “年齢”, “int”, False)
End With
CBC.テキストクリア
CBC.Display(Datarow)

で[TextBox1]、[TextBox2]、[TextBox3]で[Enter]キーを押すと次のコントロールに移動するイベントハンドラーを割り当て、全コントロールをクリアし、それらのコントロールに[Datarow]の値をデータ型を考慮しながら表示することができます（もちろん別途Displayメソッドと、インスタンスDatarowを準備しておきます）。

ところで、日本語入力しているとき[Enter]キーを押すと直ちに次のコントロールに移動されては困ります。
日本語入力の途中では、通常ひらがなで入力して漢字変換が正しく表示されたところで、確定の[Enter]を押します。漢字入力はまだ続きますので、ここで次に移動したのではいけません。

次回はこれを正しく処理するコードをご紹介します。

考えてみれば私がもっとも重宝しているのは、Collectionかもしれません。最初はCollectionBaseの継承をつかっていましたが、今はList(Of T)をメンバー変数に持つクラスです。

最も基本的な使用法は、画面で使うADO.NETのDataTable一つに対してこのクラスのインスタンスを一つ作ります。メソッドBindでは、画面のコントロールとテーブルの列名と列のデータ型を関連付けています。

Public Class CtrlBindingCollection
    Private m_lst As List(Of Cell)
    Sub New()
        m_lst = New List(Of Cell)
    End Sub

    Public Sub Bind(ByRef ctrl As Control, ByVal colName As String, ByVal DataType As Integer, ByVal blnNext As Boolean)
        m_lst.Add(New Cell(ctrl, colName, DataType, blnNext))
    End Sub

    Public Sub モード設定(ByVal blnEdit As Boolean)
　　　' 全Cellのモード設定
    End Sub

    Public Sub テキストクリア()
　　　' 全Cellのテキストクリア
    End Sub

    Class Cell
        Private m_Control As Control
        Private m_列名 As String
        Private m_データ型 As Integer

        Sub New(ByRef ctrl As Control, ByVal colName As String, ByVal intDataType As Integer, ByVal blnNext As Boolean)

            Me.m_Control = ctrl
            Me.m_列名 = colName
            Me.m_データ型 = intDataType

            If blnNext Then
                If Me.m_データ型 = DT.Str OrElse Me.m_データ型 = DT.Dte Then
                    SubFuncs.SetEnterKeyHandler(ctrl)
                Else
                    SubFuncs.SetSimpleEnterKeyHandler(ctrl)
                End If
            End If
　　　End Sub

        Sub モード設定(ByVal blnEdit As Boolean)
　　　　　.....
        End Sub

        Sub テキストクリア()
　　　　　.....
　　　End Sub
    End Class
End Class

今たとえば、Form コードの中で、
Private instCtrlBindingCollection As New CtrlBindingCollection

が宣言されているとして、[instCtrlBindingCollection.テキストクリア]でコントロールをすべてクリアすることができますし、[instCtrlBindingCollection.モード設定]では、画面コントロールのEnableの可能/不可能の切り替えができます。

すなわち、このコレクションに登録されたコントロールをいっせいに「どうこう」したいときにこのクラスのメソッドを一回コールすることで事足ります。

次回は実際何をしているかご紹介します。

何人かの方がつたない私のブログを読んでくださっています。

ところが私はLINQと格闘していて、ブログを書く余裕がありません。

LINQについては、もう少し習熟が進んでから私なりに内容のあるお話を書きたいと思います。

VS2002から10年近く、.NETの開発を続け、その過程で様々なプログラムの工夫をしてきました。
ベストというほどの自信家ではありません。
ご批判をいただければ、また多少の参考になればと思い、少しずつ皆様にご披露していきたいと思っています。