Added conversion for US barcode scanner
This commit is contained in:
parent
bfba757b6a
commit
e5ac69e7e9
@ -292,4 +292,29 @@ Public Class Main
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub IDBox_KeyDown(sender As Object, e As KeyEventArgs) Handles IDBox.KeyDown
|
||||
Select Case e.KeyCode.ToString()
|
||||
Case "D0"
|
||||
IDBox.Text = IDBox.Text & "0"
|
||||
Case "D1"
|
||||
IDBox.Text = IDBox.Text & "1"
|
||||
Case "D2"
|
||||
IDBox.Text = IDBox.Text & "2"
|
||||
Case "D3"
|
||||
IDBox.Text = IDBox.Text & "3"
|
||||
Case "D4"
|
||||
IDBox.Text = IDBox.Text & "4"
|
||||
Case "D5"
|
||||
IDBox.Text = IDBox.Text & "5"
|
||||
Case "D6"
|
||||
IDBox.Text = IDBox.Text & "6"
|
||||
Case "D7"
|
||||
IDBox.Text = IDBox.Text & "7"
|
||||
Case "D8"
|
||||
IDBox.Text = IDBox.Text & "8"
|
||||
Case "D9"
|
||||
IDBox.Text = IDBox.Text & "9"
|
||||
End Select
|
||||
End Sub
|
||||
End Class
|
||||
|
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' en utilisant '*', comme indiqué ci-dessous :
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("0.7.0.0")>
|
||||
<Assembly: AssemblyFileVersion("0.7.0.0")>
|
||||
<Assembly: AssemblyVersion("0.8.0.0")>
|
||||
<Assembly: AssemblyFileVersion("0.8.0.0")>
|
||||
|
Reference in New Issue
Block a user