QRcode = True ' ' -Ĭbo_D_Size.SelectedIndex = 12 ' auto set some combobox perameters on startupĬbo_D_Margin.SelectedIndex = 1 ' ' -Ĭbo_QR_ErrorC.SelectedIndex = 0 ' - ' ' add the fore and back colors to the relevent comboboxes (Explained more below) ' For Each Me.colorName In System. Rdo_QR.Checked = True ' auto select QRcodes on startup Object, ByVal e As System.EventArgs) Handles MyBase.Load
KEEP AUTOMATION BARCODE FREE DOWNLOAD CODE
Form1_LoadĬbo_D_name is the combobox Name for the Data Matrix comboboxesĬbo_QR_name is combobox the Name for the QRcodes comboboxesĬbo_L_name is the combobox Name for the Linear codes comboboxesĬopy Code Private Sub Form1_Load( ByVal sender As System. There are comment lines just to try and make the code more readable. Public barcodeImage As Bitmap ' we use this bitmap to assign the current barcode image to Dim DM_forecolour As Color ' these variables are used to first fill the relevent comboboxes Dim DM_backcolour As Color ' with the system colors and to use these colors to change the back Dim QR_foreColor As Color ' and fore colors of the barcode image Dim QR_backColor As Colorĭim colorName As String ' used to get all system colors Dim SelectedFont As Font ' used to assign the selected font to the barcode label Dim X, Y As Integer ' Declare 2 variables so we can make form_Viewer (form2) Dim buffer As Integer = 100 ' to the right size and add the buffer just to be sure we can see ' the entire Barcode Imports ' this is the QRcode Library Imports BarcodeLib.Barcode ' this is the Linear library Imports ' this is the Data Matrix library Dim QREncoder As ' QR code Dim LinearEncoder As BarcodeLib.Barcode ' LinearCdoe Dim DataEncoder As ' Data Matrix Dim DataEncodeOptions As ' set a variable to handle dataĭim Linearcode As Boolean ' we are using these variables in an if statement Dim QRcode As Boolean ' to determin what Barcode we are generating Dim Datacode As Boolean Dim QRimg As Image ' Because the barcode result is an image we need to Dim QRbitmap As Bitmap ' make a new image and bitmap in order to save the image Dim Linearimg As Image ' Dim Linearbitmap As Bitmap We start by Importing the Librarys and declaring some Variables.
Once these dll's have been placed in a suitable location we must add references for all of them by clicking on the Solution Explorer, then right mouse click on your project name and click 'Add Reference' button, Locate and add a reference to all 3 dll files. (ProjectName/debug/bin) but it is personal preference. Start a new Visual Studio Project and save straight away so the IDE Makes the relevent directories, I like to copy the DLL Librarys into the application directory eg. The QR Barcode result of the string HelloWorld. I would like to point out now that Linear and QR Codes support Transparent backgrounds but the Data Matrix dosen't.Īnd also the font button for the label feture on the Linear Barcodes does work but the options need to be filled in before selecting a font for the included label otherwise we will get an error. QR Barcodes (used on business cards on large items, giftcards etc ).ĭata Matrix (i have only seen this type of barcode on letters ). Linear Barcode (used on books, food packaging etc ). This application uses all 3 types of barcode: It is useful to make you own barcodes especially if you own your own business or your wanting to promote what you do or who you are, place a barcode on the back of your business card, in a shop window, use barcodes for making unique customer reference numbers etc.
KEEP AUTOMATION BARCODE FREE DOWNLOAD DOWNLOAD
Download source - 998.4 KB DLL Files Only
0 kommentar(er)
