[VB.NET]　F2キーを押すとDataGridのスクロールバーが消える

    Private Sub Form1_Load(ByVal sender As System.Object, _

                           ByVal e As System.EventArgs) Handles MyBase.Load



        'この３つはフォームデザイナで宣言している

        'Me.TopMost = True

        'Me.KeyPreview = True

        'DataGrid1.ReadOnly = True



        'データベースからデータセットにtestテーブルを読み込む

        OleDbDataAdapter1.Fill(DsTest1, "test")



        'TableStylesの定義

        Dim ts As DataGridTableStyle

        ts = DataGrid1.TableStyles("test")



        '一列目のGridColumnStylesの定義

        Dim cs As DataGridTextBoxColumn = _

            CType(ts.GridColumnStyles(0), DataGridTextBoxColumn)



        '一列目のTextBoxにキーダウンのハンドラを割り当てる

        Dim tb As TextBox = cs.TextBox

        AddHandler tb.KeyDown, AddressOf tb_KeyDown



    End Sub



    Private Sub DataGrid1_Paint(ByVal sender As System.Object, _

                            ByVal e As System.Windows.Forms.PaintEventArgs) Handles DataGrid1.Paint



        Me.TopMost = True



        'もし表示する行が存在しない場合は処理を行わない

        If DataGrid1.VisibleRowCount <> 0 Then



            Dim colStyle As DataGridColumnStyle

            colStyle = Me.DataGrid1.TableStyles(0).GridColumnStyles(0)



            '編集モード解除

            DataGrid1.EndEdit(colStyle, Me.BindingContext(DsTest1, "test").Position, True)

            '行選択 

            DataGrid1.Select(Me.BindingContext(DsTest1, "test").Position)



        End If



    End Sub



    Private Sub Form1_KeyDown(ByVal sender As Object, _

                              ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown



        KeyDownEvent(e)



    End Sub



    Private Sub tb_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)



        KeyDownEvent(e)



    End Sub



    Private Sub KeyDownEvent(ByVal e As KeyEventArgs)



        Select Case e.KeyCode



            Case Keys.F1

                '文字という名前のカラムにTextBox1のTextを含んでいるデータのみを表示する

                '要するに絞込み処理



                Dim filterString As String

                filterString = "%" & TextBox1.Text & "%"



                'SQL

                OleDbDataAdapter1.SelectCommand.CommandText = "SELECT * FROM test WHERE 文字 LIKE '" & filterString & "' "



                'DataGrid1に表示される内容を更新する

                DsTest1.Clear()

                OleDbDataAdapter1.Fill(DsTest1)



        End Select



    End Sub