还有不知道有没有这种可能,就是我这个试程序是否正确的方法太特殊,我反复的点击启动和退出,两者间隔时间很短就3 4秒,还有一点就是我的程序在运行的时候没有错误,就是在退出软件的时候出错。下面附上退出事件的具体程序: '函数名称:Command3_Click '函数作用:停止采集并退出软件 '/***********************************************************/ Private Sub Command3_Click() If MSComm1.PortOpen = True Then '退出时先要关闭串口 MSComm1.PortOpen = False End If
If Timer1.Enabled = True Then
Timer1.Enabled = False End If
If Form3.Timer1.Enabled = True Then Form3.Timer1.Enabled = False End If '下面的程序都在Module1里面 Call TabDel1(Adodc8) '删除报警故障表 Call TabDel2(Adodc1) ' 删除数据采集表 Call TabDel3(Adodc6) ' 删除实时显示表 Call TabDel4(Adodc3) '删除历史数据表 Call TabDel5(Adodc4) '删除数据显示表
'函数名称:Command3_Click
'函数作用:停止采集并退出软件
'/***********************************************************/
Private Sub Command3_Click()
If MSComm1.PortOpen = True Then '退出时先要关闭串口
MSComm1.PortOpen = False
End If
If Timer1.Enabled = True Then
Timer1.Enabled = False
End If
If Form3.Timer1.Enabled = True Then
Form3.Timer1.Enabled = False
End If
'下面的程序都在Module1里面
Call TabDel1(Adodc8) '删除报警故障表
Call TabDel2(Adodc1) ' 删除数据采集表
Call TabDel3(Adodc6) ' 删除实时显示表
Call TabDel4(Adodc3) '删除历史数据表
Call TabDel5(Adodc4) '删除数据显示表
'卸载Form1、Form2以及Form3,退出软件
Unload Form3
Unload Form2
Unload MeEnd Sub