Question

●菜鸟问题● 【VB6.0】点击右上角的退出按钮不退出 而是后台工作

点击右上角的退出按钮不退出 而是后台工作
像是很的软件一样,如:千千静听,点退出后还能在右下角保留图标继续运行!
1楼的连百度号都想盗???

Answer 1

应该在form_unload中加这些代码。
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1 '关键语句
Me.Hide
'你可以在此处加入托盘图标代码，以实现和千千静听一样的效果！
End Sub

Answer 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True '关键语句
Me.Hide
'你可以在此处加入托盘图标代码，以实现和千千静听一样的效果！
End Sub