• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Hỏi vè nút exit

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Moderator: tungblt

hoangnamfc
Posts: 5
Joined: Sun 27/06/2010 6:47 pm

Hỏi vè nút exit

Postby hoangnamfc » Sun 27/06/2010 10:06 pm

Em muốn làm 1 button exit thì code của nó như thế nào???
Và khi mình bấm exit thì nó hiện lên thông báo: Bạn có thật sự muốn thoát hay không?



User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: Hỏi vè nút exit

Postby truongphu » Mon 28/06/2010 8:38 am

  1. Private Sub Command1_Click()
  2.     Dim XacNhan
  3.     XacNhan = MsgBox("Ban thât su' muô'n thoát?", vbYesNo)
  4.     If XacNhan = vbYes Then End
  5. End Sub
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

User avatar
vuathongtin
Điều hành viên
Điều hành viên
Posts: 1028
Joined: Sun 02/05/2010 10:03 pm
Location: Xứ sở DG
Has thanked: 2 times
Been thanked: 105 times
Contact:

Re: Hỏi vè nút exit

Postby vuathongtin » Mon 28/06/2010 11:03 am

Viết cho gọn 1 tí. :D
  1. If MsgBox("Ban thât su' muô'n thoát?", vbYesNo) = vbYes Then
  2. End
  3. End If
Bùi Thành Nhân
* Chuyên gia MMO
congtacvien.online

User avatar
gtdcomputer
Thành viên danh dự
Thành viên danh dự
Posts: 1296
Joined: Fri 18/07/2008 12:08 pm
Location: Kiên Giang
Has thanked: 8 times
Been thanked: 117 times
Contact:

Re: Hỏi vè nút exit

Postby gtdcomputer » Mon 28/06/2010 2:27 pm

Theo mình thì nên cho hàm như thế này
  1. Private sub Command1_Click()
  2. Unload Me
  3. End Sub
  4. Private Sub Form_Unload(Cancel As Integer)
  5. If MsgBox("Ban thât su' muô'n thoát?", vbYesNo) = vbYes Then
  6.     Cancel = True
  7. Else
  8.     End
  9. End If
  10. End Sub
Con người không quan tâm đến sự thật. Họ tin cái họ muốn, và về sau, cái đó sẽ trở thành sự thật

User avatar
Kasper
Guru
Guru
Posts: 1063
Joined: Fri 16/05/2008 10:54 am
Has thanked: 2 times
Been thanked: 76 times
Contact:

Re: Hỏi vè nút exit

Postby Kasper » Mon 28/06/2010 4:05 pm

Code của gtdcomputer tốt hơn ở chỗ là nếu user bấm cái nút chéo trên góc phải form thì vẫn xuất hiện thông báo xác nhận thoát :D
Lành tợ tòng, ác tợ hoa,
Nhà hòa muôn việc đều nên.

User avatar
trieu4978
Thành viên chính thức
Thành viên chính thức
Posts: 22
Joined: Wed 23/06/2010 6:58 pm
Location: HCM
Contact:

Re: Hỏi vè nút exit

Postby trieu4978 » Mon 28/06/2010 4:08 pm

Theo tôi, trước khi gọi END thi phải Unload hết tất cả các form đang mở. Làm như vậy thì mới sạch memory được! Kiểu gọi thẳng thừng End một phát của anh "truongphu" và một số bạn ở trên, tôi thấy sao mà giống kiểu chia tay mà không nói rõ lý do vậy! hì hì hì!

Chia tay, em không nói lý do
Lòng anh vẫn rối như tơ vò!
Anh muốn hỏi rõ cho đỡ tủi
Dẫu biết rằng anh vẫn buồn so!

Hi hi hi! tui mới xuất khẩu thành thi đó!!!
Bao năm lầm lũi đi với đời
Vẫn bàn tay trắng với chơi vơi
Thuyền tình dăm bận rời bến nhỏ
Rượu nồng cay đắng vẫn đầy vơi!
™T


Return to “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Who is online

Users browsing this forum: No registered users and 9 guests