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)
|
MsgBox(ex.Message)
|
||||||
End Try
|
End Try
|
||||||
End Sub
|
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
|
End Class
|
||||||
|
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
|||||||
' en utilisant '*', comme indiqué ci-dessous :
|
' en utilisant '*', comme indiqué ci-dessous :
|
||||||
' <Assembly: AssemblyVersion("1.0.*")>
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
<Assembly: AssemblyVersion("0.7.0.0")>
|
<Assembly: AssemblyVersion("0.8.0.0")>
|
||||||
<Assembly: AssemblyFileVersion("0.7.0.0")>
|
<Assembly: AssemblyFileVersion("0.8.0.0")>
|
||||||
|
Reference in New Issue
Block a user