ByteScout Barcode Suite – VB.NET – Generate vcard qr code with barcode sdk

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Generate vcard qr code with barcode sdk

printable version:
ByteScout-Barcode-Suite-VB-NET-Generate-vcard-qr-code-with-barcode-sdk.pdf

How to generate vcard qr code with barcode sdk in VB.NET and ByteScout Barcode Suite

Learn to code in VB.NET to generate vcard qr code with barcode sdk with this step-by-step tutorial

The documentation is designed for a specific purpose to help you to apply the features on your side. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK. It can generate vcard qr code with barcode sdk in VB.NET.

The following code snippet for ByteScout Barcode Suite works best when you need to quickly generate vcard qr code with barcode sdk in your VB.NET application. Simply copy and paste in your VB.NET project or application you and then run your app! If you want to use these VB.NET sample examples in one or many applications then they can be used easily.

If you want to try other source code samples then the free trial version of ByteScout Barcode Suite is available for download from our website. Just try other source code samples for VB.NET.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Module1.vb

      Imports System.Drawing.Imaging
Imports System.IO
Imports Bytescout.BarCode
Imports Thought.vCards

Module Module1

    ''' <summary>
    ''' This example demonstrates generation of QR Code encoded vCard.
    ''' It uses vCard library by David Pinch:
    ''' 
    ''' vCard Class Library for .NET (Version 0.4; LGPL license)
    ''' Copyright (c) 2007-2009 David Pinch 
    ''' http://www.thoughtproject.com/Libraries/vCard/
    ''' </summary>
    Sub Main()

        ' Generate vCard
        Dim vCard As New vCard()
        vCard.GivenName = "Forrest"
        vCard.FamilyName = "Gump"
        vCard.Organization = "Bubba Gump Shrimp Co."
        vCard.Title = "Shrimp Man"
        vCard.Phones.Add(New vCardPhone("(111) 555-1212", vCardPhoneTypes.Home))
        vCard.EmailAddresses.Add(New vCardEmailAddress("forrestgump@example.com", vCardEmailAddressType.Internet))

        Dim address As New vCardDeliveryAddress()
        address.AddressType = vCardDeliveryAddressTypes.Home
        address.Street = "100 Waters Edge"
        address.City = "Baytown"
        address.Region = "LA"
        address.PostalCode = "30314"
        address.Country = "United States of America"
        vCard.DeliveryAddresses.Add(address)

        ' Save vCard data to string
        Dim writer As New vCardStandardWriter()
        Dim stringWriter As New StringWriter()
        writer.Write(vCard, stringWriter)

        ' Create Bytescout.Barcode instance
        Using barcode As New Barcode
            ' Set barcode type
            barcode.Symbology = SymbologyType.QRCode
            ' Set barcode value
            barcode.Value = stringWriter.ToString()
            ' Save barcode to image
            barcode.SaveImage("result.png", ImageFormat.Png)

            ' Open generated barcode image in default associated application 
            Process.Start("result.png")
        End Using

    End Sub

End Module