UC知道Form_unload问题
来源：百度知道 编辑：UC知道 时间：2024/07/08 11:25:19
Private Sub Form_Unload(Cancel As Integer)
X = MsgBox("确定退出?", 33, "退出!")
If X = vbYes Then
unload Me
unload Form1
Else
????
End If
End Sub
请问,如果我不想退出,???处我应该加什么下去啊??谢谢回答..
X = MsgBox("确定退出?", 33, "退出!")
If X = vbYes Then
unload Me
unload Form1
Else
????
End If
End Sub
请问,如果我不想退出,???处我应该加什么下去啊??谢谢回答..
cancel=-1?还是0我忘了，总之是修改这个参数。
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
X = MsgBox("确定退出?", 33, "退出!")
If X = vbOK Then
Cancel = False
Unload Me
Unload Form1
Else
Cancel = True
End If
End Sub
你的参数33，所以后面应该x=vbok
X = MsgBox("确定退出?", 33, "退出!")中的33是32+1，其中32表示显示“？”的图标，1表示显示“确定”和“取消”按钮，确定的值是1，取消的值是2，因此：
If X = 1 Then
unload Me
unload Form1
Else
????
End If
你是不是想如果点“取消”就继续，不做任何反应啊，那你可以这样编。
Private Sub Form_Unload(Cancel As Integer)
X = MsgBox("确定退出?", 33, "退出!")
If X = vbYes Then
unload Me
unload Form1
End If
End Sub