Title / Description
Code Try Message "Starting eID module...", CurrentMethodName, False, System.LogLevelInformation, True 'Dim numReaders As Integer = drEID.GetReaderCount() ' 'If numReaders = 0 Then 'drException.Throw "No eID Readers detected" 'End If ' 'For i As Integer = 0 To numReaders - 1 'Dim eid As New drEID(i, AddressOf eID_EventHandler, AddressOf eID_DataHandler) 'App.EID.Append eid Dim eid As New drEID(AddressOf eID_EventHandler, AddressOf eID_DataHandler) App.EID = eid App.EID.Run Self.Message "eID: Running", CurrentMethodName, false, System.LogLevelInformation, True 'Next i ledEiDStatus.State = Integer(drLed.StateEnum.Idle) chkUseEIDReaders.Value = Integer(CheckBox.CheckedStates.Checked) Message "", CurrentMethodName Catch ex as RuntimeException ListBoxLogger1.AddMessage Util.GetErrorDescription(ex), System.LogLevelError WindowError.ShowError ex, CurrentMethodName EIDStop End Try
Author
Highlight as C C++ CSS Clojure Delphi ERb Groovy (beta) HAML HTML JSON Java JavaScript PHP Plain text Python Ruby SQL XML YAML diff code
1.1.2
1.1.2