关于多种方法关闭窗口的问题??

ppsono

在一个摸快中有个方法closeform，他的功能是关闭form1窗口（用UNLOAD方法)，现在想问的是 ，我在该窗口的unload事件中怎么样来区分是方法closeform关闭的还是用form1窗体上的那个叉关闭的，不用标志变量，还有其他的方法吗，求教拉

rockyoung

在窗体的QueryUnload事件中通过UnloadMode参数
如果 UnloadMode 值为0,则是用form1窗体上的那个叉关闭的
如果 UnloadMode 值为1,则是用unload 关闭的

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Debug.Print UnloadMode
End Sub

rockyoung

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
MsgBox "窗体关闭按钮关闭"
ElseIf UnloadMode = 1 Then
MsgBox "Unload方法关闭"
End If
End Sub