The coding instructions are formulated to help you to try-out the features without the requirement to write your own code. What is ByteScout Premium Suite? It is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can help you to generate vcard qr code with barcode sdk in your VB.NET application.
Want to quickly learn? This fast application programming interfaces of ByteScout Premium Suite for VB.NET plus the guidelines and the code below will help you quickly learn how to generate vcard qr code with barcode sdk. Simply copy and paste in your VB.NET project or application you and then run your app! Enjoy writing a code with ready-to-use sample codes in VB.NET.
If you want to try other source code samples then the free trial version of ByteScout Premium Suite is available for download from our website. Just try other source code samples for VB.NET.
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("email@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