|
#2
Artless2012-03-25 22:39
|
求救用end出现VB调试死机直接终止VB不知道为什么！！昨天还好好的！今天就出问题了！编译生成.EXE后运行正常
就是退出的时候出现提示：系统已停止工作
下面是详细信息
C:\Users\Administrator\AppData\Local\Temp\WER615A.tmp.WERInternalMetadata.xml
C:\Users\Administrator\AppData\Local\Temp\WER83E7.tmp.appcompat.txt
C:\Users\Administrator\AppData\Local\Temp\WER83F8.tmp.mdmp
如果是VB 调试状态退出时直接使得VB死机退出VB
帮我看看什么问题：问题可能出在END上面下面是我的窗体中的代码：
1.把窗体的XX按钮变成最小化到托盘
2.在托盘上右击鼠标弹出退出选项直接退出程序
的功能同 2
--------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)'XX变成最小化到托盘
Cancel = 1
Me.Hide
End Sub
--------------------------------------------------------------
Private Sub mnuTrayClose_Click()'托盘上鼠标右建弹出退出菜单退出程序
RemoveFromTray ‘模块删除托盘图标
End
End Sub
------------------------------------------------------------
Private Sub Command3_Click() '退出程序
myval = MsgBox("确定退出吗？", vbYesNo, "系统")
If myval = vbYes Then
RemoveFromTray
End
End If
Me.Hide
End Sub
还有，我用了下面的定时东西
---------------------------------------
就是调用系统时间做对比是不是下面这个的问题？
Private Sub Timer2_Timer()
If Now >= dtNextTime Then ’dtNextTime是设定的时间
Me.Show
Command4_Click
Timer2.Enabled = False
End If
End Sub
[ 本帖最后由 wxflw 于 2012-3-25 17:27 编辑 ]
