Xin chỉ cách tắt chức năng MouseWheel

[chihienphuco]

Xin code tắt chức năng MouseWheel (xoay chuột) trên form.

Mong giúp đở!

 

[Pysanka]

Ðề: Xin chỉ cách tắt chức năng MouseWheel

http://www.lebans.com/mousewheelonoff.htm
Ý bạn có phải là cái này ko nhỉ?

 

[chihienphuco]

Ðề: Xin chỉ cách tắt chức năng MouseWheel

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Vui Lòng Không Xoay Chuột"
Docmd.Close
End Sub

Xoay chuột hiện thông báo xong là thoát luôn. An toàn.

 

[Pysanka]

Ðề: Xin chỉ cách tắt chức năng MouseWheel

Đọc mấy bài chức năng cuộn hay ho phết, nhưng mình chưa dám áp dụng vì toàn thấy code. Bạn rành cái này ko? chỉ thêm cho mọi người đi.

 

[tienduyet]

Ðề: Xin chỉ cách tắt chức năng MouseWheel

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Vui Lòng Không Xoay Chuột"
Docmd.Close
End Sub

Xoay chuột hiện thông báo xong là thoát luôn. An toàn.

Chưa chắc đã an toàn. Tốt hơn hết là ta tắt nó đi.
Ý mình là giờ hãy tạo một mô-đul (tắt chắc năng xoay chuột), trên form khởi động bạn hãy gọi mô-đul này ra và khi tai xoay chuột là Do NoThing lun đó.


Tài liệu tham khảo rất ý nghĩa nè: http://danketoan.com/forum/showthread.php?t=93820