Tùy chọn
Tắt nút Close của cửa sổ window ok rồi
- Tắt nút Close của cửa sổ window ok rồi
-
Tắt nút Close của cửa sổ window ok rồi
phanthang > 02-01-11, 08:55 PM
Tôi đã tạo nút thoát cho chương trình nên muốn người dùng sử dụng nút thoát đó, nên tôi muốn ẩn nút close (X) của cửa sổ window thì làm như thế nào.
Tôi có tham khảo bài viết hướng dẫn như sau: thêm đoạn 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.
nhưng tôi chưa hiểu chỗ này mong các bác chỉ giáo tôi với. Hướng dẫn chi tiết nhé vì tôi chưa được học qua access nên tôi không biết mấy đâu, tôi chỉ tự học trên sách thôi. -
RE: GIÚP TÔI VỚI........... Tắt nút Close của cửa sổ window
phanthang > 15-01-11, 11:59 PM
Tôi đã ẩn được nút Close của cửa sổ windows rồi. nhưng nó chỉ mờ đì và khi kích chuột vào nó sẽ không nhận lệnh nữa mà bắt buộc phải ấn vào nút thoát mà ta tạo ra cho chương trình -
RE: Tắt nút Close của cửa sổ window ok rồi
mrchau911 > 16-01-11, 04:39 PM
bạn đã chọn được close buttons để ẩn nút Thoát của Win . thì bạn tạo 1 command . viết lệnh cho nó .
1 là lệnh đóng Form khi đóng thì về form (lệnh [ DoCmd.Close] ).
2 là lệnh đóng Form khi đóng về Win lệnh:
Private Sub CmdExit_Click()
On Error GoTo Err_CmdExit_Click
DoCmd.Quit
Exit_CmdExit_Click:
Exit Sub
Err_CmdExit_Click:
MsgBox Err.Description
Resume Exit_CmdExit_Click
End Sub
...........đọc ý bạn sao làm vậy sai thôi nha
........
-
RE: Tắt nút Close của cửa sổ window ok rồi
phanthang > 17-01-11, 06:49 PM
bạn ơi mình mới học cái này nên bạn hướng dẫn chi tiết mình được không -
RE: Tắt nút Close của cửa sổ window ok rồi
mrchau911 > 20-01-11, 10:36 AM
thì bạn vẽ 1 cái command ( nhớ là tắt chiếc đũa đi ) rồi nhấp đôi vào đó nó hiện ra phần VBA để bạn viết lệnh . bạn chỉ việc nhập [ docmd.close ] . sau đó bạn tắt cái VBA đi và thay đổi tên ban đầu thành nút Thoát hoắc đóng .
nếu bạn muốn nó thoát khỏi acc hẳn thì nhập đoạn mã về Win như trên -
RE: Tắt nút Close của cửa sổ window ok rồi
devil_lbmnc > 12-02-11, 01:27 PM
Bác nào có thể giúp mình tắt nút Close của form mà không phải của window không vậy? -
RE: Tắt nút Close của cửa sổ window ok rồi
mrchau911 > 14-02-11, 10:07 AM
(12-02-11, 01:27 PM)devil_lbmnc Đã viết: Bác nào có thể giúp mình tắt nút Close của form mà không phải của window không vậy?
đầu tiền là bạn ẩn được dấu [ X ] hiện thì trên form làm như sau : vào form nhấn F4 tìm chữ [close buttons] -> chọn OFF
sau đó bạn vẽ 1 cái command . nhấp đôi sau đó nó hiện lên cái code VBA . nhập zô .[ docmd.close ]
thoát ra ngoài cho form chạy và xem kết quả
chúc bạn thành công
-
RE: Tắt nút Close của cửa sổ window ok rồi
Binh > 14-02-11, 10:14 AM
Tắt nút close của Form ko viết code: Bạn có thể mở Form ở chế độ Design, mở Properties của Form đó lên, set Format/ Close Button ở chế độ No. -
RE: Tắt nút Close của cửa sổ window ok rồi
mrchau911 > 14-02-11, 10:18 AM
ko ý mình là . ẩn nút X của form rồi viết lệnh vào 1 command để người xem thoát khỏi form . chứ mình hỏi bạn nếu như tắt nút X mà không tự làm 1 cái command để thoát khỏi form đó thì ................. ?