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.
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