TechSapphire Thursday, 2024-11-07, 10:01 AM
Site menu
Login form
News
Play Games
  • Deep Freeze
  • Ice Slide
  • Gyroball
  • Fat Fish
  • Bush Royal Rampage
  • 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.


    Categories
    Programming [27]
    Tips for programming
    Security [2]
    Security Tips
    Google [1]
    Use google faster then ever you use
    Project [14]
    HTML [2]
    Electronics [0]
    Data Structure [0]
    Database [16]
    SQL SERVER
    SSRS [1]
    Sql Server Reporting Services
    Copyright MyCorp © 2024