| Accueil | Télécharger | Inscription | Opinions | Maintenance | Infos |
|
|||||||||
|
VintaSoftBarcode.NET bibliotheque Pour quels buts je peux utiliser la bibliothèque? La bibliothèque en question peut être utilisée pour la lecture des codes à barres des images. Que la bibliothèque VintaSoftBarcode.NET comprend-elle? La bibliothèque comprend: Dans quels langages de programmation je peux utiliser la bibliothèque VintaSoftBarcode.NET? Licence pour développeur et licence pour une société permettent utiliser bibliothèque à: Licence pour serveur permettent utiliser la bibliothèque à: 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
|
||||||||||