ByteScout Barcode Suite – VB.NET – Line styles in cells with spreadsheet sdk

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Line styles in cells with spreadsheet sdk

printable version:
ByteScout-Barcode-Suite-VB-NET-Line-styles-in-cells-with-spreadsheet-sdk.pdf

line styles in cells with spreadsheet sdk in VB.NET with ByteScout Barcode Suite

Simple tutorial on how to do line styles in cells with spreadsheet sdk in VB.NET

These sample source codes given below will show you how to handle a complex task, for example, line styles in cells with spreadsheet sdk in VB.NET. ByteScout Barcode Suite was made to help with line styles in cells with spreadsheet sdk in VB.NET. ByteScout Barcode Suite is the bundle that privides 3 SDK products to generate barcodes (Barcode SDK), read barcodes (Barcode Reaer SDK) and read and write spreadsheets (Spreadsheet SDK).

VB.NET code snippet like this for ByteScout Barcode Suite works best when you need to quickly implement line styles in cells with spreadsheet sdk in your VB.NET application. If you want to know how it works, then this VB.NET sample code should be copied and pasted into your application’s code editor. Then just compile and run it. Enjoy writing a code with ready-to-use sample VB.NET codes to add line styles in cells with spreadsheet sdk functions using ByteScout Barcode Suite in VB.NET.

ByteScout Barcode Suite is available as a free trial. You may get it from our website along with all other source code samples for VB.NET applications.

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

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

Module1.vb

      Imports Bytescout.Spreadsheet
Imports Bytescout.Spreadsheet.Constants
Imports System.IO

Module Module1

    Sub Main()
        ' Create new Spreadsheet
        Dim document As New Spreadsheet()

        ' Get worksheet by name
        Dim worksheet As Worksheet = document.Workbook.Worksheets.Add()

        ' Number of cell in the first column
        Dim cellRow As Integer = 0

        ' Apply all line styles
        For Each lineStyle As LineStyle In [Enum].GetValues(GetType(LineStyle))
            ' Set current cell
            Dim currentCell As Cell = worksheet.Cell(cellRow, 0)

            ' Set border styles
            currentCell.RightBorderStyle = lineStyle
            currentCell.LeftBorderStyle = lineStyle
            currentCell.TopBorderStyle = lineStyle
            currentCell.BottomBorderStyle = lineStyle

            ' Print style name
            currentCell.Value = lineStyle.ToString()

            ' Choose next row
            cellRow += 2
        Next


        ' remove output file if already exists
        If File.Exists("Output.xls") Then
            File.Delete("Output.xls")
        End If

        ' Save document
        document.SaveAs("Output.xls")

        ' Close Spreadsheet
        document.Close()

        ' open in default spreadsheets viewer/editor
        Process.Start("Output.xls")

    End Sub

End Module