Toolbar

giovedì 20 aprile 2006 - 17.17

Teech Profilo | Expert

Stò creando una funzione in una classe che mi restituisce una Toolbar "Standard" da usare su tutti i form della mia applicazione. Ho iniziato ma mi sono arenato incontrando ben 3 problemi.

1) non riesco a capire dove inserire la Addhandler per restituire l'evento ButtonClick
2) non riesco a creare la ImageList da codice in quanto non riesco ad inserire le immagini
3) non trovo le icone standard di Windows (il classico dischetto per il Salva, i foglietti per il Copia, ecc.)

Il codice fino ad ora scritto è molto semplice ma non riesco ad implementarlo.

Public Function StandardToolbar() As System.Windows.Forms.ToolBar
' Crea e inizializza la ToolBar e i ToolBarButton.
Dim tlbStandard As New System.Windows.Forms.ToolBar
Dim tbbEsci As New System.Windows.Forms.ToolBarButton
Dim tbbSalva As New System.Windows.Forms.ToolBarButton
Dim tbbCopia As New System.Windows.Forms.ToolBarButton
Dim tbbTaglia As New System.Windows.Forms.ToolBarButton
Dim tbbIncolla As New System.Windows.Forms.ToolBarButton
Dim tbbStampa As New System.Windows.Forms.ToolBarButton

' Setta le proprietà dei ToolBarButton. - PER ORA SONO ARRIVATO QUA
tbbEsci.ToolTipText = "Esci"
tbbSalva.ToolTipText = "Salva"
tbbCopia.ToolTipText = "Copia"
tbbTaglia.ToolTipText = "Taglia"
tbbIncolla.ToolTipText = "Incolla"
tbbStampa.ToolTipText = "Stampa"

'Aggiunge i ToolBarButton alla ToolBar.
tlbStandard.Buttons.Add(tbbEsci)
tlbStandard.Buttons.Add(tbbSalva)
tlbStandard.Buttons.Add(tbbCopia)
tlbStandard.Buttons.Add(tbbTaglia)
tlbStandard.Buttons.Add(tbbIncolla)
tlbStandard.Buttons.Add(tbbStampa)

Return tlbStandard
End Function

La routine che richiama la funzione è la seguente:

Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
pbl = New Namespace.Classe

Dim tlb As System.Windows.Forms.ToolBar = pbl.StandardToolbar()
'Aggiunge event-handler - NON FUNZIONA.
'AddHandler tlb.ButtonClick, AddressOf Me.tlb_ButtonClick
'Aggiunge la ToolBar al Form.
Controls.Add(tlb)
pbl = Nothing
End Sub

Sono molti i problemi proposti ma vi ringrazio se riuscite a darmi un input anche solo per uno...

Grazie

----------
Nessuna impresa è mai stata compiuta da un uomo ragionevole
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5