WPF UI Barcode Reading Example - VB.NET
BarCode Reader SDK sample in VB.NET demonstrating ‘WPF UI Barcode Reading Example’
Application.xaml.vb
Class Application
' Application-level events, such as Startup, Exit, and DispatcherUnhandledException
' can be handled in this file.
End Class
MainWindow.xaml.vb
Imports System.Text
Imports Bytescout.BarCodeReader
Class MainWindow
' Select image file
Private Sub btnBrowse_Click(sender As Object, e As System.Windows.RoutedEventArgs) Handles btnBrowse.Click
Dim dlg = New Microsoft.Win32.OpenFileDialog
dlg.Filter = "Supported formats (*.bmp;*.gif;*.tif;*.png;*.jpg;*.pdf)|*.bmp;*.gif;*.tif;*.tiff;*.png;*.jpg;*.jpeg;*.pdf|All Files|*.*"
If dlg.ShowDialog() = True Then
tbFileName.Text = dlg.FileName
tbFoundBarcodes.Text = ""
imageContainer.Source = Nothing
Try
Dim bitmapImage = New BitmapImage()
bitmapImage.BeginInit()
bitmapImage.UriSource = New Uri(dlg.FileName, UriKind.Absolute)
bitmapImage.EndInit()
imageContainer.Source = bitmapImage
Catch ex As Exception
End Try
End If
End Sub
Private Sub btnDecode_Click(sender As Object, e As System.Windows.RoutedEventArgs) Handles btnDecode.Click
' Create barcode reader instance
Dim reader = New Reader()
reader.RegistrationName = "demo"
reader.RegistrationKey = "demo"
' Specify barcode types to find
reader.BarcodeTypesToFind.All = True
' Select specific barcode types to speed up the decoding process and avoid false positives.
' Show wait cursor
Mouse.OverrideCursor = Cursors.Wait
' -----------------------------------------------------------------------
' NOTE: We can read barcodes from specific page to increase performance .
' For sample please refer to "Decoding barcodes from PDF by pages" program.
' -----------------------------------------------------------------------
Try
' Search for barcodes
reader.ReadFrom(tbFileName.Text)
Finally
Mouse.OverrideCursor = Nothing
End Try
' Display found barcode inforamtion:
Dim stringBuilder = New StringBuilder()
For i As Integer = 0 To reader.FoundBarcodes.Length - 1
Dim barcode = reader.FoundBarcodes(i)
stringBuilder.AppendFormat("{0}) Type: {1}; Value: {2}.\r\n", i + 1, barcode.Type, barcode.Value)
Next
tbFoundBarcodes.Text = stringBuilder.ToString()
End Sub
End Class
Resources.Designer.vb
��' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' < a u t o - g e n e r a t e d >
' T h i s c o d e w a s g e n e r a t e d b y a t o o l .
' R u n t i m e V e r s i o n : $ c l r v e r s i o n $
'
' C h a n g e s t o t h i s f i l e m a y c a u s e i n c o r r e c t b e h a v i o r a n d w i l l b e l o s t i f
' t h e c o d e i s r e g e n e r a t e d .
' < / a u t o - g e n e r a t e d >
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
O p t i o n S t r i c t O n
O p t i o n E x p l i c i t O n
N a m e s p a c e M y . R e s o u r c e s
' T h i s c l a s s w a s a u t o - g e n e r a t e d b y t h e S t r o n g l y T y p e d R e s o u r c e B u i l d e r
' c l a s s v i a a t o o l l i k e R e s G e n o r V i s u a l S t u d i o .
' T o a d d o r r e m o v e a m e m b e r , e d i t y o u r . R e s X f i l e t h e n r e r u n R e s G e n
' w i t h t h e / s t r o p t i o n , o r r e b u i l d y o u r V S p r o j e c t .
' ' ' < s u m m a r y >
' ' ' A s t r o n g l y - t y p e d r e s o u r c e c l a s s , f o r l o o k i n g u p l o c a l i z e d s t r i n g s , e t c .
' ' ' < / s u m m a r y >
< G l o b a l . S y s t e m . C o d e D o m . C o m p i l e r . G e n e r a t e d C o d e A t t r i b u t e ( " S y s t e m . R e s o u r c e s . T o o l s . S t r o n g l y T y p e d R e s o u r c e B u i l d e r " , " 4 . 0 . 0 . 0 " ) , _
G l o b a l . S y s t e m . D i a g n o s t i c s . D e b u g g e r N o n U s e r C o d e A t t r i b u t e ( ) , _
G l o b a l . S y s t e m . R u n t i m e . C o m p i l e r S e r v i c e s . C o m p i l e r G e n e r a t e d A t t r i b u t e ( ) , _
G l o b a l . M i c r o s o f t . V i s u a l B a s i c . H i d e M o d u l e N a m e A t t r i b u t e ( ) > _
F r i e n d M o d u l e R e s o u r c e s
P r i v a t e r e s o u r c e M a n A s G l o b a l . S y s t e m . R e s o u r c e s . R e s o u r c e M a n a g e r
P r i v a t e r e s o u r c e C u l t u r e A s G l o b a l . S y s t e m . G l o b a l i z a t i o n . C u l t u r e I n f o
' ' ' < s u m m a r y >
' ' ' R e t u r n s t h e c a c h e d R e s o u r c e M a n a g e r i n s t a n c e u s e d b y t h i s c l a s s .
' ' ' < / s u m m a r y >
< G l o b a l . S y s t e m . C o m p o n e n t M o d e l . E d i t o r B r o w s a b l e A t t r i b u t e ( G l o b a l . S y s t e m . C o m p o n e n t M o d e l . E d i t o r B r o w s a b l e S t a t e . A d v a n c e d ) > _
F r i e n d R e a d O n l y P r o p e r t y R e s o u r c e M a n a g e r ( ) A s G l o b a l . S y s t e m . R e s o u r c e s . R e s o u r c e M a n a g e r
G e t
I f O b j e c t . R e f e r e n c e E q u a l s ( r e s o u r c e M a n , N o t h i n g ) T h e n
D i m t e m p A s G l o b a l . S y s t e m . R e s o u r c e s . R e s o u r c e M a n a g e r = N e w G l o b a l . S y s t e m . R e s o u r c e s . R e s o u r c e M a n a g e r ( " $ s a f e p r o j e c t n a m e $ . R e s o u r c e s " , G e t T y p e ( R e s o u r c e s ) . A s s e m b l y )
r e s o u r c e M a n = t e m p
E n d I f
R e t u r n r e s o u r c e M a n
E n d G e t
E n d P r o p e r t y
' ' ' < s u m m a r y >
' ' ' O v e r r i d e s t h e c u r r e n t t h r e a d ' s C u r r e n t U I C u l t u r e p r o p e r t y f o r a l l
' ' ' r e s o u r c e l o o k u p s u s i n g t h i s s t r o n g l y t y p e d r e s o u r c e c l a s s .
' ' ' < / s u m m a r y >
< G l o b a l . S y s t e m . C o m p o n e n t M o d e l . E d i t o r B r o w s a b l e A t t r i b u t e ( G l o b a l . S y s t e m . C o m p o n e n t M o d e l . E d i t o r B r o w s a b l e S t a t e . A d v a n c e d ) > _
F r i e n d P r o p e r t y C u l t u r e ( ) A s G l o b a l . S y s t e m . G l o b a l i z a t i o n . C u l t u r e I n f o
G e t
R e t u r n r e s o u r c e C u l t u r e
E n d G e t
S e t ( B y V a l v a l u e A s G l o b a l . S y s t e m . G l o b a l i z a t i o n . C u l t u r e I n f o )
r e s o u r c e C u l t u r e = v a l u e
E n d S e t
E n d P r o p e r t y
E n d M o d u l e
E n d N a m e s p a c e
Settings.Designer.vb
��' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' < a u t o - g e n e r a t e d >
' T h i s c o d e w a s g e n e r a t e d b y a t o o l .
' R u n t i m e V e r s i o n : 4 . 0 . 3 0 3 1 9 . 4 2 0 0 0
'
' C h a n g e s t o t h i s f i l e m a y c a u s e i n c o r r e c t b e h a v i o r a n d w i l l b e l o s t i f
' t h e c o d e i s r e g e n e r a t e d .
' < / a u t o - g e n e r a t e d >
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
O p t i o n S t r i c t O n
O p t i o n E x p l i c i t O n
N a m e s p a c e M y
< G l o b a l . S y s t e m . R u n t i m e . C o m p i l e r S e r v i c e s . C o m p i l e r G e n e r a t e d A t t r i b u t e ( ) , _
G l o b a l . S y s t e m . C o d e D o m . C o m p i l e r . G e n e r a t e d C o d e A t t r i b u t e ( " M i c r o s o f t . V i s u a l S t u d i o . E d i t o r s . S e t t i n g s D e s i g n e r . S e t t i n g s S i n g l e F i l e G e n e r a t o r " , " 1 0 . 0 . 0 . 0 " ) , _
G l o b a l . S y s t e m . C o m p o n e n t M o d e l . E d i t o r B r o w s a b l e A t t r i b u t e ( G l o b a l . S y s t e m . C o m p o n e n t M o d e l . E d i t o r B r o w s a b l e S t a t e . A d v a n c e d ) > _
P a r t i a l F r i e n d N o t I n h e r i t a b l e C l a s s M y S e t t i n g s
I n h e r i t s G l o b a l . S y s t e m . C o n f i g u r a t i o n . A p p l i c a t i o n S e t t i n g s B a s e
P r i v a t e S h a r e d d e f a u l t I n s t a n c e A s M y S e t t i n g s = C T y p e ( G l o b a l . S y s t e m . C o n f i g u r a t i o n . A p p l i c a t i o n S e t t i n g s B a s e . S y n c h r o n i z e d ( N e w M y S e t t i n g s ) , M y S e t t i n g s )
# R e g i o n " M y . S e t t i n g s A u t o - S a v e F u n c t i o n a l i t y "
# I f _ M y T y p e = " W i n d o w s F o r m s " T h e n
P r i v a t e S h a r e d a d d e d H a n d l e r A s B o o l e a n
P r i v a t e S h a r e d a d d e d H a n d l e r L o c k O b j e c t A s N e w O b j e c t
< G l o b a l . S y s t e m . D i a g n o s t i c s . D e b u g g e r N o n U s e r C o d e A t t r i b u t e ( ) , G l o b a l . S y s t e m . C o m p o n e n t M o d e l . E d i t o r B r o w s a b l e A t t r i b u t e ( G l o b a l . S y s t e m . C o m p o n e n t M o d e l . E d i t o r B r o w s a b l e S t a t e . A d v a n c e d ) > _
P r i v a t e S h a r e d S u b A u t o S a v e S e t t i n g s ( B y V a l s e n d e r A s G l o b a l . S y s t e m . O b j e c t , B y V a l e A s G l o b a l . S y s t e m . E v e n t A r g s )
I f M y . A p p l i c a t i o n . S a v e M y S e t t i n g s O n E x i t T h e n
M y . S e t t i n g s . S a v e ( )
E n d I f
E n d S u b
# E n d I f
# E n d R e g i o n
P u b l i c S h a r e d R e a d O n l y P r o p e r t y [ D e f a u l t ] ( ) A s M y S e t t i n g s
G e t
# I f _ M y T y p e = " W i n d o w s F o r m s " T h e n
I f N o t a d d e d H a n d l e r T h e n
S y n c L o c k a d d e d H a n d l e r L o c k O b j e c t
I f N o t a d d e d H a n d l e r T h e n
A d d H a n d l e r M y . A p p l i c a t i o n . S h u t d o w n , A d d r e s s O f A u t o S a v e S e t t i n g s
a d d e d H a n d l e r = T r u e
E n d I f
E n d S y n c L o c k
E n d I f
# E n d I f
R e t u r n d e f a u l t I n s t a n c e
E n d G e t
E n d P r o p e r t y
E n d C l a s s
E n d N a m e s p a c e
N a m e s p a c e M y
< G l o b a l . M i c r o s o f t . V i s u a l B a s i c . H i d e M o d u l e N a m e A t t r i b u t e ( ) , _
G l o b a l . S y s t e m . D i a g n o s t i c s . D e b u g g e r N o n U s e r C o d e A t t r i b u t e ( ) , _
G l o b a l . S y s t e m . R u n t i m e . C o m p i l e r S e r v i c e s . C o m p i l e r G e n e r a t e d A t t r i b u t e ( ) > _
F r i e n d M o d u l e M y S e t t i n g s P r o p e r t y
< G l o b a l . S y s t e m . C o m p o n e n t M o d e l . D e s i g n . H e l p K e y w o r d A t t r i b u t e ( " M y . S e t t i n g s " ) > _
F r i e n d R e a d O n l y P r o p e r t y S e t t i n g s ( ) A s G l o b a l . R e a d B a r c o d e F r o m I m a g e . M y . M y S e t t i n g s
G e t
R e t u r n G l o b a l . R e a d B a r c o d e F r o m I m a g e . M y . M y S e t t i n g s . D e f a u l t
E n d G e t
E n d P r o p e r t y
E n d M o d u l e
E n d N a m e s p a c e
MyWpfExtension.vb
#If _MyType <> "Empty" Then
Namespace My
''' <summary>
''' Module used to define the properties that are available in the My Namespace for WPF
''' </summary>
''' <remarks></remarks>
<Global.Microsoft.VisualBasic.HideModuleName()> _
Module MyWpfExtension
Private s_Computer As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Devices.Computer)
Private s_User As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.ApplicationServices.User)
Private s_Windows As New ThreadSafeObjectProvider(Of MyWindows)
Private s_Log As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Logging.Log)
''' <summary>
''' Returns the application object for the running application
''' </summary>
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend ReadOnly Property Application() As Application
Get
Return CType(Global.System.Windows.Application.Current, Application)
End Get
End Property
''' <summary>
''' Returns information about the host computer.
''' </summary>
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend ReadOnly Property Computer() As Global.Microsoft.VisualBasic.Devices.Computer
Get
Return s_Computer.GetInstance()
End Get
End Property
''' <summary>
''' Returns information for the current user. If you wish to run the application with the current
''' Windows user credentials, call My.User.InitializeWithWindowsUser().
''' </summary>
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend ReadOnly Property User() As Global.Microsoft.VisualBasic.ApplicationServices.User
Get
Return s_User.GetInstance()
End Get
End Property
''' <summary>
''' Returns the application log. The listeners can be configured by the application's configuration file.
''' </summary>
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend ReadOnly Property Log() As Global.Microsoft.VisualBasic.Logging.Log
Get
Return s_Log.GetInstance()
End Get
End Property
''' <summary>
''' Returns the collection of Windows defined in the project.
''' </summary>
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend ReadOnly Property Windows() As MyWindows
<Global.System.Diagnostics.DebuggerHidden()> _
Get
Return s_Windows.GetInstance()
End Get
End Property
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
<Global.Microsoft.VisualBasic.MyGroupCollection("System.Windows.Window", "Create__Instance__", "Dispose__Instance__", "My.MyWpfExtenstionModule.Windows")> _
Friend NotInheritable Class MyWindows
<Global.System.Diagnostics.DebuggerHidden()> _
Private Shared Function Create__Instance__(Of T As {New, Global.System.Windows.Window})(ByVal Instance As T) As T
If Instance Is Nothing Then
If s_WindowBeingCreated IsNot Nothing Then
If s_WindowBeingCreated.ContainsKey(GetType(T)) = True Then
Throw New Global.System.InvalidOperationException("The window cannot be accessed via My.Windows from the Window constructor.")
End If
Else
s_WindowBeingCreated = New Global.System.Collections.Hashtable()
End If
s_WindowBeingCreated.Add(GetType(T), Nothing)
Return New T()
s_WindowBeingCreated.Remove(GetType(T))
Else
Return Instance
End If
End Function
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1822:MarkMembersAsStatic")> _
<Global.System.Diagnostics.DebuggerHidden()> _
Private Sub Dispose__Instance__(Of T As Global.System.Windows.Window)(ByRef instance As T)
instance = Nothing
End Sub
<Global.System.Diagnostics.DebuggerHidden()> _
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
Public Sub New()
MyBase.New()
End Sub
<Global.System.ThreadStatic()> Private Shared s_WindowBeingCreated As Global.System.Collections.Hashtable
<Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> Public Overrides Function Equals(ByVal o As Object) As Boolean
Return MyBase.Equals(o)
End Function
<Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> Public Overrides Function GetHashCode() As Integer
Return MyBase.GetHashCode
End Function
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1822:MarkMembersAsStatic")> _
<Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _
Friend Overloads Function [GetType]() As Global.System.Type
Return GetType(MyWindows)
End Function
<Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> Public Overrides Function ToString() As String
Return MyBase.ToString
End Function
End Class
End Module
End Namespace
Partial Class Application
Inherits Global.System.Windows.Application
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1822:MarkMembersAsStatic")> _
Friend ReadOnly Property Info() As Global.Microsoft.VisualBasic.ApplicationServices.AssemblyInfo
<Global.System.Diagnostics.DebuggerHidden()> _
Get
Return New Global.Microsoft.VisualBasic.ApplicationServices.AssemblyInfo(Global.System.Reflection.Assembly.GetExecutingAssembly())
End Get
End Property
End Class
#End If