Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports DevLib
Namespace DevApp3
Public Partial Class FrmSub1
Inherits DevLib.BaseForm
Public Sub New()
InitializeComponent()
End Sub
Public Overrides Sub RespondOnBarCodeReceived(BarCode As String)
Me.LstBarCode.Items.Add(BarCode)
End Sub
Private Sub btnClear_Click(sender As Object, e As EventArgs)
Me.LstBarCode.Items.Clear()
End Sub
Private Sub chkEnableScan_CheckStateChanged(sender As Object, e As EventArgs)
DevLibLite.DevLibEnableBarCodeScanner(Me.chkEnableScan.Checked)
End Sub
Private Sub chkEnableBeeper_CheckStateChanged(sender As Object, e As EventArgs)
DevLibLite.SetDevLibBeeperEnable(Me.chkEnableBeeper.Checked)
End Sub
End Class
End Namespace