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
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE