EUCHNER EKS ActiveX Handbuch Seite 18

Handbuch EKS ActiveX
4.2 Beispiel eines Event-Aufrufs in Visual Basic
Private Sub EKS_OnKey( )
Select Case KeyState
End Sub
Seite 18/20
® -Modul Ethernet TCP/IP
Case EKS_EVENT_KEYIN
Anwender Funktionen KeyIn
' z. B. Schlüsseldaten des EKS Key auslesen
' ACHTUNG ! Kein Aufruf der Read Methode erforderlich !
for i=0 to 123
SchluesselDaten = SchluesselDaten & EKS.Data(i)
Next i
Case EKS_EVENT_KEYOUT
Anwender Funktionen KeyOut
' z. B. Schlüsseldaten der Anwendersoftware löschen
SchluesselDaten = "-"
Case EKS_EVENT_OTHER
Anwender Funktionen Andere
' z. B. Statusnummer abfragen
Statusnummer = EKS.LastState
End Select
Technische Änderungen vorbehalten
®
2102030-03-08/23