Gán phim ENTER cho nút Thêm

[Thanhhoai00]

mình có giao diện như sau mình muốn gán phim ENTER trên bàn phím cho nút thêm thì mình code thế nào vậy ạ !! cảm ơn các bạn
Ví dụ : Mình Gõ chữ vào ô textbox1 hoặc không gõ chữ cũng được -> nhấn ENTER trên bàn phím để gọi nút commanButton3 sau đó hiện lên dòng MsgBox ("HIEN THI DU LIEU :" & TextBox1.Value)

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
MsgBox ("HIEN THI DU LIEU :" & TextBox1.Value)
End Sub

 

[befaint]

ENTER

Enter 2 phát .

 

[batman1]

Ý bạn là sau khi nhập TextBox mà nhấn Enter thì thực hiện CommandButton3_Click? Nếu thế thì xem hình và làm theo thứ tự:
1. Chọn nút Thêm
2. Thiết lập Default = True

 

[Thanhhoai00]

mình làm được rồi!! thank 2 bạn nhiều ạ !!

 

[Chaoaudi]

mình có giao diện như sau mình muốn gán phim ENTER trên bàn phím cho nút thêm thì mình code thế nào vậy ạ !! cảm ơn các bạn
Ví dụ : Mình Gõ chữ vào ô textbox1 hoặc không gõ chữ cũng được -> nhấn ENTER trên bàn phím để gọi nút commanButton3 sau đó hiện lên dòng MsgBox ("HIEN THI DU LIEU :" & TextBox1.Value)

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
MsgBox ("HIEN THI DU LIEU :" & TextBox1.Value)
End Sub

Enter 2 phát .

1 enter thôi

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        MsgBox ("HIEN THI DU LIEU :" & TextBox1.Value)
        TextBox1.SetFocus
        KeyCode = 0
    End If
End Sub