Khóa phím close trong Access

Chia sẻ: Lê Hùng Quốc | Ngày: | Loại File: DOC | Số trang:2

Thêm vào BST

Báo xấu

167
lượt xem 28
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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ôi và 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..

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Khóa phím close trong Access

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