'Microsoft Windows Common Controls -> Comctl32.ocx
'step 1:
'From componant add the control Imagelist
'set the propertie Custom
'General: size
'Images: click 'Insert Picture' to add the necessary pictures
'step 2:
'add the control Toolbar
'set the propertie Custom
'General: Imagelist
'Buttons: to add a button just click on 'Insert Button'
'at 'Image' you need to set the index-number of the wanted picture
'this number is the same as the pictures index in the ImageList
'place - if you want - a ToolTipText
'or if you just want text place it behind the propertie 'Caption'
'click on 'OKE' when you are finished
'and the toolbar is ready
'now the code
'put it under the
Private sub Toolbar1_ButtonClick(ByVal Button as Button)
select case Button.Index
case 1 'click on the first button
case 2 'click on the second button
case 3 'click on the third button
'and so on
end Select
End Sub
'you can change most properties a runtime
Toolbar1.Buttons(1).Visible = False 'makes the first button disappear
Toolbar1.Buttons(1).ToolTipText = "an other one" 'change the tooltip text of the first button
Toolbar1.Buttons(2).Enabled = False 'disable the second button
Toolbar1.Buttons(3).Caption = "KATHER" 'change the caption of the third button
'BTW you cannot set the property Toolbar1.ShowTips at runtime!
Return
No comments:
Post a Comment