VB-Helper：坚守脚本

领测软件测试网

            m_Objects.Item(eventSourceName)
         Return result
      Catch ex As Exception
         Throw New VsaException_
            (VsaError.EventSourceTypeInvalid)
      End Try
   End Function
   Public Function GetGlobalInstance(ByVal name _
      As String) As Object Implements _
      Microsoft.Vsa.IVsaSite.GetGlobalInstance
      Try
         Dim result As Object = m_Objects.Item(name)
         Return result
      Catch ex As Exception
         Throw New VsaException_
            (VsaError.GlobalInstanceInvalid)
      End Try
   End Function
   Public Sub Notify(ByVal notify As String, ByVal _
      info As Object) Implements _
      Microsoft.Vsa.IVsaSite.Notify
   End Sub
   Public Function OnCompilerError(ByVal [error] As _

文章来源于领测软件测试网 https://www.ltesting.net/