Cách select khi textbox nhận focus

[tuanvd]

Xin chào các bạn, tôi có 1 form nhập liệu input1 và input2 khi nhập vào ô input2 thì tôi nhấn phím mũi tên lên để chuyển vào ô nhập input1 thì lúc này dữ liệu tại ô input1 sẽ được bôi đen (khi nhập số mới nó sẽ tự xóa dữ liệu trước đấy tại ô input1). Tôi chưa biết dùng hàm gì mong các cao thủ chỉ cho.

 

[PhanTuHuong]

Bạn tìm hiểu thuộc tính SelStart, SelLength của đối tượng TextBox xem sao. Tham khảo file dưới đây (tự bôi đen khi di chuyển chuột vào).

 

[tuanvd]

Bạn tìm hiểu thuộc tính SelStart, SelLength của đối tượng TextBox xem sao. Tham khảo file dưới đây (tự bôi đen khi di chuyển chuột vào).

Ý của tôi là khi di chuyển phím mũi tên (từ ô phía dưới lêm ô phía trên) giống như ta nhấn phím tab ấy, lúc đó khi dấu nhắc chuyển lên ô trên thì nó sẽ bôi đen dữ liệu trên ô đó, lúc này ta chỉ việc nhập dl vao thôi mà không cần phải xoá.
Mong nhận câu trả lời sớm.

 

[tuanvd]

Tại sao chẳng ai giúp tôi vậy.
Tôi chỉ muốn biến phím mũi tên lên trên (và phím enter nữa) trở thành phím tab thôi, các cao thủ mau trợ giúp đi.

 

[tigertiger]

Tại sao chẳng ai giúp tôi vậy.
Tôi chỉ muốn biến phím mũi tên lên trên (và phím enter nữa) trở thành phím tab thôi, các cao thủ mau trợ giúp đi.

Thử kiểu này xem sao, chắc còn cần bạn sáng tạo thêm, thế nhé (xem file gửi kèm)

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode.Value = 38 Then 'Or KeyCode.Value = 40 Then
        Me.TextBox1.SelStart = 0: Me.TextBox1.SelLength = Me.TextBox1.TextLength
    End If
End Sub


Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode.Value = 40 Then
        Me.TextBox2.SelStart = 0: Me.TextBox2.SelLength = Me.TextBox2.TextLength
    End If
End Sub

 

[tuanvd]

Cam on tigertiger rat nhieu, day dung la cai toi dang can