Hej
Jag håller på och trixar med en toolbar där jag skall använda dropdown
på några av knapparna men hur får man det att funka när man klickar
i menyn som rullar ner.

kanske är det någon som kan förklara hur det hänger ihop ?

Tackar på förhand
Tobbe

Jag brukar använda typ denna kod...


Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

'Ändrar iconen...
'(För att detta skall fungerar så skall man fylla i icon-index i submenyns Tag fält)
Toolbar1.Buttons(ButtonMenu.Parent.key).Image = Val(ButtonMenu.tag)

'Ändrar caption
Toolbar1.Buttons(ButtonMenu.Parent.key).Caption = ButtonMenu.Text
'Ändrar key
Toolbar1.Buttons(ButtonMenu.Parent.key).key = ButtonMenu.key

'Kör vanliga knapptryck funktionen
Toolbar1_ButtonClick ButtonMenu.Parent

End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.key
Case "Note"
Toolbar1.TextAlignment = tbrTextAlignRight
mnuNote_Click
Case "Mesage"
Toolbar1.TextAlignment = tbrTextAlignBottom
mnuMesage_Click
Case "Question"
If Button.Value = tbrPressed Then
Button.Image = 5
Else
Button.Image = 6
End If
mnuQuestion_Click
Case "Cancel"
Unload Me
Case "OK"
mnuSave
Unload Me
Case Else
msgbox "Button.key = '" & Button.key & "'"
End Select

End Sub



MVH
/Peter S