Here's my code:
The events never fire.
So, I'm running this via a button in PC-DMIS. (User Defined Commands). But it doesn't work. Help!
Dim dmis_app As Object
Dim dmis_part_program As Object
Dim dmis_Machines As Object
Sub main()
Set dmis_app = CreateObject("PCDLRN.Application")
Set dmis_events = dmis_app.ApplicationEvents
Set dmis_part_program = dmis_app.ActivePartProgram
Set dmis_Machines = dmis_app.Machines
If (dmis_Machines.Count > 0) Then
dmis_Machine = dmis_Machines(0)
End If
Exit Sub
End Sub
Sub dmis_events_ErrorMsg(msg, msgNum)
MsgBox "Ding Dong!"
End Sub
Sub dmis_events_OnStartExecution(PartProgram)
MsgBox "Start!"
End Sub
Sub dmis_events_OnEndExecution(PartProgram, TerminationType)
MsgBox "End!"
End Sub
