2

我使用KeyPressEvent 来改变TextBox. 在我使用选项之前它工作得很好AutoComplete,之后它就不起作用了。

代码KeyPress

If Asc(e.KeyChar) = 13 Then
            txtQuantity.Focus()
            txtQuantity.SelectAll()
            lastTxtBox = "name"
End If

代码TextBox

txtProductCode.AutoCompleteMode = AutoCompleteMode.Suggest
txtProductCode.AutoCompleteSource = AutoCompleteSource.CustomSource

我想同时使用这两个建议选项。我也尝试将按键更改为 keyDown ,但它仍然不起作用。有谁知道为什么?

4

1 回答 1

0

改用KeyDown事件:

Private Sub TB_KeyDown(sender As Object, e As KeyEventArgs) Handles txtProductCode.KeyDown
    If e.KeyCode = Keys.Enter Then
        txtQuantity.Focus()
        txtQuantity.SelectAll()
    End If
End Sub

它对我来说很完美(经过测试)。

于 2013-01-25T13:05:53.873 回答