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.
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("firstname.lastname@example.org", 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
<?xml version="1.0" encoding="utf-8"?> <packages> <package id="Thought.vCards" version="1.0.9" targetFramework="net40" /> </packages>