C# と VB.NET の質問掲示板

■No69830 (ちゃんさん さん) に返信
> ■No69824 (shu さん) に返信
>>■No69823 (ちゃんさん さん) に返信
> >>■No69822 (shu さん) に返信
>>>>combobox1はフォーカス可能な状態か？
> >>
> >>フォーカスを可能な状態にする方法とかあるのでしょうか？
>>たとえばマウスでクリックしてフォーカス移動すればフォーカス可能な状態です。
>>それでもフォーカス移動しなければ
>>Enabled=Falseになっているとか？
> 
> フォーカス可能な状態です。
> 
> 
>>>>提示されたコードは実行されているのか？
> >>
> >>実行しています
>>その確認はどのように行いましたでしょうか？
> 
> デバックで確認しました。
> 
>>また実際どのイベントにどのように記載されていますでしょうか？
> 
>     Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
>         Dim KeyCode As Short = e.KeyCode
>         Dim Shift As Short = e.KeyData \ &H10000
>         If KeyCode = System.Windows.Forms.Keys.Tab Or KeyCode = System.Windows.Forms.Keys.Return Then
>             If (Shift And VB6.ShiftConstants.ShiftMask) > 0 Then
>                 combobox1.Focus()   
>             Else
>                 TextBox2.Focus() 
>             End If
>         End If    
>     End Sub
> 
> 
> よろしくお願いします

ふつうにこれでできますが、できませんか？
（OS：Win7、VB.Net2010で確認）
ちなみにKeyEventArgsオブジェクトですので、下記の記載で十分なはずですが・・・

    Private Sub TextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        'タブかリターンキーが押された場合
        If e.KeyCode = Keys.Tab Or e.KeyCode = Keys.Return Then
            'Shiftキーが押されたかの判定
            If e.Shift Then
                ComboBox1.Focus()
            Else
                TextBox2.Focus()
            End If
        End If

    End Sub

■No69830 (ちゃんさん さん) に返信

VB6.ShiftConstants.ShiftMaskは古い形式で使用は推奨されていないです。
以下のように書いた方がよいです。

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        Dim KeyCode = e.KeyCode
        If KeyCode = System.Windows.Forms.Keys.Tab OrElse KeyCode = System.Windows.Forms.Keys.Return Then
            If e.Shift Then
                ComboBox1.Focus()
            Else
                TextBox2.Focus()
            End If
        End If
    End Sub


そしてこの場合、Tabキーの判定はOS側で行われタブ移動順にしか移動しません。

提示されたコードでは移動出来ないと思われる箇所がみつからないので他の部分が
影響があるかもしれません。またボタンのクリックイベントでFocus移動が出来るか
試してみてはどうでしょう？