| Home | Download | Bestellen | Referenzen | Support | Über uns |
|
|||||||||
|
VintaSoftBarcode.NET Library Für welche Zwecke kann ich die VintaSoftBarcode.NET Library nutzen? Diese Bibliothek wird Ihnen helfen, alle Barcodes in einem Bild aufzuspüren. Was beinhaltet die VintaSoftBarcode.NET Library? Die Bibliothek beinhaltet: In welchen Programmiersprachen kann ich die VintaSoftBarcode.NET Library nutzen? Mit der Entwickler-Lizenz oder der Site-Lizenz können sie die VintaSoftBarcode.NET Library nutzen in: Mit der Server-Lizenz können sie die VintaSoftBarcode.NET Library nutzen in: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim TifImage As System.Drawing.Image
Dim i As Integer = 0
TifImage = System.Drawing.Image.FromFile(Me.OpenFileDialog1.FileName)
Dim index As Guid
index = TifImage.FrameDimensionsList(0)
Dim dimension As System.Drawing.Imaging.FrameDimension
dimension = New System.Drawing.Imaging.FrameDimension(index)
'Total frame numbers
Dim totalFrame As Integer = TifImage.GetFrameCount(dimension)
Me.TextBox1.Text = "Total Pages: " & totalFrame
'Init
Dim currentFrame As Integer = 0
Dim barcodeReader As BarcodeReader = New BarcodeReader(TifImage)
barcodeReader.ScanInterval = 5
barcodeReader.BarcodesToRead = 1
barcodeReader.ScanDirection = ScanDirection.LeftToRight Or ScanDirection.RightToLeft
barcodeReader.ScanBarcodeTypes = BarcodeType.Code39
Try
For currentFrame = 0 To totalFrame - 1
'Selects a page
TifImage.SelectActiveFrame(dimension, currentFrame)
Dim Infos As BarcodeInfoCollection = barcodeReader.ReadBarcodes()
If Infos.Count > 0 Then
'Process
For i = 0 To Infos.Count - 1
Me.txtDetails.Text = txtDetails.Text & "Page
" & currentFrame + 1 & ": Code " &
Infos(i).Value & Environment.NewLine
Next i
End If
Next
Catch ex As Exception
End Try
End If
End Sub
|
||||||||||