Added conversion for US barcode scanner

This commit is contained in:
JackCarterSmith 2017-06-18 20:36:25 +02:00
parent bfba757b6a
commit e5ac69e7e9
2 changed files with 27 additions and 2 deletions

View File

@ -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

View File

@ -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")>