Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
QR Code With Message | VB.NET
Module1.vb:
VB
Imports Bytescout.BarCode Module Module1 Sub Main() ' Create and activate barcode generator instance Using barcode As New Barcode("demo", "demo") ' Set barcode type barcode.Symbology = SymbologyType.QRCode ' Inputs Dim inpEmail = New QrCodeMessageTemplate With { .Message = "Here goes sample message...!" } ' Set barcode value barcode.Value = inpEmail.ToString() ' Save generated barcode barcode.SaveImage("result.png") ' Open generated barcode image with associated application Process.Start("result.png") End Using End Sub End Module
QrCodeMessageTemplate.vb:
VB
Public Class QrCodeMessageTemplate #Region "Constructors" Public Sub New() End Sub Public Sub New(ByVal Message As String) Me.Message = Message End Sub #End Region #Region "Properties" Public Property Message As String #End Region #Region "Overloaded Methods" Public Overrides Function ToString() As String If String.IsNullOrEmpty(Message) Then Return MyBase.ToString() Return Message End Function #End Region End Class