Khóa phím close trong Access

Tài liệu tham khảo hướng dẫn khoá 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ôivà không 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..
Nội dung trích xuất từ tài liệu:
Khóa phím close trong AccessKhóa phím close trong AccessHỏi: Tôi đã cung cấp cho người dùng nút đóng trên chương trình Access của tôivà 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 SubBây giờ trong form Admin của bạn, bạn có thể tạo 1 nút nhấn và gọi hàmHideAccessCloseButton để ẩn nút close. Nếu vẫn chưa được. Hãy đ1ongAccess và mở lại.Xem các hìnhAccess trước khi ẩn nútAccess sau khi ẩn nút