Question

我必须在一个大项目中添加一些代码（这个项目不是我的..）

在此应用程序的第一种形式上运行此Sub

Dim tasks(95) As Long
Public Sub Init()
    Dim index As Integer
    For index = 0 To 94
     tasks(index) = CreateTaskForLine("Pulser", index)
    Next
End Sub

它打开了94个线程，每个端口在我的程序中使用它问题是，我不知道何时关闭它们。...此表单未真正加载到任何地方...

此表单称为“ Form_com”，我将init用作

 Form_com.Init

在第一个运行表单上（我们称它为form1）... 这个第一次运行的是在加载后关闭的，关闭后我仍然需要这个线程，所以当这个form1关闭时我无法关闭这个线程...

我知道这是退出运行的应用程序的按钮

Private Sub EXIT_p_Click()
    If MsgBox("Exit -- yes", vbYesNo, "Dialog box") = vbYes Then End
End Sub

我在Form_com中也有Sub作为Finish

Public Sub Finish()
    Dim index As Integer
    For index = 0 To 94
        DAQmxErrChk DAQmxStopTask(tasks(index))
        DAQmxErrChk DAQmxClearTask(tasks(index))
    Next
End Sub

我怎么知道该应用程序最后运行的地方？

此关键字“ End”正在运行事件吗？也许我可以使用它？我真的不确定。而且我不太了解VB6。也许我可以像在C＃中那样创建一个对象并为其创建析构函数？当应用程序关闭时，该对象将死亡，并且将为我提供关闭该线程的选项？

应用程序关闭时关闭端口VB6

0 个答案: