EUCHNER ActiveX Module serial/USB - Handbuch (Seite 18)

Handbuch EKS ActiveX
®
-Modul seriell / USB
4.2 Beispiel eines Event-Aufrufs in Visual Basic ®
Private Sub EKS_OnKey( )
Select Case KeyState
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
End Sub
Seite 18/20 Technische Änderungen vorbehalten 098655-03-10/12