ByteScout Spreadsheet SDK – VB.NET – Line Styles In Cells

Home
/
Articles
/
ByteScout Spreadsheet SDK – VB.NET – Line Styles In Cells

printable version:
ByteScout-Spreadsheet-SDK-VB-NET-Line-Styles-In-Cells.pdf

line styles in cells in VB.NET and ByteScout Spreadsheet SDK

line styles in cells in VB.NET

ByteScout tutorials explain the material for programmers who use VB.NET. ByteScout Spreadsheet SDK was made to help with line styles in cells in VB.NET. ByteScout Spreadsheet SDK is the SDK component for writing, reading, modifying and calculating Excel and CSV spreadsheets. Can calculate and reculculate formulas with Excel installed. You may import or export data to and from CSV, XML, JSON. Supports export to databases, arrays, streams.

You will save a lot of time on writing and testing code as you may just take the code below and use it in your application. This VB.NET sample code should be copied and pasted into your application’s code editor. Then just compile and run it to see how it works. This basic programming language sample code for VB.NET will do the whole work for you in implementing line styles in cells in your app.

On our website you may get trial version of ByteScout Spreadsheet SDK for free. Source code samples are included to help you with your VB.NET application.

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