Dario Sassi
49 lines
1.2 KiB
VB.net
49 lines
1.2 KiB
VB.net
Public Class tsExec
|
|
|
|
Private m_scene As Scene
|
|
|
|
'Create button
|
|
Dim btnExec 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 SetScene(ByRef scene As Scene)
|
|
m_scene = scene
|
|
End Sub
|
|
|
|
Public Sub AddButtons()
|
|
With btnExec
|
|
'Set properties
|
|
.Name = "btnExec"
|
|
.AutoToolTip = True
|
|
.DisplayStyle = ToolStripItemDisplayStyle.Image
|
|
.Image = EgtUILib.My.Resources.Resources.Exec
|
|
.Text = ""
|
|
.ToolTipText = "Exec"
|
|
End With
|
|
|
|
'Create a Handle to a Click Event
|
|
AddHandler btnExec.Click, AddressOf btnExec_Click
|
|
|
|
'Add to toolstrip
|
|
MyClass.Items.Add(btnExec)
|
|
|
|
End Sub
|
|
|
|
'The Click Events
|
|
Private Sub btnExec_Click(sender As Object, e As System.EventArgs)
|
|
m_scene.Exec()
|
|
End Sub
|
|
|
|
End Class
|