a fatica, ma vado avanti e riscontro sempre nuovi problemi che
vi espongo:
ho deciso di popolare la toolbar del mio form a run-time
e a tale scopo ho utilizzato il seguente codice:
Sub ImpostazioniToolbar()
' pulsante normale
Toolbar1.Buttons.Add 1, "primo", , 0, 4
Toolbar1.Buttons(1).ToolTipText = "esce"
' menu
Toolbar1.Buttons.Add 2, "menu", , 5, 1
Toolbar1.Buttons(2).ButtonMenus.Add 1, , "prima voce"
Toolbar1.Buttons(2).ButtonMenus.Add 2, , "numero 2"
Toolbar1.Buttons(2).ToolTipText = "menu"
' spazio
Toolbar1.Buttons.Add 3, , , 4, 0
Toolbar1.Buttons(3).Width = 1000
' pulsante normale
Toolbar1.Buttons.Add 4, "quarto", , 0, 8
Toolbar1.Buttons(4).ToolTipText = "strumenti"
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "primo"
MsgBox "e' stato premuto il primo tasto"
Case "menu"
MsgBox "hai premuto il tatso 2"
End Select
End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Parent.Key
Case "menu"
Select Case ButtonMenu.Index
Case 1
MsgBox "prima voce di menu"
Case 2
MsgBox "voce sottomenu 2"
End Select
End Select
End Sub
come si evince il secondo pulsante e' in realta' un menu' a discesa con due voci
problema: e' possibile, e come fare, esplodere il sottomenu del secondo pulsante
con il click nella parte immagine, invece che nella zona ad hoc
grazie anticipate