使表單右上角的 'X' 按鈕失效的簡便方式 (初學者適用)(編號：7811)

我們都知道運用API函數可以做到將表單右上角的 'X' 按鈕desabled, 也就是不能按
但是此方式要懂得API,還要知道怎麼用,而且撰寫上較麻煩
對於VB的初學者來講太困難
以下程式碼可以不呼叫API而讓 'X' 按了沒作用(是按了沒作用,不是不能按)
給大家參考參考~　^_^
首先宣告一個Form範圍的Boolean變數:
Dim f_bXX As Boolean
再在標單上佈置一個 CommandButton
將以下程式碼copy到VB中
OK, 讓讓看吧~
Private Sub Form_Load()
Command1.Caption = "關閉表單"
End Sub
Private Sub Command1_Click()
f_bXX = True
　　Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
If f_bXX = False Then Cancel = True
End Sub