ByteScout QR Code SDK - VB.NET - Convert vCard to QR Code Barcode - ByteScout

ByteScout QR Code SDK – VB.NET – Convert vCard to QR Code Barcode

  • Home
  • /
  • Articles
  • /
  • ByteScout QR Code SDK – VB.NET – Convert vCard to QR Code Barcode

How to convert vcard to QR code barcode in VB.NET with ByteScout QR Code

How to code in VB.NET to convert vcard to QR code barcode with this step-by-step tutorial

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.

Try it today: Get 60 Day Free Trial or sign up for Web API

Module1.vb
      
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

Try it today: Get 60 Day Free Trial or sign up for Web API

packages.config
      
<?xml version="1.0" encoding="utf-8"?> <packages> <package id="Thought.vCards" version="1.0.9" targetFramework="net40" /> </packages>

Try it today: Get 60 Day Free Trial or sign up for Web API

vCardQRCode.sln
      
Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio 15 VisualStudioVersion = 15.0.28010.2003 MinimumVisualStudioVersion = 10.0.40219.1 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "vCardQRCode", "vCardQRCode.vbproj", "{C5923180-C9F5-4116-AF72-A9E40DB13F42}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU Release|Any CPU = Release|Any CPU EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {C5923180-C9F5-4116-AF72-A9E40DB13F42}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {C5923180-C9F5-4116-AF72-A9E40DB13F42}.Debug|Any CPU.Build.0 = Debug|Any CPU {C5923180-C9F5-4116-AF72-A9E40DB13F42}.Release|Any CPU.ActiveCfg = Release|Any CPU {C5923180-C9F5-4116-AF72-A9E40DB13F42}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection GlobalSection(ExtensibilityGlobals) = postSolution SolutionGuid = {AF3329A5-0339-4AB4-B662-93021C66270B} EndGlobalSection EndGlobal

Try it today: Get 60 Day Free Trial or sign up for Web API

vCardQRCode.vbproj
      
<?xml version="1.0" encoding="utf-8"?> <Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0"> <PropertyGroup> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <ProductVersion> </ProductVersion> <SchemaVersion>2.0</SchemaVersion> <ProjectGuid>{C5923180-C9F5-4116-AF72-A9E40DB13F42}</ProjectGuid> <OutputType>Exe</OutputType> <StartupObject>Sub Main</StartupObject> <RootNamespace>vCardQRCode</RootNamespace> <AssemblyName>vCardQRCode</AssemblyName> <MyType>Console</MyType> <OldToolsVersion>3.5</OldToolsVersion> <TargetFrameworkVersion>v4.0</TargetFrameworkVersion> </PropertyGroup> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <DebugSymbols>true</DebugSymbols> <DebugType>full</DebugType> <DefineDebug>true</DefineDebug> <DefineTrace>true</DefineTrace> <OutputPath>bin\Debug\</OutputPath> <DocumentationFile>vCardQRCode.xml</DocumentationFile> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> </PropertyGroup> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <DebugType>pdbonly</DebugType> <DefineDebug>false</DefineDebug> <DefineTrace>true</DefineTrace> <Optimize>true</Optimize> <OutputPath>bin\Release\</OutputPath> <DocumentationFile>vCardQRCode.xml</DocumentationFile> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> </PropertyGroup> <ItemGroup> <Reference Include="Bytescout.BarCode.QRCode, Version=1.0.0.100, Culture=neutral, PublicKeyToken=f7dd1bd9d40a50eb, processorArchitecture=MSIL"> <SpecificVersion>False</SpecificVersion> <HintPath>c:\Program Files\Bytescout QR Code SDK\net40\Bytescout.BarCode.QRCode.dll</HintPath> </Reference> <Reference Include="System" /> <Reference Include="System.Data" /> <Reference Include="System.Deployment" /> <Reference Include="System.Drawing" /> <Reference Include="System.Xml" /> <Reference Include="Thought.vCards, Version=0.4.0.0, Culture=neutral, processorArchitecture=MSIL"> <HintPath>packages\Thought.vCards.1.0.9\lib\net40\Thought.vCards.dll</HintPath> </Reference> </ItemGroup> <ItemGroup> <Import Include="Microsoft.VisualBasic" /> <Import Include="System" /> <Import Include="System.Collections" /> <Import Include="System.Collections.Generic" /> <Import Include="System.Data" /> <Import Include="System.Diagnostics" /> </ItemGroup> <ItemGroup> <Compile Include="Module1.vb" /> <Compile Include="My Project\AssemblyInfo.vb" /> <Compile Include="My Project\Application.Designer.vb"> <AutoGen>True</AutoGen> <DependentUpon>Application.myapp</DependentUpon> </Compile> <Compile Include="My Project\Resources.Designer.vb"> <AutoGen>True</AutoGen> <DesignTime>True</DesignTime> <DependentUpon>Resources.resx</DependentUpon> </Compile> <Compile Include="My Project\Settings.Designer.vb"> <AutoGen>True</AutoGen> <DependentUpon>Settings.settings</DependentUpon> <DesignTimeSharedInput>True</DesignTimeSharedInput> </Compile> </ItemGroup> <ItemGroup> <EmbeddedResource Include="My Project\Resources.resx"> <Generator>VbMyResourcesResXFileCodeGenerator</Generator> <LastGenOutput>Resources.Designer.vb</LastGenOutput> <CustomToolNamespace>My.Resources</CustomToolNamespace> <SubType>Designer</SubType> </EmbeddedResource> </ItemGroup> <ItemGroup> <None Include="My Project\Application.myapp"> <Generator>MyApplicationCodeGenerator</Generator> <LastGenOutput>Application.Designer.vb</LastGenOutput> </None> <None Include="My Project\Settings.settings"> <Generator>SettingsSingleFileGenerator</Generator> <CustomToolNamespace>My</CustomToolNamespace> <LastGenOutput>Settings.Designer.vb</LastGenOutput> </None> <None Include="packages.config" /> </ItemGroup> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <!-- To modify your build process, add your task inside one of the targets below and uncomment it. Other similar extension points exist, see Microsoft.Common.targets. <Target Name="BeforeBuild"> </Target> <Target Name="AfterBuild"> </Target> --> </Project>

Try it today: Get 60 Day Free Trial or sign up for Web API

MORE INFORMATION

Get 60 Day Free Trial or Visit ByteScout QR Code page

Explore ByteScout QR Code documentation

WEB API VERSION

Sign Up for free Web API key

Explore Web API Documentation

Tutorials:

prev
next