使用VB6 IDE END调试时，请处置和/或完成不调用

问题描述

| 不久前从我的问题开始。 我已经解决了与此有关的大部分内容。 检测COM对象何时超出范围 现在，在开发人员处理VB6代码时，我面临一个新问题。如果他们在IDE中运行项目，然后按END，则将调用Dispose或Finalize。就像VB6的Debugging部分只是立即分离而无需调用dispose等。 我已经通过使用标准应用程序close进行了测试，并且从COM-> .NET组件调用了Finalize，并且我的线程关闭了，但是如果按下End按钮，则没有Finalise，也没有Dispose，并且我的线程一直在运行。 在组件内部，我尝试了

bool debuggerAttachedatStart = System.Diagnostics.Debugger.IsAttached;
System.Windows.Forms.MessageBox.Show(\"The Debugger is currently -\" + debuggerAttachedatStart);

但是当您在VB6中运行它时，它总是False。 我离开Process Explorer并查看了VB6，我注意到它在Debugging会话启动时创建了一个Event对象，但是每次启动时它都是唯一的GUID。 （\\ Sessions \\ 1 \\ BaseNamedObjects {70FAF0B5-A76B-4C6A-92BE-5201B2335871}） 只是想知道我是否可以做些什么，以便可以优雅地检测到VB6中的调试已停止（或开始）。     

解决方法

        不，您无能为力。停止调试不会使您的程序有机会运行代码。     ,        我相信我可能已经找到了一个解决方案，并认为我会分享它，以防有人对如何正常执行线程关闭有更好的了解。 在我的.NET程序集中，添加另一个事件定义

<InterfaceType(ComInterfaceType.InterfaceIsIUnknown),Guid(Manager.EventsId)> _
Public Interface IManagerEvents
    \'Others Removed
    <DispId(4)> Sub HostAlive(ByRef alive As Boolean)
End Interface

并在代码定义中添加     公共委托子HostAliveDelegate（ByRef状态为布尔值） 现在在Code的主要区域，因为我们将要与VB6交谈，所以我们需要使用正确的线程，因此请获取SyncContext。并设置线程。

public sub New()
    Dim operation As ComponentModel.AsyncOperation
    operation = AsyncOperationManager.CreateOperation(Nothing)
    mSync = AsyncOperationManager.SynchronizationContext
    operation.OperationCompleted()
    \'setup thread work.....
end sub 

Private Sub ConnectPipe()
    Dim lastAliveCheck As DateTime
    lastAliveCheck = DateTime.Now.AddSeconds(2)
    While Not mRunningEvent.Wait(0)


      \'do all the work to prepar and setup the PIPE.
      \'if we successfully connect
        Using NoOpTimer As New Threading.Timer(New Threading.TimerCallback(AddressOf TimerTicks),mPipe,2000,2000)
            \'If we disconnect,this Event gets allowing the exit and reconnect to commence
            mConnectedHold.WaitOne()
        End Using

        \'we must have not connected so ensure that we are still inside a running process
            PipeLog.Write(\"Attempting reconnect to named pipe\")
            mConnectedStopper.Wait(500)
            If DateTime.Now > lastAliveCheck Then
                lastAliveCheck = DateTime.Now.AddSeconds(2)
                Dim e As New HostAliveEventArgs()
                OnHostAlive(e)
                If Not e.IsAlive Then
                    \'The host did not set the event. Make sure the event is wired up and setting the value to true.
                    Exit While
                End If
            End If
    End While
    DisposePipe
    mExitingEvent.Set()
End Sub       

Protected Sub OnHostAlive(ByVal e As HostAliveEventArgs)
    mSync.Send(AddressOf OnHostAliveContextPost,e)
End Sub

Private Sub OnHostAliveContextPost(ByVal state As Object)
    Dim e As HostAliveEventArgs = CType(state,HostAliveEventArgs)
    RaiseEvent HostAlive(e.IsAlive)
End Sub   

在利用此组件的VB6类内部。

Private WithEvents comm As IPSClient_Intercommunication.Manager

Private Sub Class_Initialize()
    Set comm = New IPSClient_Intercommunication.Manager
End Sub

Private Sub comm_HostAlive(ByRef alive As Boolean)
    alive = True
End Sub

我发现的是，即使您使用CustomEvent，它也始终是绑定的，因此您不能仅仅确定没有连接的事件委托和断开连接。如果主机应用程序已关闭，则在引发事件时，该事件不会将alive设置为true，并且可以假定它已被中止。