chuyển forcus từ textbox sang listbox bằng phím enter (1 người xem)

[quoc nhat]

Chào cả nhà!
Như phần tiêu đề em đã nêu:Di chuyển qua lai giữa các Control bằng phím Enter
Nhờ các anh chị xem qua File đính kèm và giúp em với ạ
Em cảm ơn nhiều:
Phần thắc mắc em có nêu trên sheet 1 trong file đính kèm
link file
http://www.mediafire.com/download/4af19s9uugd7v7b/Book1.xls

 

[dhn46]

Bạn dùng Code dạng sau

Private Sub mahang_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        loc.Activate
        loc.ListIndex = 0
    End If
End Sub

 

[quoc nhat]

Bạn dùng Code dạng sau

Private Sub mahang_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        loc.Activate
        loc.ListIndex = 0
    End If
End Sub

Em đã làm như anh bảo và Ok rồi
cảm ơn anh!

 

[quoc nhat]

cho em hỏi thêm với mọi người
Anh chị nào biết KeyCode của phím Tab là gì (số bao nhiêu) vậy ạ?
em cảm ơn

 

[quocphuoc88]

Trong trình soạn thảo code . bạn chọn thẻ view -> Object Browser (F2) -> gõ tìm kiếm 'KeyCode' thỉ nó sẽ ra toàn bộ các giá trị keycode trên bàn phím bạn !

 

[dhn46]

cho em hỏi thêm với mọi người
Anh chị nào biết KeyCode của phím Tab là gì (số bao nhiêu) vậy ạ?
em cảm ơn

Bạn để ý code

Private Sub mahang_KeyDown([COLOR=#ff0000][B]ByVal KeyCode As MSForms.ReturnInteger[/B][/COLOR], ByVal Shift As Integer)
    If KeyCode = 13 Then
        Loc.Activate
        Loc.ListIndex = 0
    End If
End Sub

Phần màu đỏ tức là sẽ trả về keycode khi sự kiên mahang_KeyDown xảy ra.

Do đó bạn hãy tận dụng cái này mà test.

Private Sub mahang_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    MsgBox KeyCode
End Sub

Code trên sẽ hiện thông báo keycode khi bạn gõ phím vào textbox mahang

 

[quoc nhat]

Bạn để ý code

Private Sub mahang_KeyDown([COLOR=#ff0000][B]ByVal KeyCode As MSForms.ReturnInteger[/B][/COLOR], ByVal Shift As Integer)
    If KeyCode = 13 Then
        Loc.Activate
        Loc.ListIndex = 0
    End If
End Sub

Phần màu đỏ tức là sẽ trả về keycode khi sự kiên mahang_KeyDown xảy ra.

Do đó bạn hãy tận dụng cái này mà test.

Private Sub mahang_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    MsgBox KeyCode
End Sub

Code trên sẽ hiện thông báo keycode khi bạn gõ phím vào textbox mahang

Tuyệt quá. Cảm ơn anh dhn46 và tất cả mọi người