Public Class FINDEMPPINEventArgs
Inherits System.EventArgs
' Dim mode As modExtensions = New modExtensions()
'Dim cv As cVerifone = New cVerifone()
Public Property cMx900Series1 As Object = New cMx900Series()
Public Property cVerifone1 As Object = New cVerifone()
End Class
Public Class Sender
Public Event Start(ByVal sender As Object, ByVal e As FINDEMPPINEventArgs)
Protected Overridable Sub OnStart(ByVal e As FINDEMPPINEventArgs)
RaiseEvent Start(Me, e)
End Sub
Dim cVerifone1 = New cVerifone()
cVerifone1.Send("Pin ENTERED", "<STX>XEVT<FS>0<FS>ControlID<FS>ON_KEYPRESS<FS>1<ETX>")<---cVerifone1 has the error
End Class
Public Class Receiver
Friend WithEvents MySender As Sender
Private Sub MySender_Start(ByVal sender As Object, _
ByVal e As FINDEMPPINEventArgs) Handles MySender.Start
getenteredPin()
End Sub
Private Sub getenteredPin()
'cMx900Series = New cMx900Series()
cMx900Series1.ProcessCommand()
EMPPINENTERED = cMx900Series1.EMPPINENTERED.ToString()
MessageBox.Show(EMPPINENTERED.ToString())
End Sub
Private Function cVerifone1() As Object
End Function
Private Function cMx900Series1() As Object
End Function
End Class
Public Class FINDEMPPINEventArgs
Inherits System.EventArgs
Public Property sender As Sender = New Sender
Public Property cMx900Series1 As Object = New cMx900Series()
Public Property cVerifone1 As Object = New cVerifone()
Public Sub callToStart()
sender.gostart()
End Sub
End Class
Public Class Sender
Public Property FINDEMPPIN As FINDEMPPINEventArgs = New FINDEMPPINEventArgs()
Public Shared Event Start(ByVal sender As Object, ByVal e As FINDEMPPINEventArgs)
Protected Overridable Sub OnStart(ByVal e As FINDEMPPINEventArgs)
RaiseEvent Start(Me, e)
End Sub
Dim cVerifone1 = New cVerifone()
FINDEMPPIN.callToStart() <--------------------------------------------------------------------HERE FINDEMPPIN
Public Sub gostart()
Dim maiform = New MainForm()
MainForm.Send("Pin EMP_PIN", "<STX>XEVT<FS>0<FS>", "ControlID", "<FS>ON_KEYPRESS<FS>1<ETX>")
End Sub
End Class
Public Class Receiver
Friend WithEvents MySender As Sender
Private Sub MySender_Start(ByVal sender As Object, _
ByVal e As FINDEMPPINEventArgs) Handles MySender.Start
getenteredPin()
End Sub
Private Sub getenteredPin()
'cMx900Series = New cMx900Series()
cMx900Series1.ProcessCommand()
EMPPINENTERED = cMx900Series1.EMPPINENTERED.ToString()
MessageBox.Show(EMPPINENTERED.ToString())
End Sub
Private Function cVerifone1() As Object
End Function
Private Function cMx900Series1() As Object
End Function
End Class