ByteScout Barcode Suite - VB.NET - View spreadsheet with spreadsheet sdk - ByteScout

ByteScout Barcode Suite – VB.NET – View spreadsheet with spreadsheet sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Barcode Suite – VB.NET – View spreadsheet with spreadsheet sdk

How to view spreadsheet with spreadsheet sdk in VB.NET and ByteScout Barcode Suite

Learn to view spreadsheet with spreadsheet sdk in VB.NET

The coding instructions are formulated to help you to try-out the features without the requirement to write your own code. ByteScout Barcode Suite can view spreadsheet with spreadsheet sdk. It can be applied from VB.NET. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK.

Want to quickly learn? This fast application programming interfaces of ByteScout Barcode Suite for VB.NET plus the guidelines and the code below will help you quickly learn how to view spreadsheet with spreadsheet sdk. Follow the instructions from scratch to work and copy the VB.NET code. Want to see how it works with your data then code testing will allow the function to be tested and work properly.

Trial version of ByteScout Barcode Suite is available for free. Source code samples are included to help you with your VB.NET app.

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

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

Form1.Designer.vb
      
Partial Class Form1 ''' <summary> ''' Required designer variable. ''' </summary> Private components As System.ComponentModel.IContainer = Nothing ''' <summary> ''' Clean up any resources being used. ''' </summary> ''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param> Protected Overrides Sub Dispose(disposing As Boolean) If disposing AndAlso (components IsNot Nothing) Then components.Dispose() End If MyBase.Dispose(disposing) End Sub #Region "Windows Form Designer generated code" ''' <summary> ''' Required method for Designer support - do not modify ''' the contents of this method with the code editor. ''' </summary> Private Sub InitializeComponent() Dim resources As New System.ComponentModel.ComponentResourceManager(GetType(Form1)) Me.lblStub = New System.Windows.Forms.Label() Me.menuStrip1 = New System.Windows.Forms.MenuStrip() Me.filesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiOpen = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiPrint = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiPrintPreview = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiExit = New System.Windows.Forms.ToolStripMenuItem() Me.helpToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiVisitWebsite = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiAbout = New System.Windows.Forms.ToolStripMenuItem() Me.toolStrip = New System.Windows.Forms.ToolStrip() Me.tsbOpen = New System.Windows.Forms.ToolStripButton() Me.toolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.tsbPromo = New System.Windows.Forms.ToolStripButton() Me.toolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.tsbVisitWebsite = New System.Windows.Forms.ToolStripButton() Me.openFileDialog = New System.Windows.Forms.OpenFileDialog() Me.menuStrip1.SuspendLayout() Me.toolStrip.SuspendLayout() Me.SuspendLayout() ' ' lblStub ' Me.lblStub.BackColor = System.Drawing.SystemColors.Window Me.lblStub.Dock = System.Windows.Forms.DockStyle.Fill Me.lblStub.Font = New System.Drawing.Font("Arial", 17.25F, System.Drawing.FontStyle.Italic) Me.lblStub.ForeColor = System.Drawing.SystemColors.AppWorkspace Me.lblStub.Location = New System.Drawing.Point(0, 49) Me.lblStub.Name = "lblStub" Me.lblStub.Size = New System.Drawing.Size(837, 508) Me.lblStub.TabIndex = 5 Me.lblStub.Text = "Click here to open spreadsheet files: " & vbCr & vbLf & vbCr & vbLf & "Excel 2003/2007 (*.xls, *.xlsx) " & vbCr & vbLf & "Open " & "Office Calc (*.ods)" & vbCr & vbLf & "CSV Comma Separated Values (*.csv)" & vbCr & vbLf & "TXT tab-delimited value" & "s (*.txt)" Me.lblStub.TextAlign = System.Drawing.ContentAlignment.MiddleCenter AddHandler Me.lblStub.Click, New System.EventHandler(AddressOf Me.tsmiOpen_Click) ' ' menuStrip1 ' Me.menuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.filesToolStripMenuItem, Me.helpToolStripMenuItem}) Me.menuStrip1.Location = New System.Drawing.Point(0, 0) Me.menuStrip1.Name = "menuStrip1" Me.menuStrip1.Padding = New System.Windows.Forms.Padding(4, 2, 0, 2) Me.menuStrip1.Size = New System.Drawing.Size(837, 24) Me.menuStrip1.TabIndex = 6 Me.menuStrip1.Text = "menuStrip1" ' ' filesToolStripMenuItem ' Me.filesToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiOpen, Me.tsmiPrint, Me.tsmiPrintPreview, Me.tsmiExit}) Me.filesToolStripMenuItem.Name = "filesToolStripMenuItem" Me.filesToolStripMenuItem.Size = New System.Drawing.Size(42, 20) Me.filesToolStripMenuItem.Text = "Files" ' ' tsmiOpen ' Me.tsmiOpen.Name = "tsmiOpen" Me.tsmiOpen.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys) Me.tsmiOpen.Size = New System.Drawing.Size(166, 22) Me.tsmiOpen.Text = "Open" AddHandler Me.tsmiOpen.Click, New System.EventHandler(AddressOf Me.tsmiOpen_Click) ' ' tsmiPrint ' Me.tsmiPrint.Enabled = False Me.tsmiPrint.Name = "tsmiPrint" Me.tsmiPrint.Size = New System.Drawing.Size(166, 22) Me.tsmiPrint.Text = "Print..." Me.tsmiPrint.Visible = False ' ' tsmiPrintPreview ' Me.tsmiPrintPreview.Enabled = False Me.tsmiPrintPreview.Name = "tsmiPrintPreview" Me.tsmiPrintPreview.Size = New System.Drawing.Size(166, 22) Me.tsmiPrintPreview.Text = "Print Preview..." Me.tsmiPrintPreview.Visible = False ' ' tsmiExit ' Me.tsmiExit.Name = "tsmiExit" Me.tsmiExit.Size = New System.Drawing.Size(166, 22) Me.tsmiExit.Text = "Exit" AddHandler Me.tsmiExit.Click, New System.EventHandler(AddressOf Me.tsmiExit_Click) ' ' helpToolStripMenuItem ' Me.helpToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiVisitWebsite, Me.tsmiAbout}) Me.helpToolStripMenuItem.Name = "helpToolStripMenuItem" Me.helpToolStripMenuItem.Size = New System.Drawing.Size(44, 20) Me.helpToolStripMenuItem.Text = "Help" ' ' tsmiVisitWebsite ' Me.tsmiVisitWebsite.Name = "tsmiVisitWebsite" Me.tsmiVisitWebsite.Size = New System.Drawing.Size(152, 22) Me.tsmiVisitWebsite.Text = "Visit Website" AddHandler Me.tsmiVisitWebsite.Click, New System.EventHandler(AddressOf Me.tsmiVisitWebsite_Click) ' ' tsmiAbout ' Me.tsmiAbout.Name = "tsmiAbout" Me.tsmiAbout.Size = New System.Drawing.Size(152, 22) Me.tsmiAbout.Text = "About" AddHandler Me.tsmiAbout.Click, New System.EventHandler(AddressOf Me.tsmiAbout_Click) ' ' toolStrip ' Me.toolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbOpen, Me.toolStripSeparator1, Me.tsbPromo, Me.toolStripSeparator2, Me.tsbVisitWebsite}) Me.toolStrip.Location = New System.Drawing.Point(0, 24) Me.toolStrip.Name = "toolStrip" Me.toolStrip.Size = New System.Drawing.Size(837, 25) Me.toolStrip.TabIndex = 7 Me.toolStrip.Text = "toolStrip1" ' ' tsbOpen ' Me.tsbOpen.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold) Me.tsbOpen.ImageTransparentColor = System.Drawing.Color.Black Me.tsbOpen.Name = "tsbOpen" Me.tsbOpen.Size = New System.Drawing.Size(71, 22) Me.tsbOpen.Text = "Open File..." AddHandler Me.tsbOpen.Click, New System.EventHandler(AddressOf Me.tsmiOpen_Click) ' ' toolStripSeparator1 ' Me.toolStripSeparator1.Name = "toolStripSeparator1" Me.toolStripSeparator1.Size = New System.Drawing.Size(6, 25) ' ' tsbPromo ' Me.tsbPromo.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text Me.tsbPromo.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold) Me.tsbPromo.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsbPromo.Name = "tsbPromo" Me.tsbPromo.Size = New System.Drawing.Size(320, 22) Me.tsbPromo.Text = "Developers: Check Bytescout Spreadsheet SDK for .NET" AddHandler Me.tsbPromo.Click, New System.EventHandler(AddressOf Me.tsbPromo_Click) ' ' toolStripSeparator2 ' Me.toolStripSeparator2.Name = "toolStripSeparator2" Me.toolStripSeparator2.Size = New System.Drawing.Size(6, 25) ' ' tsbVisitWebsite ' Me.tsbVisitWebsite.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text Me.tsbVisitWebsite.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold) Me.tsbVisitWebsite.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsbVisitWebsite.Name = "tsbVisitWebsite" Me.tsbVisitWebsite.Size = New System.Drawing.Size(84, 22) Me.tsbVisitWebsite.Text = "Visit Website" AddHandler Me.tsbVisitWebsite.Click, New System.EventHandler(AddressOf Me.tsmiVisitWebsite_Click) ' ' openFileDialog ' Me.openFileDialog.Filter = resources.GetString("openFileDialog.Filter") Me.openFileDialog.SupportMultiDottedExtensions = True ' ' Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6F, 13F) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(837, 557) Me.Controls.Add(Me.lblStub) Me.Controls.Add(Me.toolStrip) Me.Controls.Add(Me.menuStrip1) Me.Name = "Form1" Me.Text = "Spreadsheet Viewer" Me.menuStrip1.ResumeLayout(False) Me.menuStrip1.PerformLayout() Me.toolStrip.ResumeLayout(False) Me.toolStrip.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region Private lblStub As System.Windows.Forms.Label Private menuStrip1 As System.Windows.Forms.MenuStrip Private filesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Private tsmiOpen As System.Windows.Forms.ToolStripMenuItem Private tsmiPrint As System.Windows.Forms.ToolStripMenuItem Private tsmiPrintPreview As System.Windows.Forms.ToolStripMenuItem Private tsmiExit As System.Windows.Forms.ToolStripMenuItem Private helpToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Private tsmiVisitWebsite As System.Windows.Forms.ToolStripMenuItem Private tsmiAbout As System.Windows.Forms.ToolStripMenuItem Private toolStrip As System.Windows.Forms.ToolStrip Private tsbOpen As System.Windows.Forms.ToolStripButton Private toolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Private tsbPromo As System.Windows.Forms.ToolStripButton Private toolStripSeparator2 As System.Windows.Forms.ToolStripSeparator Private tsbVisitWebsite As System.Windows.Forms.ToolStripButton Private openFileDialog As System.Windows.Forms.OpenFileDialog End Class

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Form1.vb
      
Imports System.IO Imports System.Text Imports System.Windows.Forms Imports Bytescout.Spreadsheet Public Partial Class Form1 Inherits Form Private _spreadsheetControl As SpreadsheetControl = Nothing Private _fileName As String = Nothing Public Sub New(args As String()) If args.Length > 0 AndAlso File.Exists(args(0)) Then _fileName = args(0) End If If _fileName IsNot Nothing Then OpenFile(_fileName) End If InitializeComponent() End Sub Private Sub OpenFile(fileName As String) Text = "Spreadsheet Viewer - " & fileName Dim xls As New Spreadsheet() xls.RegistrationName = "demo" xls.RegistrationKey = "demo" Try xls.LoadFromFile(fileName) Catch generatedExceptionName As SpreadsheetProtectionPasswordRequired Dim passwordDialog As New PasswordDialog() If passwordDialog.ShowDialog(Me) = DialogResult.OK Then xls.LoadFromFile(fileName, CacheType.Memory, ",", Encoding.[Default], passwordDialog.Password) Else Return End If End Try lblStub.Visible = False If _spreadsheetControl Is Nothing Then _spreadsheetControl = New SpreadsheetControl() _spreadsheetControl.Dock = DockStyle.Fill Controls.Add(_spreadsheetControl) _spreadsheetControl.BringToFront() _spreadsheetControl.Focus() End If Cursor = Cursors.WaitCursor Try _spreadsheetControl.Spreadsheet = xls Catch e As Exception MessageBox.Show(e.ToString()) Finally Cursor = Cursors.[Default] End Try End Sub Private Sub tsmiOpen_Click(sender As Object, e As EventArgs) If openFileDialog.ShowDialog() = DialogResult.OK Then OpenFile(openFileDialog.FileName) End If End Sub Private Sub tsmiAbout_Click(sender As Object, e As EventArgs) MessageBox.Show("Spreadsheet Viewer" & vbLf & vbLf & "www.bytescout.com" & vbLf & vbLf & "Copyright (c) Bytescout Software 2012", "About...") End Sub Private Sub tsmiExit_Click(sender As Object, e As EventArgs) Close() End Sub Private Sub tsmiVisitWebsite_Click(sender As Object, e As EventArgs) System.Diagnostics.Process.Start("https://www.bytescout.com") End Sub Private Sub tsbPromo_Click(sender As Object, e As EventArgs) System.Diagnostics.Process.Start("https://bytescout.com/products/developer/spreadsheetsdk/bytescoutspreadsheetsdk.html") End Sub End Class

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

PasswordDialog.Designer.vb
      
Partial Class PasswordDialog ''' <summary> ''' Required designer variable. ''' </summary> Private components As System.ComponentModel.IContainer = Nothing ''' <summary> ''' Clean up any resources being used. ''' </summary> ''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param> Protected Overrides Sub Dispose(disposing As Boolean) If disposing AndAlso (components IsNot Nothing) Then components.Dispose() End If MyBase.Dispose(disposing) End Sub #Region "Windows Form Designer generated code" ''' <summary> ''' Required method for Designer support - do not modify ''' the contents of this method with the code editor. ''' </summary> Private Sub InitializeComponent() Me.textBoxPassword = New System.Windows.Forms.TextBox() Me.label2 = New System.Windows.Forms.Label() Me.checkBoxHide = New System.Windows.Forms.CheckBox() Me.btnOk = New System.Windows.Forms.Button() Me.btnCancel = New System.Windows.Forms.Button() Me.SuspendLayout() ' ' textBoxPassword ' Me.textBoxPassword.Location = New System.Drawing.Point(79, 39) Me.textBoxPassword.Name = "textBoxPassword" Me.textBoxPassword.Size = New System.Drawing.Size(168, 22) Me.textBoxPassword.TabIndex = 1 ' ' label2 ' Me.label2.AutoSize = True Me.label2.Location = New System.Drawing.Point(4, 42) Me.label2.Name = "label2" Me.label2.Size = New System.Drawing.Size(73, 17) Me.label2.TabIndex = 2 Me.label2.Text = "Password:" ' ' checkBoxHide ' Me.checkBoxHide.AutoSize = True Me.checkBoxHide.Location = New System.Drawing.Point(7, 12) Me.checkBoxHide.Name = "checkBoxHide" Me.checkBoxHide.Size = New System.Drawing.Size(123, 21) Me.checkBoxHide.TabIndex = 3 Me.checkBoxHide.Text = "Hide password" Me.checkBoxHide.UseVisualStyleBackColor = True AddHandler Me.checkBoxHide.CheckedChanged, New System.EventHandler(AddressOf Me.checkBoxHide_CheckedChanged) ' ' btnOk ' Me.btnOk.DialogResult = System.Windows.Forms.DialogResult.OK Me.btnOk.Location = New System.Drawing.Point(91, 67) Me.btnOk.Name = "btnOk" Me.btnOk.Size = New System.Drawing.Size(75, 23) Me.btnOk.TabIndex = 4 Me.btnOk.Text = "Ok" Me.btnOk.UseVisualStyleBackColor = True AddHandler Me.btnOk.Click, New System.EventHandler(AddressOf Me.btnOk_Click) ' ' btnCancel ' Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnCancel.Location = New System.Drawing.Point(172, 67) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(75, 23) Me.btnCancel.TabIndex = 5 Me.btnCancel.Text = "Cancel" Me.btnCancel.UseVisualStyleBackColor = True AddHandler Me.btnCancel.Click, New System.EventHandler(AddressOf Me.btnCancel_Click) ' ' PasswordDialog ' Me.AcceptButton = Me.btnOk Me.AutoScaleDimensions = New System.Drawing.SizeF(8F, 16F) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.CancelButton = Me.btnCancel Me.ClientSize = New System.Drawing.Size(255, 98) Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnOk) Me.Controls.Add(Me.checkBoxHide) Me.Controls.Add(Me.label2) Me.Controls.Add(Me.textBoxPassword) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "PasswordDialog" Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = "Please enter a password" Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region Private textBoxPassword As System.Windows.Forms.TextBox Private label2 As System.Windows.Forms.Label Private checkBoxHide As System.Windows.Forms.CheckBox Private btnOk As System.Windows.Forms.Button Private btnCancel As System.Windows.Forms.Button End Class

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

PasswordDialog.vb
      
Imports System.Windows.Forms Public Partial Class PasswordDialog Inherits Form Public Sub New() InitializeComponent() End Sub Public ReadOnly Property Password() As String Get Return textBoxPassword.Text End Get End Property Private Sub btnOk_Click(sender As Object, e As EventArgs) 'DialogResult = DialogResult.OK; 'Close(); End Sub Private Sub btnCancel_Click(sender As Object, e As EventArgs) End Sub Private Sub checkBoxHide_CheckedChanged(sender As Object, e As EventArgs) If checkBoxHide.Checked Then textBoxPassword.PasswordChar = "*"C Else textBoxPassword.PasswordChar = ControlChars.NullChar End If End Sub End Class

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Program.vb
      
Imports System.Windows.Forms NotInheritable Class Program Private Sub New() End Sub ''' <summary> ''' The main entry point for the application. ''' </summary> <STAThread> _ Friend Shared Sub Main(args As String()) Application.EnableVisualStyles() Application.SetCompatibleTextRenderingDefault(False) Application.Run(New Form1(args)) End Sub End Class

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next