Đánh giá chủ đề:
  • 6 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Khóa phím close trong Access
#1
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

[Hình: hide_close001.png]



Access sau khi ẩn nút
[Hình: hide_close002.png]
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
Chào noname
Có file demo gửi giúp mình nhé
Cám ơn nhiều
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#3
Có phải nút Close X Ở bên góc phải bên Form không nhỉ?
Nút đó thì chỉ cần Off nó đi thì sao cần phải Code làm gì ??
Chữ ký của duynamvnn1208 duynamvnn1208,gia nhập Thủ Thuật Access từ 25-06 -17.
Reply
Những người đã cảm ơn
#4
Có thể dùng properties form / format : Border style = none (dấu luôn thanh title bar) hoặc Close Button = No (Chuyển nút Close sang màu xám nếu muốn ẩn luôn thêm Control Box = yes)
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] [Demo-Phần 2] Tạo khóa bản quyền (Có hạn dùng) maidinhdan 21 1,317 03-11-18, 08:57 PM
Bài mới nhất: NguyenDungAnh
  [Thủ Thuật] DeMo dùng ADODB để kết nối dữ liệu Excel và Access Xuân Thanh 9 772 18-09-18, 12:14 PM
Bài mới nhất: duynamvnn1208
  [Demo Phần 1] Tạo khóa bản quyền cho phần mềm maidinhdan 14 1,276 30-08-18, 12:12 AM
Bài mới nhất: ongke0711
  Hướng Dẫn [Video] Cách Đóng gói Access cho chuyên nghiệp maidinhdan 1 443 22-08-18, 08:32 AM
Bài mới nhất: NguyenDungAnh
  DBEngine và Workspace trong việc truyền tải dữ liệu giữa hai Database Xuân Thanh 8 522 12-08-18, 08:29 PM
Bài mới nhất: Xuân Thanh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line