ハテナキハテナ --unics’s think/sync

福井のまんなかでぼんにょり呟く、ゆにくすの日々オボエガキなど。

フォームで [Enter] キーが押された時にフォーカスを遷移させる

' [Enter] キーで次の TabIndex があるコントロールへフォーカスを移す
Private Sub Form1_KeyDown _
(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    If e.KeyCode = Keys.Enter Then
        If e.Control = False Then
            Me.SelectNextControl(Me.ActiveControl, Not e.Shift, True, True, True)
        End If
    End If
End Sub

SHIFTキーを押していたら前のフォーカスに戻るようになってます。もうVBとかCとか混じりまくって頭こんがらがりまくっちゃってしっちゃかめっちゃかです。
いやぁ勉強になるなぁ。
http://jeanne.wankuma.com/tips/form/cobolerform.html

qqq for your reading!!
(c)Electro-U-nics --since 2004.03.26