Question

vb 点击关闭按钮时窗体隐藏

点击关闭按钮时窗体隐藏
点击command1 又能实现 Unload Me
我是说点击关闭按钮 窗体隐藏而不是触发Unload Me 关闭按钮指的是右上方的×

按照一楼那样说的 并不能实现 点击command1 又能实现 Unload Me

我没说清楚 实际上我弄了个托盘功能 就是使得点击关闭按钮时窗体隐藏
然后右键单击托盘图标在弹出的退出选项单击时能实现 Unload Me 功能

Answer 1

用UnloadMode进行判断,点窗体关闭按钮时UnloadMode = 0，其它情况为非0
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
Cancel = 1
Me.Hide
End If
End Sub

Answer 2

vb 点击关闭按钮时会产生 UnloadMode = 0，可以通过它来判断实现。

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then 
Me.Hide
Cancel = 1
End if
End Sub

Answer 3

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Me.Hide
End Sub

Answer 4

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Me.Hide
End Sub

Answer 5

在command1下输入me.hide