Giữ tiêu điểm trên hộp văn bản sau khi nhấn enter

Question

Làm cách nào để giữ tiêu điểm trong hộp văn bản sau khi nhấn vào biểu mẫu VBA?

Mã này thêm văn bản vào Hộp danh sách và tôi muốn giữ tiêu điểm trên hộp văn bản để sẵn sàng nhận một mục khác.

Khi tôi bấm vào nút Thêm, nó thêm văn bản vào hộp danh sách và trả về tiêu điểm cho hộp văn bản, howerver khi tôi nhấn vào nó không, thậm chí khó khăn nó sử dụng cùng một mã. Bất kì lời đề nghị nào?

Đây là mã của tôi cho các textbox:

Private Sub TxtOtherAsset_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 

    If KeyCode = 13 Then 
     CmdAddOtherAsset_Click 
    End If 

End Sub 

và đây là mã cho nút của tôi:

Private Sub CmdAddOtherAsset_Click() 

    If TxtOtherAsset.Text <> "" Then 
     ListAddedAssets.AddItem TxtOtherAsset.Text 
     TxtOtherAsset.Text = "" 
    End If 

    TxtOtherAsset.SetFocus 

End Sub 

Tôi đã thử nhiều cách, nhưng tôi không thể trở lại tập trung vào hộp văn bản. Sau khi nhấn enter, tiêu điểm sẽ chuyển sang bước tiếp theo trong TabIndex.

Answer 1

Từ đầu của tôi: thử đặt Mã khóa thành 0. Ngoài ra, hãy sử dụng lớp KeyCodeConstants (từ thư viện Core) để xác định giá trị của phím Enter.

Như thế này:

If KeyCode = KeyCodeConstants.vbKeyReturn Then 
    CmdAddOtherAsset_Click 
    KeyCode = 0 
End If 

Tháo dòng bạn đang cố gắng để thiết lập focus trên phụ khác (TxtOtherAsset.SetFocus).

Hy vọng nó phù hợp với bạn. Tôi đã không kiểm tra nó.

Answer 2

Bạn có sử dụng phím Enter làm trình kích hoạt để bắt các thay đổi đối với hộp văn bản không? Nếu đúng như vậy, hãy thử sự kiện Sau khi cập nhật. Ngoài ra, hãy xem sự kiện On Exit. Khi tôi nhìn, tôi nhận thấy nó có tham số Hủy. Nếu bạn vẫn muốn nắm bắt phím Enter trong sự kiện Key Down, bạn có thể có thể là sự kiện On Exit để ngăn việc rời khỏi hộp văn bản. Tất nhiên, điều đó có thể có nghĩa là bạn bị mắc kẹt vĩnh viễn và có thể cần phải thiết lập một cách để cho phép thoát.