Hello no matter what I'm doing button doesn't appear in menu. What am I doing wrong?
Whole Code
Imports System
Imports System.Net.Mime.MediaTypeNames
Imports pfcls
Module emptyButton
Public Sub Main()
Try
addTerminationListener()
AddMenuAndButton()
'System.Threading.Thread.Sleep(50000)
Catch ex As Exception
Console.Write(ex)
Finally
End Try
End Sub
Private Sub addTerminationListener()
Dim terminationListener As New ProEExitListener()
Dim asynconn As New CCpfcAsyncConnection
Dim session As pfcls.IpfcSession
Try
session = asynconn.Connect(Nothing, Nothing, Nothing, 1).Session
session.asyncConnection.AddActionListener(terminationListener)
Catch ex As Exception
End Try
End Sub
Private Class ProEExitListener
Implements IpfcAsyncActionListener
Implements ICIPClientObject
Implements IpfcActionListener
Public Function GetClientInterfaceName() As String Implements pfcls.ICIPClientObject.GetClientInterfaceName
GetClientInterfaceName = "IpfcAsyncActionListener"
End Function
Public Sub OnTerminate(ByVal _Status As Integer) Implements pfcls.IpfcAsyncActionListener.OnTerminate
Dim aC As pfcls.IpfcAsyncConnection
aC = (New CCpfcAsyncConnection).GetActiveConnection
aC.InterruptEventProcessing()
End Sub
End Class
Private Sub AddMenuAndButton()
Dim asynconn As New CCpfcAsyncConnection
Dim session As pfcls.IpfcSession
Dim inputCommand As IpfcUICommand
Dim buttonListener2 As IpfcUICommandActionListener
Try
session = asynconn.Connect(Nothing, Nothing, Nothing, 1).Session
buttonListener2 = New ButtonListener()
inputCommand = session.UICreateCommand("INPUT", buttonListener2)
session.UIAddMenu("VB-Async", 'menu name
Nothing, 'NeighbourItem
"pfcAsynchronousModeExamples.txt", 'msgFile
Nothing 'parent
)
session.UIAddButton(inputCommand, 'command
"VB-Async", 'menu name
Nothing, 'neighborButton
"USER Async App", 'ButtonName
"USER Async Help", 'Message
"pfcAsynchronousModeExamples.txt" 'msgFile
)
Catch ex As Exception
Console.Write(ex)
End Try
End Sub
Private Class ButtonListener
Implements pfcls.IpfcUICommandActionListener
Implements ICIPClientObject
Public Function GetClientInterfaceName() As String _
Implements ICIPClientObject.GetClientInterfaceName
GetClientInterfaceName = "IpfcUICommandActionListener"
End Function
Public Sub OnCommand() Implements pfcls.IpfcUICommandActionListener.OnCommand
Me.UserFunction()
End Sub
Public Sub UserFunction()
Console.Write("hello i'm doing something")
End Sub
End Class
End Module
MSG file
#VB-Async
VB-Async
VB-Async
#USER Async App
USER Async App
USER Async App
#USER Async Help
USER Async Help
USER Async Help
#BEDNAR
BEDNAR
BEDNAR
#abc
abc
abc
#bcd
bcd
bcd
#abc Help
abc Help
abc Help
#bcd Help
bcd Help
bcd Help
