ViscomSoft Software

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ibarcodeCount As Integer
        Dim str1 As String
        Dim i As Integer
        Dim strTmp As String

        AxImageViewer1.FileName = "c:\testbarcode.bmp"
        AxImageViewer1.ConvertTo1bpp()
        ibarcodeCount = AxImageViewer1.BarCodeReadFullPage
        If ibarcodeCount < 1 Then
            MessageBox.Show("No barcode found ")
            Exit Sub
        End If

        str1 = "Total "   Str(ibarcodeCount) "BarCode Detected " Chr(13) Chr(10)

        For i = 0 To ibarcodeCount - 1
            strTmp = Me.AxImageViewer1.BarCodeGetType(i) " score:"     Str(Me.AxImageViewer1.BarCodeGetScore(i)) " value:" Me.AxImageViewer1.BarCodeGetValue(i)
            str1 = str1 Chr(13) Chr(10)  strTmp
        Next
        MessageBox.Show(str1)
    End Sub