Chủ đề: Code khóa phím Shift
-
12-12-2009, 06:37 PM #1
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Code khóa phím Shift
Như chúng ta đã biết dùng Form đăng nhập để mà phân quyền sử dụng cho ngưòi dùng.Nhưng nó có một nhuợc điểm là chỉ cần nhấn phím SHIFT khi mở FIle là toàn bộ code bị bung ra hết.Do đó em cần Code để mà vô hiệu hóa phím SHIFT.[you] có hãy POST cho em tham khảo với.Em xin cảm ơn!
View more random threads:
- File nào là Front End , File nào là Back End
- Giao trình hệ quản trị CSDL MS.Acess
- Giúp đở vấn đề share csdl access để được nhiều người dùng
- Cho mình hỏi về Marco chút.
- TIP :Cho Access thoát khỏi .... Access !
- tìm kiếm trong ComboBox trên chứng từ phiếu chi
- xin giúp đỡ về VBA
- Quản lý mua bán hàng - Phần 5: Thiết kế form dạng Main/Sub
- Giúp đở về listbox và textbox . help !
- Câu lệnh SQL
-
12-12-2009, 06:45 PM #2
Silver member
- Ngày tham gia
- Feb 2016
- Bài viết
- 13
Ðề: Code khóa phím Shift
Cậu này hay nghịch máy tính quá ta, nhưng phải như vậy mới thành tài được
cái này anh sưu tầm thôi thử thử nha
' Function disables shift key
Public Function Disable_ShiftKey()
Dim db As Database
Dim prp, prptest As Property
On Error GoTo Err_Handler
Set db = CurrentDb
For Each prptest In db.Properties
If prptest.Name = "AllowBypassKey" Then
db.Properties.DELETE "AllowBypassKey"
Exit For
End If
Next prptest
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False, True)
db.Properties.Append prp
db.Properties.Refresh
MsgBox "Disable Shift Key succeeded!", vbInformation
Set db = Nothing
Set prp = Nothing
Err_Exit:
Exit Function
Err_Handler:
MsgBox "Error " & Err.Number & " ! " & Err.description, vbCritical
Resume Err_Exit
End Function
' Function enables shift key
Public Function Enable_ShiftKey()
Dim db As Database
Dim prp, prptest As Property
On Error GoTo Err_Handler
Set db = CurrentDb
For Each prptest In db.Properties
If prptest.Name = "AllowBypassKey" Then
db.Properties.DELETE "AllowBypassKey"
Exit For
End If
Next prptest
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, True, True)
db.Properties.Append prp
db.Properties.Refresh
MsgBox "Enable Shift Key succeeded!", vbInformation
Set db = Nothing
Set prp = Nothing
Err_Exit:
Exit Function
Err_Handler:
MsgBox "Error " & Err.Number & " ! " & Err.description, vbCritical
Resume Err_Exit
End Function
(sưu tầm )
-
12-12-2009, 07:02 PM #3
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 1
Ðề: Code khóa phím Shift
Gửi bởi truongthon
-
12-12-2009, 10:59 PM #4
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code khóa phím Shift
Gửi bởi phuyen89
formQuantrij có 4 đoạn code là:
- form_Opend: 1 là mật khẩu mở form.
- cmdDisableShift_click(): là khóa SHIFT
- cmdEnableShift_click(): là mở SHIFT
- cmdThoat_Click(): Thoát.
-
12-12-2009, 11:42 PM #5
Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 23
Ðề: Code khóa phím Shift
Gửi bởi haquocquan
-
12-13-2009, 12:28 AM #6
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 6
Ðề: Code khóa phím Shift
Gửi bởi phuyen89
Hội y khoa giới tính thế giới định nghĩa xuất tinh sớm là tình trạng rối loạn xuất tinh của nam giới với đặc trưng luôn xuất tinh sớm hơn hoặc trong vòng một phút quan hệ. Bệnh nhân không có khả năng...
Tìm hiểu về loại thuốc dứt điểm bệnh "ra nhanh"