Dùng fím ESCAPE để thoát form hiện hành!

[emgaingayngo]

Các bạn giúp mình câu lệnh trong VBA để khi nhấn nút Escape thì làm thoát form hiện hành. Cảm ơn nhìu!

 

[chibi]

Bạn có thể dùng sự kiện Key Press

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 27 Then Me.Hide
End Sub

 

[NEO]

Không cần Code đâu. Bạn vào cửa sổ lập trình(Alt + F11). trên Form đó, bạn thêm một "Cmd Button".
trong phần thuộc tính - properties(cửa số bên trái phía dưới màn hình) của Button này bạn thiết lập thuộc tính "Cancel = true" là Ok. Nếu trường hợp không thích Button này tồn tại khi show "the form". thì chọn tiếp thuộc tính "Visible = False". Thế là ok
Quên là Code của Button này thì như sau:
Private Sub CMD_Click()
End
End Sub
P/s: Hì như vậy là vẫn phải có code rồi. Thật sorry

 

[Po_Pikachu]

Em xin hỏi KeyAscii này lấy ở đâu và nếu có thể thì cho em xin luôn 1 bảng về tất cả chỉ số này được không? (Ví dụ như lệnh Enter, Tab, CapsLock,...) Thanks.

 

[emgaingayngo]

Mình tạo form mới, không có nút Exit thì dùng cách của chibi thì OK, nhưng form của mình đã có nút Exit thì nó không chạy. Còn cách của NEO thì OK! Chưa biết tại sao? Để suy nghĩ tiếp. Cảm ơn các bạn!

 

[ontopoftheworld]

Em xin hỏi KeyAscii này lấy ở đâu và nếu có thể thì cho em xin luôn 1 bảng về tất cả chỉ số này được không? (Ví dụ như lệnh Enter, Tab, CapsLock,...)
Thanks.

Cậu vào phần Help của Microsoft Visual Basic Help là có toàn bộ những gì cậu muốn

 

[Mr Okebab]

Bạn có thể dùng sự kiện Key Press

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 27 Then Me.Hide
End Sub

Khi trên form có thêm các Obj khác như Textbox, combobox . . thì Event này lại không thực thi được.

Sao vậy nhỉ ???

Thân!

 

[tedaynui]

Thêm 1 cách tham khảo cho vui :
Khi khởi động Form, dùng lệnh
Application.Onkey "{ESC}", "Thoat"
.............
Sub Thoat()

Unload Me
​

End Sub

TDN

 

[Po_Pikachu]

Cậu vào phần Help của Microsoft Visual Basic Help là có toàn bộ những gì cậu muốn

Bác có thể chỉ rõ hơn được không? Em tìm rồi nhưng sao không thấy!

 

[chibi]

Bác có thể chỉ rõ hơn được không? Em tìm rồi nhưng sao không thấy!

Với F1 ta sẽ có

 

[ontopoftheworld]

Khi trên form có thêm các Obj khác như Textbox, combobox . . thì Event này lại không thực thi được.

Sao vậy nhỉ ???

Thân!

Em cũng thử rồi, mà chưa tìm ra nguyên nhân nên ....im luôn ạh . Anh đã tìm ra nguyên nhân chưa Anh Hiếu ơi????

 

[Mr Okebab]

Thêm 1 cách tham khảo cho vui :
Khi khởi động Form, dùng lệnh
Application.Onkey "{ESC}", "Thoat"
.............
Sub Thoat()

Unload Me
​

End Sub

TDN

Khi có các Obj khác vẫn không được bác ạ, không hiểu sao lại thế ???

Vì vậy đành phải sử dung Event Presskey của các Obj thôi.

Thân !

 

[Po_Pikachu]

Vậy bác có cách nào làm cho form đó luôn ở trạng thái Active sau mỗi lần dùng Cmd, Obj không. Em nghĩ rằng do cái cmd, obj đó đã chiếm quyền sở hữu của form mất rồi nên những thao tác trực tiếp trên form điều không có tác dụng! À, còn phím Alt + F4 thì bác nghĩ sao nhỉ! Em thấy nó chạy tốt đó. Thân. Em có mẹo này! Áp dụng lệnh thoát cho commandbutton.

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 27 Then Me.Hide End Sub

Code này ứng với CommandButton1. Nếu tất cả các cmd, obj điều có thể đặt code này vào thì có thể tắt ở bất cứ nơi đâu trên Form rồi! Thân.

 

[Mr Okebab]

Vậy bác có cách nào làm cho form đó luôn ở trạng thái Active sau mỗi lần dùng Cm

Em có mẹo này! Áp dụng lệnh thoát cho commandbutton.

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then Me.Hide
End Sub

Code này ứng với CommandButton1. Nếu tất cả các cmd, obj điều có thể đặt code này vào thì có thể tắt ở bất cứ nơi đâu trên Form rồi!
Thân.

Thì ở trên đã nói rồi :

Vì vậy đành phải sử dung Event Presskey của các Obj thôi.

Thân!

 

[NEO]

Private Sub Cmb2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then Exit Sub ' Dùng phím Enter
End Sub

Cái đoạn code trên là dùng cho Combobox trên Sheet(control toolbox), em thử dùng Cho Enter key mà chẳng thấy nó có hơi hám gì cả, cứ trơ ra đó. Trong khi dùng cho Esc key thì lại Ok. Cho em hỏi là tại sao ạh?

 

[BNTT]

Tối nay tự nhiên khám phá ra chuyện này. Đơn giản lắm.
Vẽ lên cái Form một cái Command Button, đặt tên cho nó là CmbCLOSE chẳng hạn.
Dò bên bảng Property, có muc Cancel, gán cho nó = True.

Rồi nhấn đúp vào cái nút này để vào trong Code, gõ dòng lệnh Unload Me vào cái Sub đang có sẵn:

Private Sub CmbClose_Click()
    Unload Me
End Sub

Thế là xong. Mở Form lên, nhấn ESC, Form biến tiệt!

 

[hoa35ktxd]

Cách này NEO nói rồi mà.
Các Button ngoài thuộc tính Cancel để dùng cho phím ESC ra còn thuộc tính Defualt dùng cho phím Enter.
Ai đó hỏi về KeyAscii: Nó trả về mã ASCII của phím nhấn, nếu dùng Chr(KeyAscii) sẽ cho ra ký tự của phím nhấn.
Với đoạn code sau, ta sẽ biết được phím vừa nhấn có mã là bao nhiêu.
Private Sub Txt1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.Caption = KeyAscii & "-" & Chr(KeyAscii)
End Sub

 

[NguyenthiH]

Không cần Code đâu. Bạn vào cửa sổ lập trình(Alt + F11). trên Form đó, bạn thêm một "Cmd Button".

trong phần thuộc tính - properties(cửa số bên trái phía dưới màn hình) của Button này bạn thiết lập thuộc tính "Cancel = true" là Ok. Nếu trường hợp không thích Button này tồn tại khi show "the form". thì chọn tiếp thuộc tính "Visible = False". Thế là ok
Quên là Code của Button này thì như sau:
Private Sub CMD_Click()
End
End Sub

Khi em cho thuộc tính "Visible = False" thì không được, chỉ khi "Visible = true" thì mới được.
Mong mọi người chỉ giáo.

 

[tuananhss84]

Tối nay tự nhiên khám phá ra chuyện này. Đơn giản lắm.
Vẽ lên cái Form một cái Command Button, đặt tên cho nó là CmbCLOSE chẳng hạn.
Dò bên bảng Property, có muc Cancel, gán cho nó = True.

Rồi nhấn đúp vào cái nút này để vào trong Code, gõ dòng lệnh Unload Me vào cái Sub đang có sẵn:

Private Sub CmbClose_Click()
    Unload Me
End Sub

Thế là xong. Mở Form lên, nhấn ESC, Form biến tiệt!

Tuyệt vời cảm ơn pro nhé!