KeyPressが奇妙な動作をしていますが、ボタンのクリックがうまくいきます。VB.net

Question

私のデータベースで検索するには以下のコードを使用していますが、私のkeypressは変です。

Private Sub txtSearch4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtSearch4.KeyPress 
    Call btnSearch4_Click(sender, e) 
End Sub 

Private Sub btnSearch4_Click(sender As Object, e As EventArgs) Handles btnSearch4.Click 
    If SQL.HasConnection = True Then 
     SQL.ExecQuery("SELECT Customer, Product, Part_Number FROM Product WHERE (" & cmbType4.Text & " LIKE '%" & txtSearch4.Text & "%') ORDER BY Part_Number ASC") 

     If SQL.DBDS.Tables.Count > 0 Then 
      dgvProd.DataSource = SQL.DBDS.Tables(0) 
     End If 
    End If 
End Sub 

ビデオ：https://drive.google.com/open?id=0B7BUg5POgN7dZGVBTUpad1FWdDg 私はそれがすぐに立ち上げていないキーを押したときは、動画で見ることができるように。私はそれがこのようにしたい、私は単一のキーを押すと、それはあなたがボタンを押すのと同じように自動起動します。 ありがとうございます。

Answer 1

代わりにKeyDownイベントを使用してください。このイベントは、キーボードのキーを押すとすぐに発生しますが、キーが押されている間は文字キーのKeyPressイベントが発生し、ユーザーがそれを解放します。

 
Private Sub txtSearch4_KeyDown(sender As Object, e As KeyPressEventArgs) Handles txtSearch4.KeyDown 
    doSearch() 
End Sub 

Private Sub btnSearch4_Click(sender As Object, e As EventArgs) Handles btnSearch4.Click 
    doSearch() 
End Sub 

Private Sub doSearch() 
    If SQL.HasConnection = True Then 
     SQL.ExecQuery("SELECT Customer, Product, Part_Number FROM Product WHERE (" & cmbType4.Text & " LIKE '%" & txtSearch4.Text & "%') ORDER BY Part_Number ASC") 

     If SQL.DBDS.Tables.Count > 0 Then 
      dgvProd.DataSource = SQL.DBDS.Tables(0) 
     End If 
    End If 
end sub