Creating BarCode using VB.Net. or Barcode and Vb.Net.

In this project we used font which is added to font at run time. It is barcode font it convert entered text in form of Barcode value. There is file name "rmad " this must be copied into Debug folder of project so that font could be at installed run time. After generation of Barcode equivalent value and image would be created in Debug folder automatically containing Barcode value. You could download whole project as well as rmad file if need it explicitly otherwise it is already in project Debug folder.

I am using visual studio 2010. I have converted this project compatible to framework version 2.0 but still if it doesn’t work. Then just follow the steps and create your own project. This code is acceptable to all version of .Net.

Step 1: Create project and add 4 controls on form. That are : one button name=button1, two label (no matter that what is name of second label but you must name one label with name=Label1 (this label is must for result if you are using code directly)) and one textbox with name=textbox1.

Step 2: Copy this while code to your class and also copy namespace used. Copy carefully because if you would copy it in improper manner then this code won’t be working for you.

Step 3: Copy ‘rmad’ file to Debug folder. ‘rmad’ file is available for download here.

Solution code:

Imports System

Imports System.Drawing

Imports System.Drawing.Imaging

Public Class Form1

    Dim PFC As Drawing.Text.PrivateFontCollection

    Dim NewFont_FF As Drawing.FontFamily

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

        Dim objBitmap As New Bitmap(100, 50)

        Dim objGraphics As Graphics = Graphics.FromImage(objBitmap)

        Dim objPoint As New PointF(5.0F, 5.0F)

        objGraphics.FillRectangle(Brushes.White, 0, 0, Width, Height)

        objGraphics.DrawString(Me.TextBox1.Text, CreateFont(Application.StartupPath & "\rmad", 20, FontStyle.Regular, GraphicsUnit.Point), Brushes.Black, objPoint)

        objBitmap.Save("Result.JPG", ImageFormat.Jpeg)

        Me.Label1.Font = CreateFont(Application.StartupPath & "\rmad", 20, FontStyle.Regular, GraphicsUnit.Point)

        Me.Label1.Text = Me.TextBox1.Text

    End Sub

    Private Function CreateFont(ByVal name As String, ByVal size As Single, ByVal style As Drawing.FontStyle, ByVal unit As Drawing.GraphicsUnit) As Drawing.Font

        PFC = New Drawing.Text.PrivateFontCollection

        PFC.AddFontFile(name)

        NewFont_FF = PFC.Families(0)

        Return New Drawing.Font(NewFont_FF, size, style, unit)

    End Function

End Class

Explanation:

Imports System.Drawing and Imports System.Drawing.Imaging namespace is used for generation of image with barcode value.

Imports System namespace is used to import system control. In this for installing font dynamically at run time and writing image file this namespace is required.

Why installing font dynamically ?

Because it won’t lead in revealing secret to your client that this is so simple to generate. Second and main reason is this; it won’t result in error because whole job is of packaging properly no job required by client of installing font.

Download project from here.

Download rmad from here.

Output:

Barform view.

Result.jpg.