Question

vb中我想实现在关闭程序时只有在运行时单击过command1才弹出对话框，以下是代码，为什么无法实现？

代码很简单：
Private Sub Command1_Click()
dim x as integer
x=1
end sub

Private Sub Form_Unload(Cancel As Integer)
if x=1 then
msgbox(您单击过command1)
unload me
end
else
unload me
end
end if
end sub
但是运行时不管单击没单击过command1，都不弹出对话框，为什么啊？？

Answer 1

你的x不是全局变量。
Command1_Click下的x 与 Form_Unload下的x 是两个不同的变量。

像你这样情况只需定义一个全局的布尔性变量就行了。

我虽然没有给你写代码，但我告诉了你原因，知道了原因，就能自己学会修改代码了，呵呵。

Answer 2

dim x as integer

放在窗体级

Private Sub Command1_Click()
dim x as integer ‘这样是过程变量 和Form_Unload中x无关
x=1
end sub

改成
dim x as integer

Private Sub Command1_Click()
x=1
end sub

Private Sub Form_Unload(Cancel As Integer)
if x=1 then
msgbox("您单击过command1")
unload me
end
else
unload me
end
end if
end sub

dim x as integer
放在代码窗 通用 声明 部分

Answer 3

改成：
Dim x As Integer

Private Sub Command1_Click()
x = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
If x = 1 Then
MsgBox ("您单击过command1")
Else
Unload Me
End If
End Sub

因为：如果在cmd里面声明变量那么紧对cmd有效
如果声明全局变量，那么就对该窗体的所有过程有效。

Answer 4

dim x as integer

Private Sub Command1_Click()
x=1
end sub

Private Sub Form_Unload(Cancel As Integer)
if x=1 then msgbox "您单击过command1"
end sub