‘引用命令空间

Imports PCDLRN

Public Class Form1

’定义程序变量和事件变量

    Public PCDApp As PCDLRN.Application

    Private WithEvents AppEvents As PCDLRN.ApplicationObjectEvents

‘定义窗体加载事件，并调用加载Pc-dmis程序

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        LaunchPCDMIS()

    End Sub

’加载Pc-dmis程序

    Private Sub LaunchPCDMIS()

        PCDApp = CreateObject("PCDLRN.Application")

        AppEvents = PCDApp.ApplicationEvents

        PCDApp.Visible = True

    End Sub

‘打开程序文件事件

    Private Sub AppEvents_OnOpenPartProgram(ByVal PartProg As PCDLRN.IPartProgram) Handles AppEvents.OnOpenPartProgram

        ' Event subroutine. This activates when you OPEN a measurement routine.

        PartProg = PCDApp.ActivePartProgram

        MessageBox.Show（"Measurement routine " & PartProg.Name & " opened. Excel should also be visible."）

    End Sub

’执行程序事件

    Private Sub AppEvents_OnStartExecution(ByVal PartProg As PCDLRN.IPartProgram) Handles AppEvents.OnStartExecution

        ' Event subroutine. This activates when you START EXECUTION of the measurement routine.

        MessageBox.Show（"STARTING EXECUTION OF " & PartProg.Name & ". Click OK to continue."）

    End Sub

‘结束程序事件

    Private Sub AppEvents_OnEndExecution(ByVal PartProg As PCDLRN.IPartProgram, ByVal TerminationType As Long) Handles AppEvents.OnEndExecution

        ' Event subroutine. This activates when you END EXECUTION of the measurement routine.

        MessageBox.Show（"ENDING EXECUTION OF " & PartProg.Name & ". Click OK to continue."）

    End Sub

End Class