Catching Application and Machine events in VBA. What am I doing wrong?

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

Parents

0 ferrib 5 months ago

I think that you need to declare dmis_events as a global variable and with the keyword WithEvents. Have you tried the example on the object library documentation? https://docs.hexagonmi.com/pcdmis/2024.1/en/helpcenter/mergedProjects/automationobjects/webframe.html#Accessing_Event_Subroutines.html (PC-DMIS 2024.1 Object Library > Getting Started > Accessing Event Subroutines)

Dim dmis_app As PCDLRN.Application
Dim WithEvents dmis_events As PCDLRN.ApplicationObjectEvents

Sub main()
Set dmis_app = CreateObject("PCDLRN.Application")
Set dmis_events = PCDApp.ApplicationEvents

Reply

0 ferrib 5 months ago

Dim dmis_app As PCDLRN.Application
Dim WithEvents dmis_events As PCDLRN.ApplicationObjectEvents

Sub main()
Set dmis_app = CreateObject("PCDLRN.Application")
Set dmis_events = PCDApp.ApplicationEvents

Children

No Data