Question

vb 点击窗体Form1 右上角“X” 使窗体关闭 的代码是什么，

使关闭的窗体 再显示 的代码是什么。

Answer 1

可以让他关闭不了

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub

也可以让他隐藏，form1.hide

Answer 2

在事件FORM_UNLOAD中写入下面代码
if msgbox("确定要退出吗?",vbyesno)=vbyes then
end
else
cancel=1
endif

Answer 3

unload form1
form1.show

Answer 4

unload form1