Đánh giá chủ đề:
  • 4 Votes - 2.5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tắt nút Close của cửa sổ window ok rồi
#1
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.
Reply
Những người đã cảm ơn
#2
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
Reply
Những người đã cảm ơn
#3
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 big green ........
ღღღღღTài sản của mrchau911 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#4
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
Reply
Những người đã cảm ơn
#5
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
ღღღღღTài sản của mrchau911 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#6
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?
Chữ ký của devil_lbmnc Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#7
(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ôngCry_smile
ღღღღღTài sản của mrchau911 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
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.
Chữ ký của Binh Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#9
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ì ................. ?
ღღღღღTài sản của mrchau911 (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
  Khóa phím close trên Access dung 15 5,704 08-05-13, 11:47 AM
Bài mới nhất: ledangvan
  Kiểm tra phiên bản Access và Window đang sử dụng ecompc 2 1,457 17-11-11, 09:46 AM
Bài mới nhất: ecompc

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ơ