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 Sms 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 QrCodeSmsTemplate With { .Number = "393-235-2333", .Message = "Hello There!" } ' 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
QrCodeSmsTemplate.vb:
VB
Public Class QrCodeSmsTemplate #Region "Constructors" Public Sub New() End Sub Public Sub New(ByVal Number As String, ByVal Message As String) Me.Number = Number Me.Message = Message End Sub #End Region #Region "Properties" Public Property Number As String Public Property Message As String #End Region #Region "Overloaded Methods" Public Overrides Function ToString() As String If String.IsNullOrEmpty(Number) AndAlso String.IsNullOrEmpty(Message) Then Return MyBase.ToString() Return $"smsto:{Number}:{Message}" End Function #End Region End Class