Important Update
These sample source codes on this page below are demonstrating how to convert vcard to QR code barcode in VB.NET. ByteScout QR Code is QR Code generation library. It provides full control on the quality, features and encoding. Can embed logo image right into QR Code itself. Batch barcode generation, and many special features like vCard or URL encoding are also supported. It can convert vcard to QR code barcode in VB.NET.
You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout QR Code for convert vcard to QR code barcode below and use it in your application. In your VB.NET project or application you may simply copy & paste the code and then run your app! Enjoy writing a code with ready-to-use sample VB.NET codes.
Free trial version of ByteScout QR Code is available for download from our website. Get it to 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)
Imports System.Drawing.Imaging
Imports System.IO
Imports Bytescout.BarCode
Imports Thought.vCards
Module Module1
Sub Main()
' Generate vCard
Dim vCard = 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 = new vCardDeliveryAddress()
address.AddressType.Add(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 = new vCardStandardWriter()
Dim stringWriter = new StringWriter()
writer.Write(vCard, stringWriter)
' Create and activate QRCode instance
Using barcode As New QRCode("demo", "demo")
' Set value
barcode.Value = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890"
' Set barcode value
barcode.Value = stringWriter.ToString()
' Save barcode image to file
barcode.SaveImage("result.png")
End Using
' Open the image in default image viewer (for demo purpose)
Process.Start("result.png")
End Sub
End Module
60 Day Free Trial or Visit ByteScout QR Code Home Page
Explore ByteScout QR Code Documentation
Explore Samples
Sign Up for ByteScout QR Code Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="Thought.vCards" version="1.0.9" targetFramework="net40" />
</packages>
60 Day Free Trial or Visit ByteScout QR Code Home Page
Explore ByteScout QR Code Documentation
Explore Samples
Sign Up for ByteScout QR Code Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout QR Code Home Page
Explore ByteScout QR Code Documentation
Explore Samples
Sign Up for ByteScout QR Code Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples