Noname > 23-12-10, 08:02 PM
(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