宜蘭瘋狂魔術師

以前在VB6的時代要寫一個條碼產生器，有一個方便的外掛元件可以使用，而在.NET時這個元件好像就沒看到了
那要如何寫一個條碼產生器呢？原來有一個更方便的做法，而這個方便的做法其實就是靠字型，接下來我們就來
看看怎麼在VB.net上寫一個條碼產生器吧。

在開始寫程式之前我們先須要下戴BarCode字型，請連結到下面的位置下戴該字型
http://www.squaregear.net/fonts/free3of9.shtml 

首先在Visualstudio上拉一個表單，一個按鈕並將按鈕的text屬性改成"產生條碼"，在拉一個Label並將其text
的屬性設為空白，在拉一個TextBox1及另一個Label將其屬性text設為"輸入編號："這樣就佈置好了整個程式的
畫面。(如下圖）

在來就開始寫程式囉！首先在Button上點兩下，進入程式編輯模式。不用擔心程式只有兩行而以啦！

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label1.Text = "*" + UCase(TextBox1.Text) + "*"

        Label1.Font = New Font("Free 3 of 9", 40, Label1.Font.Style, Label1.Font.Unit)

    End Sub

完成以上的程式之後就可以來執行程式囉！完成的結果畫面就會如上圖。

這樣就完成了一個簡單的條碼產生器的程式了！

 本次值班美女