Đánh giá chủ đề:
  • 5 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Giúp báo lỗi khi mở formmain
#11
(23-12-10, 06:25 PM)phanthang Đã viết: NONAME ơi cho minh hỏi, làm thế nào để ẩn nút close của windown đi, minh có tham khảo bài viết họ hướng dẫn tạo một Modul với code như sau [/code]Private Const GWL_EXSTYLE = (-20)Private Const GWL_STYLE = (-16)

Private Const WS_MAXIMIZEBOX = &H10000Private Const WS_MINIMIZEBOX = &H20000Private Const WS_SYSMENU = &H80000

Private Const HWND_TOP = 0Private Const SWP_NOMOVE = &H2Private Const SWP_NOSIZE = &H1Private Const SWP_FRAMECHANGED = &H20Private 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 LongPrivate Declare Function GetWindowLong Lib "user32" _Alias "GetWindowLongA" (ByVal hwnd As Long, _ByVal nIndex As Long) As LongPrivate 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
và sau đó phải tạo một nút nhấn và gọi hàm HideAccessCloseButton để ẩn nút close. mình chưa hiểu chỗ này, bạn có thể hướng dẫn mình được không, tạo nút nhấn ở đâu

bạn vui lòng thắc mắc ở đây:
http://thuthuataccess.co.cc/forum/Thread...ong-access

Tham khảo thêm ở đây:
http://thuthuataccess.co.cc/forum/Thread...ren-access
Chữ ký của Noname 020
ღღღღღTài sản của Noname (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
  [Help] Nhờ anh em trong diễn đàn giúp mình thiết kế chương trình báo dịch hàng ngày vinhpaint 1 254 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x
  [Help] ai giúp mình code lại sql này thành access với li_95 0 124 24-04-16, 05:59 PM
Bài mới nhất: li_95
  Hướng dẫn giúp câu lệnh mở file access khác và lệnh import data. chihienphuco 5 3,896 17-11-15, 09:47 AM
Bài mới nhất: kieu manh
  [Help] Giúp tôi bảo vệ table user thucgia 20 1,699 25-09-15, 07:41 PM
Bài mới nhất: thucgia
  trợ giúp về giao diện access quan_pc 7 4,394 24-07-15, 02:39 PM
Bài mới nhất: tranthanhan1962

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ơ