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("http://www.bytescout.com")
    End Sub

    Private Sub tsbPromo_Click(sender As Object, e As EventArgs)
        System.Diagnostics.Process.Start("http://bytescout.com/products/developer/spreadsheetsdk/bytescoutspreadsheetsdk.html")
    End Sub
End Class

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

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