Question

vb6.0 点击最大化最小化和关闭（有上角的）触发什么事件

vb6.0 点击最大化最小化和关闭（有上角的）触发什么事件，另外我有一段代码想不管你用什么方式关闭，在关闭之前都能执行，请问应该写在什么事件里

Answer 1

QueryUnload 事件是在任一个卸载之前在所有窗体中发生，而 Unload 是在每个窗体卸载时发生。form_queryunload 事件发生在 form_unload 前面，其参数 UnloadMode 可指示出是用何种方式来请求关闭窗体的。

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'捕获到关闭窗体的请求
Select Case UnloadMode
Case vbFormControlMenu
'点击窗体关闭按钮
'cancel=true 可以取消关闭窗体动作
Case Else
'其它方式引起窗体关闭，还有其它常数，这里不列举了
End Select
End Sub

通过窗体大小变化时判断窗体状态来确定哪个按钮被按下。
Private Sub Form_Resize()
Select Case Form1.WindowState
Case vbNormal
'还原按钮被按下或窗体大小发生改变
Case vbMinimized
'最小化按钮被按下
Case vbMaximized
'最大化按钮被按下
End Select
End Sub

Answer 2

点击最大化或最小化或还原按钮Resize事件：
if me.windowstate=0 then
正常
elseif me.windowstate=1 then
最小化
elseif me.windowstate=2 then
最大化
end if
点击关闭按钮先触发QueryUnload再触发Unload

Answer 3

既然想不管怎样都要执行
可以把你要执行的那段代码改成一个函数
然后在单击右上角的按钮的时候 调用这个
函数就好了
这是最简单的方法了

Answer 4

最初步的.Form_Resize
你在里面判断windowstate就行了

如果说是点按钮的话
那是WM_NCLBUTTONDOWN WM_NCLBUTTONUP自己用wndproc捕获

Answer 5

应该是form_resize和form_unload
应该写在unload里面。。

Answer 6

最大化最小化是resize
关闭是unload