Khóa phím close trong Access
H i:ỏ Tôi đã cung c p cho ng i dùng nút đóng trên ch ng trình Access c a tôiấ ườ ươ ủ
và kh6ong mu n h dùng nút nh t close(x) s n c a Windows thì ph i làm thố ọ ấ ẵ ủ ả ế
nào!
Đáp:
B n có th n nút close b ng đo n code sau:ạ ể ẩ ằ ạ
Code:
Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000
Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Sub HideAccessCloseButton()
Dim lngStyle As Long
lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
lngStyle = lngStyle And Not WS_SYSMENU
Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE
Or SWP_NOSIZE Or SWP_DRAWFRAME)
End Sub
Bây gi trong form Admin c a b n, b n có th t o 1 nút nh n và g i hàmờ ủ ạ ạ ể ạ ấ ọ
HideAccessCloseButton đ n nút close. N u v n ch a đ c. Hãy đ1ongể ẩ ế ẫ ư ượ
Access và m l i.ở ạ
Xem các hình
Access tr c khi n nútướ ẩ
Access sau khi n nútẩ