có phím nóng nào để đóng Form không?

[ongtrungducmx25]

cho mình hỏi để tạo phím nóng đóng form như thế nào!thank

 

[LearnMore]

Bạn nhấn ALT+F4.

 

[ongtrungducmx25]

không được bạn ơi!

 

[dmtdmtbb]

- Tạo một button exit, properties của button tìm dòng Accelerator, vd : Accelerator = X, phím tắt là Alt X.

 

[anhphuong]

cho mình hỏi để tạo phím nóng đóng form như thế nào!thank

Bạn chép đọan code sau vào form :

Private Sub UserForm_KeyPress(ByVal KeyAscii As SForms.ReturnInteger)
If KeyAscii = "%{F4}" Then
Unload Me
End If
End Sub

Khi cần thóat form nhấn Alt + F4
Thân

 

[cobehota7x]

Bạn chép đọan code sau vào form :

Private Sub UserForm_KeyPress(ByVal KeyAscii As SForms.ReturnInteger)
If KeyAscii = "%{F4}" Then
Unload Me
End If
End Sub

Khi cần thóat form nhấn Alt + F4
Thân

Sao mình chép vào form nhưng không biết tại sao báo lỗi nhờ bạn kiểm tra giúp mình và gởi file để mình xem nhé !

 

[SoiBien]

@7x
Bạn đã chép vào phần Code của form chưa?

 

[anhphuong]

Sao mình chép vào form nhưng không biết tại sao báo lỗi nhờ bạn kiểm tra giúp mình và gởi file để mình xem nhé !

1/ Kích đúp vào form để mở code của form
2/ Chép đọan code trên vào trong code của form
3/ Thóat khỏi màn hình ghi code
4/ Cho form show và nhấn Alt+F4 xem sao
Chúc thành công
Thân

 

[cobehota7x]

1/ Kích đúp vào form để mở code của form
2/ Chép đọan code trên vào trong code của form
3/ Thóat khỏi màn hình ghi code
4/ Cho form show và nhấn Alt+F4 xem sao
Chúc thành công
Thân

em đã làm theo hướng dẫn của anh nhưng file của em lại báo lỗi ngay từ vòng đầu kì wá!

 

[duongsatdn]

Có thể dùng phím Esc thay cho Alt+F4 được không các bạn ơi??

 

[SoiBien]

Có thể dùng phím Esc thay cho Alt+F4 được không các bạn ơi??

Bạn làm theo bước sau

Chèn một Command Button vào form, đặt tên là cmdExit chẳng hạn

đặt Properties Cancel của Button là True (default là false)

chèn đoạn code sau vào Code của form

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] cmdExit_Click()
    Unload Me
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

Thân.

P/s : Đối với một form, chỉ có một Control được đặt thuộc tính Cancel = True, khi đặt thuộc tính này cho một control thì các control khác sẽ được tự động đưa property Cancel của nó về False.

 

[anhphuong]

em đã làm theo hướng dẫn của anh nhưng file của em lại báo lỗi ngay từ vòng đầu kì wá!

Xin lỗi nha vì khi copy qua 4R bị thiếu mất một chữ, xin sửa lại như sau

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = "%{F4}" Then
Unload Me
End If
End Sub

Thành thật xin lỗi các bạn