Public Class frm_BTfreig
 
    Private ReadOnly accessLayer As GuiAccessLayer
 
Private Sub frm_BTfreig_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        AddHandler BarcodeDecodingDevice.Instance.NewTypeDecoded, AddressOf _
        Instance_NewTypeDecoded
        AddHandler BarcodeDecodingDevice.Instance.TriggerKeyPressed, AddressOf _
        Instance_TriggerKeyPressed
        AddHandler BarcodeDecodingDevice.Instance.TriggerKeyReleased, AddressOf _
        Instance_TriggerKeyReleased
        AddHandler BarcodeDecodingDevice.Instance.DecodeTimeout, AddressOf _
        Instance_DecodeTimeout
 
 
        Dim settings As DecodingDeviceSettings = _
          BarcodeDecodingDevice.Instance.DecodingDeviceSettings
        settings.RemoveAllDecodingTypes()
 
        Barcode_1D.Code128.MinLength = 8
        Barcode_1D.Code128.MaxLength = 20
        settings.AddDecodingType(Barcode_1D.Code128)
 
        BarcodeDecodingDevice.Instance.DecodingDeviceSettings = settings
        BarcodeDecodingDevice.Instance.Enable()
 
        Me.Button1.Focus()
 
 
 
    End Sub
 
    Private Sub Instance_DecodeTimeout(ByVal source As Object)
        Settings.PlaySystemSound(SystemSound.Exclamation)
        Timeout()
 
 
    End Sub
 
    Private Sub Instance_TriggerKeyReleased(ByVal source As Object)
        BarcodeDecodingDevice.Instance.StartDecoding()
    End Sub
 
    Private Sub Instance_TriggerKeyPressed(ByVal source As Object)
        BarcodeDecodingDevice.Instance.Aim()
 
    End Sub
 
    Private Sub Instance_NewTypeDecoded(ByVal source As Object, ByVal e As _
      HoeftUndWessel.CeLib.Device.IODevices.DecodingDevices.Events.DecodingEven_
      tArgs)
 
        Settings.PlaySystemSound(SystemSound.Ok)
 
        Me.accessLayer.UpdateControlText(Me.Label2, e.DecodedString)
 
    End Sub
 
 
    Private Sub Timeout()
        BarcodeDecodingDevice.Instance.Disable()
        BarcodeDecodingDevice.Instance.Enable()
    End Sub
 
 
 
    Public Sub New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
        Me.accessLayer = New GuiAccessLayer(Me)
 
    End Sub
 
 
End Class