Need to Upgrade VB(SV5.0) push button with Windows Msgbox popup to PG2
HI Experts,
I have VB pushbutton with below specified scripting where as while clicking on that pushbutton windows msgbox appears for the operator confirmation, this need to be migrated to PG2.
Need assistance for this how to do this.
TRied methods,
created one scripting aspect and wrote the VB scripts and wwanted to browse that in Verb invoker in display level. But not sure how to browse the variable from the scripting aspect to verb invoker.
![]()
Msgbox with Pop up while pressing above RESET button

script written in VB for the RESET button
Private Sub Command1_Click() Dim Reply Reply = MsgBox("Confirm FQI4360 Reset", vbOKCancel) 'On Error GoTo Command1_error' if Err.Number <> 0 then MsgBox "Exception occurred: " & Err.Description If Reply <> 1 then Exit_reset 'Object_FQI4360A("DT1/DATA1") = 1' 'Exit_reset' Exit Sub 'Command1_error:' 'Call ReportError("command1_click", Err.source, Err.Description, "", 0)' End Sub
Thanks
Nandhini D
I have VB pushbutton with below specified scripting where as while clicking on that pushbutton windows msgbox appears for the operator confirmation, this need to be migrated to PG2.
Need assistance for this how to do this.
TRied methods,
created one scripting aspect and wrote the VB scripts and wwanted to browse that in Verb invoker in display level. But not sure how to browse the variable from the scripting aspect to verb invoker.
Msgbox with Pop up while pressing above RESET button
script written in VB for the RESET button
Private Sub Command1_Click() Dim Reply Reply = MsgBox("Confirm FQI4360 Reset", vbOKCancel) 'On Error GoTo Command1_error' if Err.Number <> 0 then MsgBox "Exception occurred: " & Err.Description If Reply <> 1 then Exit_reset 'Object_FQI4360A("DT1/DATA1") = 1' 'Exit_reset' Exit Sub 'Command1_error:' 'Call ReportError("command1_click", Err.source, Err.Description, "", 0)' End Sub
Thanks
Nandhini D
Answers
I would not blend in a scripted & potentially modal message box into PG2.
Why not call an overlapping PG2 Display Element or PG2 Faceplate having a singular button executing the protected command?
Why not call an overlapping PG2 Display Element or PG2 Faceplate having a singular button executing the protected command?
You may stuck in a dead end job on attempts to reproduce VB6 scripts .
Rather add Item hosted element "Bool Dew" directly on PushButton in PG2 graphic. BoolDew shows 2 selection , you can set texts like e.g. Confirm / Cancel. Assign you bool variable to Bool dew. Keep PushButton>Target=Null. Operators love Bool dews :)
Rather add Item hosted element "Bool Dew" directly on PushButton in PG2 graphic. BoolDew shows 2 selection , you can set texts like e.g. Confirm / Cancel. Assign you bool variable to Bool dew. Keep PushButton>Target=Null. Operators love Bool dews :)
Add new comment