Có thể bạn quan tâm
Hôm nay chúng ta lại tiếp tục đi tìm hiểu vb nhé.
Bình thường chúng ta làm nút “thoát” để thoát form hoặc ấn vào nút “X” màu đỏ để tắt form nhưng thường thì chỉ nút thoát mới có Msgbox để hỏi còn nút “X” thì không? Hôm nay chúng ta sẽ làm Msgbox hỏi có thoát không khi ấn vào nút “X” màu đỏ nhé

Hỏi trước khi tắt form bằng dấu X
Chúng ta sẽ dùng QueryUnload. xem thêm về QueryUnload
CODE:
'Hoi co thoat khong khi click vào nut x Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Thoat2 = MsgBox("Ban co muon ghe tham web www.levantoan.com " + vbCrLf + "va thoat chuong trinh khong?", vbYesNoCancel + vbQuestion, "Thoat chuong trinh") If Thoat2 = vbYes Then myweb_Click Cancel = 0'Cancel = 0 sẽ thoát form ElseIf Thoat2 = vbNo Then Cancel = 0 Else Cancel = 1'Cancel = 1 sẽ không thoát form nữa End If End Sub
Download về tham khảo
Chúc các bạn thành công ^^
- Bình luận