GIup code setfocus cố định tại Textbox khi dùng máy quét mã vạch

[minhtuan55]

Chào cả nhà GPE . Em có sử dụng máy quét mã vạch như khi quét vào Textbox thì nó lại Forcus lại đối tượng khác. Em muốn sau khi quét xong con trỏ vẫn Forcus tại textbox đó. Xin chân thành cảm ơn !

 

[Hai Lúa Miền Tây]

Chào cả nhà GPE . Em có sử dụng máy quét mã vạch như khi quét vào Textbox thì nó lại Forcus lại đối tượng khác. Em muốn sau khi quét xong con trỏ vẫn Forcus tại textbox đó. Xin chân thành cảm ơn !
View attachment 215127

Máy quét sau khi quét xong nó sẽ "tặng" cho mình một cái sự kiện enter. Vậy điều bạn cần bắt sự kiện đó KeyDown của textbox đó

 

[minhtuan55]

Máy quét sau khi quét xong nó sẽ "tặng" cho mình một cái sự kiện enter. Vậy điều bạn cần bắt sự kiện đó KeyDown của textbox đó

Em dùng Keycode = 13 rồi Tetbox.Setforcus no vẫn không hiểu thầy ơi

 

[Hai Lúa Miền Tây]

Em dùng Keycode = 13 rồi Tetbox.Setforcus no vẫn không hiểu thầy ơi

Ví dụ như sau:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = KeyCodeConstants.vbKeyReturn Then
        MsgBox "Thuc hien cac lenh khi quet barcode"
        MsgBox KeyCode
    End If

End Sub

Tái bút: Đừng nên gọi Thầy nhé. Mình không dám nhận như thế.

 

[minhtuan55]

Ví dụ như sau:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = KeyCodeConstants.vbKeyReturn Then
        MsgBox "Thuc hien cac lenh khi quet barcode"
        MsgBox KeyCode
    End If

End Sub

Tái bút: Đừng nên gọi Thầy nhé. Mình không dám nhận như thế.

Thanh bác . Code của bác = and( quá đúng, quá gọn, quá ngon )