Code128の出力に関して

Question

ｖｂの画面上に最大１８桁のバーコードを出力したいのですが、何をどうすればできますか？

種類はCode128です。

例えば
画面に18桁のTextBoxと『実行』と書いたボタンと、Code128の出力用の何かしらのコントロールがあるとします。

『実行』ボタン押下で、Code128の出力用の何かしらのコントロールに出力するには何が必要で、どういう記述になりますか？

アウトプットは、まずは画面で考えています。
画面をハンディスキャナで画面を読み込めたらＯＫです。

TextBoxの中を削除して、TextBoxにカーソルを充てた状態でスキャンすると、同じ値が復活するハズです。

画面のサイズに左右される面はありますが、常識的なサイズの画面とします。

以上、宜しくお願い致します。

Answer 1

Code128 のバーコードの画像を生成するには Zen.Barcode.Rendering.Framework が使えそうです。

1. Visual Basic でフォームアプリケーションを作成
2. フォームに TextBox と Button と PictureBox を配置
3. メニューの「プロジェクト」→「Nuget パッケージの管理」を選択して、「参照」タブを開いて「Zen.barcode.rendering.framework」を検索してインストール
4. 次のようなコードでバーコード画像をピクチャーボックスへ出力
   
   

Imports Zen.Barcode

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.TextLength > 0 Then
            Dim maxheight As Integer = 40
            Dim barcode128 As Code128BarcodeDraw = BarcodeDrawFactory.Code128WithChecksum
            Dim img As Image = barcode128.Draw(TextBox1.Text, maxheight)
            PictureBox1.Image = img
        End If
    End Sub
End Class

※ディスプレイの DPI に応じてバーコード画像の拡縮を行う必要があります。

参考サイト: https://stackoverflow.com/questions/35054358/how-to-use-barcode-rendering-framework-codeplex

Answer 2

有難うございます。とりあえず、ちょっと試してみます。

Answer 3

Code128 のバーコードの画像を生成するには Zen.Barcode.Rendering.Framework が使えそうです。

1. Visual Basic でフォームアプリケーションを作成
2. フォームに TextBox と Button と PictureBox を配置
3. メニューの「プロジェクト」→「Nuget パッケージの管理」を選択して、「参照」タブを開いて「Zen.barcode.rendering.framework」を検索してインストール
4. 次のようなコードでバーコード画像をピクチャーボックスへ出力
   
   

Imports Zen.Barcode

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.TextLength > 0 Then
            Dim maxheight As Integer = 40
            Dim barcode128 As Code128BarcodeDraw = BarcodeDrawFactory.Code128WithChecksum
            Dim img As Image = barcode128.Draw(TextBox1.Text, maxheight)
            PictureBox1.Image = img
        End If
    End Sub
End Class

※ディスプレイの DPI に応じてバーコード画像の拡縮を行う必要があります。

参考サイト: https://stackoverflow.com/questions/35054358/how-to-use-barcode-rendering-framework-codeplex

やってみました。

画面（２３インチ、フルＨＤ）のバーコードを直接スキャンしても反応なしでした。

画面のスクリーンコピーを印刷してスキャンしても反応無しでした。

画面のスクリーンコピーを印刷する際に２００％にして印刷してスキャンすると読み込みました。



大きくしないとダメみたいなので、Dim maxheight As Integer = 40を100に替えてみましたが、バーコードが縦長になっただけでした。

Answer 4

手元にバーコードリーダーがないため検証が難しいのですが、出力画像を拡縮するのはどうでしょうか？

Imports Zen.Barcode

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.TextLength > 0 Then
            Dim maxheight As Integer = 40
            Dim barcode128 As Code128BarcodeDraw = BarcodeDrawFactory.Code128WithChecksum
            Dim img As Image = barcode128.Draw(TextBox1.Text, maxheight)

            Dim zoom As Double = 2.0 ' 拡大率
            Dim img2 As New Bitmap(CInt(img.Width * zoom), CInt(img.Height * zoom))
            Dim g As Graphics = Graphics.FromImage(img2)
            g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
            g.DrawImage(img, 0, 0, img2.Width, img2.Height)
            g.Dispose()

            PictureBox1.Image = img2
        End If
    End Sub
End Class

参考サイト: https://dobon.net/vb/dotnet/graphics/interpolationmode.html

そもそも、ディスプレイに表示されたバーコードの読み取りをバーコードリーダー側が対応しているかという問題もあるかもしれません。

Answer 5

Private Sub ButtonEnter_Click(sender As Object, e As EventArgs) Handles ButtonEnter.Click
    If Me.TextBoxCode128.TextLength > 0 Then
        Dim maxheight As Integer = 100
        Dim barcode128 As Code128BarcodeDraw = BarcodeDrawFactory.Code128WithChecksum
        Dim img As Image = barcode128.Draw(Me.TextBoxCode128.Text, maxheight, 2)
        PictureBox1.Image = img
    End If
End Sub



『.Draw』に３つめの引数を指定できそうで、それで大きさは変える事が出来ました。
多分、ラインの太さのドット数を指定するのだろうと思います。

大きさを変えれたので、プリントスクリーンを印刷すればスキャンできました。
画面直接はできません。
スキャナかモニタかの問題のようです。

一旦、これはこれで完了という事にします。

有難うございました。