[VB.Net]Menu a runtime ed eventi

[RaouL_BennetH]

Ciao a tutti :)

Dato che mi scoccio tantissimo a disegnare ogni volta su un form un menu, che in pratica è lo stesso per tutti i form, ho fatto una piccola classe:


Public Class ClassMenu

Dim runTimeMenu As ToolStrip
Dim addButton As ToolStripButton
Dim saveButton As ToolStripButton
Dim cancelButton As ToolStripButton
Dim prepareUpdateButton As ToolStripButton
Dim updateButton As ToolStripButton
Dim deleteButton As ToolStripButton
Dim closeButton As ToolStripButton
Dim separator As ToolStripSeparator



Public Sub InitializeToolStrip(ByVal tContainer As ToolStripPanel)
addButton = New ToolStripButton
With addButton
.DisplayStyle = ToolStripItemDisplayStyle.Text
.ForeColor = Color.White
.Text = "Nuovo"
End With
saveButton = New ToolStripButton
With saveButton
.DisplayStyle = ToolStripItemDisplayStyle.Text
.ForeColor = Color.White
.Text = "Salva"
End With
cancelButton = New ToolStripButton
With cancelButton
.DisplayStyle = ToolStripItemDisplayStyle.Text
.ForeColor = Color.White
.Text = "Annulla"
End With
prepareUpdateButton = New ToolStripButton
With prepareUpdateButton
.DisplayStyle = ToolStripItemDisplayStyle.Text
.ForeColor = Color.White
.Text = "Modifica"
End With
updateButton = New ToolStripButton
With updateButton
.DisplayStyle = ToolStripItemDisplayStyle.Text
.ForeColor = Color.White
.Text = "Aggiorna"
End With
deleteButton = New ToolStripButton
With deleteButton
.DisplayStyle = ToolStripItemDisplayStyle.Text
.ForeColor = Color.White
.Text = "Elimina"
End With
closeButton = New ToolStripButton
With closeButton
.DisplayStyle = ToolStripItemDisplayStyle.Text
.ForeColor = Color.White
.Text = "Esci"
End With
runTimeMenu = New ToolStrip
With runTimeMenu
.Dock = DockStyle.Top
.BackColor = Color.Transparent
.Font = New Font("Verdana", 8, FontStyle.Regular)
.Items.Insert(0, addButton)
separator = New ToolStripSeparator
.Items.Insert(1, separator)
.Items.Insert(2, saveButton)
separator = New ToolStripSeparator
.Items.Insert(3, separator)
separator = New ToolStripSeparator
.Items.Insert(4, cancelButton)
separator = New ToolStripSeparator
.Items.Insert(5, separator)
.Items.Insert(6, prepareUpdateButton)
separator = New ToolStripSeparator
.Items.Insert(7, separator)
.Items.Insert(8, updateButton)
separator = New ToolStripSeparator
.Items.Insert(9, separator)
.Items.Insert(10, deleteButton)
separator = New ToolStripSeparator
.Items.Insert(11, separator)
.Items.Insert(12, closeButton)
.GripStyle = ToolStripGripStyle.Hidden
End With
tContainer.Controls.Add(runTimeMenu)

End Sub


con questa piccola classe, riesco a piazzare al volo su qualsiasi form il mio semplice menu. Il problema che ho invece è gestire gli eventi all'interno del form sul quale lo piazzo... in pratica dovrei fare:



addhandler nomebottone.Click, addressof nomebottone_Click



Ma il fatto è che ovviamente sul form, per ricavare indice e nome dei bottoni devo fare vari cicli, if etc..

Se invece volessi aggiungerli direttamente nella classe, non riesco a capire in che modo potrei far fare agli eventi quello che vorrei.

Per esempio, per il bottone di chiusura, dovrei fare:


addhandler closeButton.Click, addressof closeButton_Click


sub closeButton_Click(Byval sender as Object, byval e as EventArgs)

formDoveStaPiazzatoIlBottone.Close()

end sub



Come potrei fare?

[^TiGeRShArK^]

addhandler closeButton.Click, addressof closeButton_Click


sub closeButton_Click(Byval sender as Object, byval e as EventArgs)

this.Parent.Close()

end sub

così non va per la chiusura? :stordita: