khóa Phím PageUp & PageDown

[quochoi_05]

Mình mở 1 form ở dạng single form, Lock tất cả các textbox lại không cho nhập, chỉ khi nào bấm nút Thêm hoặc Sửa thì UnLock, tuy nhiên khi sửa mẫu tin hiện hành mà lỡ tay bấm phím PageUp hoặc PageDown thì sẽ nhảy sang mẫu tin kế cận. Vậy có cách nào khóa phím pageUp và PageDown lại không?

 

[phatnq2002]

Ðề: khóa Phím PageUp & PageDown

Mình mở 1 form ở dạng single form, Lock tất cả các textbox lại không cho nhập, chỉ khi nào bấm nút Thêm hoặc Sửa thì UnLock, tuy nhiên khi sửa mẫu tin hiện hành mà lỡ tay bấm phím PageUp hoặc PageDown thì sẽ nhảy sang mẫu tin kế cận. Vậy có cách nào khóa phím pageUp và PageDown lại không?

Gán thuộc tính KeyPreview của Form là Yes.

Thủ tục sự kiện Form_KeyDown:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPageUp Or KeyCode = vbKeyPageDown Then KeyCode = 0
End Sub