コードの作成
コーディングはそんなに難しくありません。2つのComboBoxとTextBoxコントロールの値を連結し、GcBarCodeコンポーネントのValueプロパティにセットします。そして、CreateBitmapメソッドを実行し、バーコードをビットマップに保存します。
保存するファイル名は、「BarCode1.bmp」「BarCode2.bmp」と、バーコードを連続して作成できるように連番を振ったファイル名にします。
CreateBitmapメソッドは、引数に画像解像度のDPI値を指定できますので、ここでは120DPIのビットマップファイルを作成するようにしています。作成したビットマップはImageオブジェクトとして変数に格納し、Saveメソッドを実行してファイルに保存します。
なお、コード作成の際は、GrapeCity.Win.BarCode名前空間をインポートしてください。
Imports GrapeCity.Win.BarCode
Public Class Form1
Private icount As Integer = 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me.ComboBox1.Items
.Add("101")
.Add("102")
.Add("103")
.Add("201")
.Add("202")
.Add("203")
.Add("301")
.Add("302")
End With
With Me.ComboBox2.Items
.Add("01")
.Add("02")
.Add("03")
.Add("04")
.Add("05")
.Add("06")
End With
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim codenumber As String
codenumber = ComboBox1.Text & ComboBox2.Text & TextBox1.Text
TextBox2.Text = codenumber
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
With GcBarCode1
.Type = GrapeCity.Win.BarCode.ValueType.BarType.JAN13
.Value = TextBox2.Text
End With
Dim imgBarcode1 As Image = GcBarCode1.CreateBitmap(120)
Dim fname As String = "j:\barcode\BarCode" & icount & ".bmp"
imgBarcode1.Save(fname, System.Drawing.Imaging.ImageFormat.Bmp)
icount += 1
End Sub
End Class
using GrapeCity.Win.BarCode;
namespace mybarcode_cs
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private int icount = 1;
private void Form1_Load(object sender, EventArgs e)
{
comboBox1.Items.Add("101");
comboBox1.Items.Add("102");
comboBox1.Items.Add("103");
comboBox1.Items.Add("201");
comboBox1.Items.Add("202");
comboBox1.Items.Add("203");
comboBox1.Items.Add("301");
comboBox1.Items.Add("302");
comboBox2.Items.Add("01");
comboBox2.Items.Add("02");
comboBox2.Items.Add("03");
comboBox2.Items.Add("04");
comboBox2.Items.Add("05");
comboBox2.Items.Add("06");
}
private void button1_Click(object sender, EventArgs e)
{
string codenumber;
codenumber = comboBox1.Text + comboBox2.Text + textBox1.Text;
textBox2.Text = codenumber;
}
private void button2_Click(object sender, EventArgs e)
{
gcBarCode1.Type = GrapeCity.Win.BarCode.ValueType.BarType.JAN13;
gcBarCode1.Value = textBox2.Text;
Image imgBarcode1 = gcBarCode1.CreateBitmap(120);
string fname = "j:/barcode/BarCode" + icount + ".bmp";
imgBarcode1.Save(fname, System.Drawing.Imaging.ImageFormat.Bmp);
icount++;
}
}
}
Service Pack 1について
なお、PlusPak for Windows Forms 5.0Jの最新版であるSP1では、新たに「GS1 DataBar」（RSSシンボル）にも対応しています。これにあわせ、Typeプロパティに次のものが追加されています。
| メンバ名 | 説明 |
|---|---|
| 22 - RSS14 | RSS14（GS1 DataBar） |
| 24 - RSS14Stacked | RSS14 Stacked（GS1 DataBar Stacked） |
| 25 - RSS14StackedOmnidirectional | RSS14 Stacked Omnidirectional（GS1 DataBar Stacked Omnidirectional） |
| 23 - RSS14Truncated | RSS14 Truncated（GS1 DataBar Truncated） |
| 26 - RSSExpanded | RSS Expanded（GS1 DataBar Expanded） |
| 27 - RSSExpandedStacked | RSS Expanded Stacked（GS1 DataBar Expanded Stacked） |
まとめ
GcBarCodeコンポーネントは、サンプルプログラムを見てお分かりのように、とても簡単にバーコードを作成します。在庫管理や売り上げ管理、固定資産管理など、今やバーコードは当たり前のようになっているので、バーコード作成のアプリケーションを自社開発するのであれば、このGcBarCodeコンポーネントはとても大きな威力を発揮すると思います。
今回は、ドロップダウンリストから倉庫・棚・商品の番号からバーコードを作成する簡単な機能にしていますが、バーコードにするデータをExcelのワークシートで一覧表にし、一気にバーコードを作成する、などということも可能です。ぜひ試してみてください。
