EgtUILib/tsMain.vb

Public Class tsMain

    Private m_Controller As Controller

    'Create buttons
    Dim btnNew As New ToolStripButton
    Dim btnOpen As New ToolStripButton
    Dim btnSave As New ToolStripButton
    Dim btnImport As New ToolStripButton
    Dim btnExport As New ToolStripButton

    Sub New()

        MyBase.New()
        Me.Anchor = AnchorStyles.None
        Me.Dock = DockStyle.None
        ' Chiamata richiesta dalla finestra di progettazione.
        InitializeComponent()
        AddButtons()
        ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().

    End Sub

    Public Sub SetController(ByRef controller As Controller)
        m_Controller = controller
    End Sub

    Public Sub AddButtons()

        With btnNew
            'Set properties
            .Name = "btnNew"
            .AutoToolTip = True
            .DisplayStyle = ToolStripItemDisplayStyle.Image
            .Image = EgtUILib.My.Resources.Resources._New
            .Text = ""
            .ToolTipText = "New"
        End With

        With btnOpen
            'Set properties
            .Name = "btnOpen"
            .AutoToolTip = True
            .DisplayStyle = ToolStripItemDisplayStyle.Image
            .Image = EgtUILib.My.Resources.Resources.OPen
            .Text = ""
            .ToolTipText = "Open"
        End With

        With btnSave
            'Set properties
            .Name = "btnSave"
            .AutoToolTip = True
            .DisplayStyle = ToolStripItemDisplayStyle.Image
            .Image = EgtUILib.My.Resources.Resources.Save
            .Text = ""
            .ToolTipText = "Save"
        End With

        With btnImport
            'Set properties
            .Name = "btnImport"
            .AutoToolTip = True
            .DisplayStyle = ToolStripItemDisplayStyle.Image
            .Image = EgtUILib.My.Resources.Resources.Import
            .Text = ""
            .ToolTipText = "Import"
        End With

        With btnExport
            'Set properties
            .Name = "btnExport"
            .AutoToolTip = True
            .DisplayStyle = ToolStripItemDisplayStyle.Image
            .Image = EgtUILib.My.Resources.Resources.Export
            .Text = ""
            .ToolTipText = "Export"
        End With

        'Create a Handle to a Click Event
        AddHandler btnNew.Click, AddressOf btnNew_Click
        AddHandler btnOpen.Click, AddressOf btnOpen_Click
        AddHandler btnSave.Click, AddressOf btnSave_Click
        AddHandler btnImport.Click, AddressOf btnImport_Click
        AddHandler btnExport.Click, AddressOf btnExport_Click

        'Add to toolstrip
        MyClass.Items.Add(btnNew)
        MyClass.Items.Add(btnOpen)
        MyClass.Items.Add(btnSave)
        MyClass.Items.Add(btnImport)
        MyClass.Items.Add(btnExport)

    End Sub

    'The Click Events
    Private Sub btnNew_Click(sender As Object, e As System.EventArgs)
        m_Controller.NewProject()
    End Sub

    Private Sub btnOpen_Click(sender As Object, e As System.EventArgs)
        m_Controller.OpenProject()
    End Sub

    Private Sub btnSave_Click(sender As Object, e As System.EventArgs)
        m_Controller.SaveProject()
    End Sub

    Private Sub btnImport_Click(sender As Object, e As System.EventArgs)
        m_Controller.ImportProject()
    End Sub

    Private Sub btnExport_Click(sender As Object, e As System.EventArgs)
        m_Controller.ExportProject()
    End Sub

End Class