Question

VB中怎么让程序必须点击了窗口上的command1才能关闭？

我知道好像要在窗体的queryunload事件中写代码，哪位帮帮忙
我试了一下，应该写Cancel＝1才可以禁止通过窗体右上角的“×”关闭。
我的意思是窗体上只有一个Command1，它的作用是点击了之后进行正弦运算。而关闭程序就通过窗体右上角的“×”来执行，但关闭前必须让用户进行了一次正弦运算。

Answer 1

在queryunload里面写

cancel=true
call cammand1_click() '调用哪个函数

在按纽里面写
你的函数
end

ps:cancel=true 和 cancel=1 是一样的
cancel是布尔类型变量 值有 1 和 0
或者true 和 false 两个

Answer 2

Dim s As Integer

Private Sub Command1_Click()
s = 0
End Sub

Private Sub Form_Load()
s = -1
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = s
End Sub