ByteScout Premium Suite – VB.NET – Generate qr code barcode with calenderentry with barcode sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Generate qr code barcode with calenderentry with barcode sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Generate-qr-code-barcode-with-calenderentry-with-barcode-sdk.pdf

How to generate qr code barcode with calenderentry with barcode sdk in VB.NET using ByteScout Premium Suite

Learn to code in VB.NET to generate qr code barcode with calenderentry with barcode sdk with this step-by-step tutorial

Generate qr code barcode with calenderentry with barcode sdk is simple to apply in VB.NET if you use these source codes below. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording and you can use it to generate qr code barcode with calenderentry with barcode sdk with VB.NET.

These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout Premium Suite. 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.

ByteScout provides the free trial version of ByteScout Premium Suite along with the documentation and source code samples.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Program.vb

      Imports Bytescout.BarCode

Module Program

    Sub Main()

        Try
            ' Create new barcode
            Dim barcode As Barcode = New Barcode

            ' Set symbology
            barcode.Symbology = SymbologyType.QRCode

            ' Get QRCode value in CalenderEntry format
            barcode.Value = GetCalenderEntryFormatText()

            ' Save barcode to image
            barcode.SaveImage("result.png")

            ' Show image in default image viewer
            Process.Start("result.png")

        Catch ex As Exception
            Console.WriteLine("Error: " + ex.Message)

            Console.WriteLine("Press enter key to exit...")
            Console.ReadLine()
        End Try

    End Sub

    ''' <summary>
    ''' Return Calender Entry Format
    ''' </summary>
    ''' <returns></returns>
    Private Function GetCalenderEntryFormatText() As String
        Return "BEGIN:VCALENDAR
BEGIN:VEVENT
DTSTART:20181113T100000Z
DTEND:20181113T150000Z
SUMMARY:New Calendar Entry
DESCRIPTION:Description Text
LOCATION:Chicago
RRULE:FREQ=YEARLY;BYDAY=-1SU;BYMONTH=3
END:VEVENT
END:VCALENDAR"
    End Function

End Module