タイトル : Re: VB6.0 ツールバーボタンのイメージ変更 投稿日 : 2009/08/24(Mon) 14:19 投稿者 : GOD
昔作ったサンプルです。 ImgList --- ImageListコントロール Tb --- Toolbarコントロール アイコンイメージはリソースから取得 Private Sub TbInit() Dim BtmObj As Button 'ツールバーのカスタマイズ禁止 Tb.AllowCustomize = False With ImgList.ListImages 'イメージリストにアイコンイメージを追加 .Add , "mycomp", LoadResPicture(101, vbResIcon) .Add , "fd", LoadResPicture(102, vbResIcon) .Add , "hd", LoadResPicture(103, vbResIcon) .Add , "cd", LoadResPicture(104, vbResIcon) End With 'イメージリストコントロールをツールバーのリストイメージに設定する Set Tb.ImageList = ImgList With Tb.Buttons 'ツールーバーにボタンを追加する Set BtmObj = .Add(, "mycomp", , tbrDefault, "mycomp") BtmObj.ToolTipText = "マイコンピュータ" '区切り Set BtmObj = .Add(, , , tbrSeparator) 'ツールーバーにボタンを追加する Set BtmObj = .Add(, "fd", , tbrDefault, "fd") BtmObj.ToolTipText = "フロッピー" Set BtmObj = .Add(, "hd", , tbrDefault, "hd") BtmObj.ToolTipText = "ハードディスク" Set BtmObj = .Add(, "cd", , tbrDefault, "cd") BtmObj.ToolTipText = "CD" End With Tb.Buttons(1).Image = "cd" '<--- マイコンピュータのイメージ変更 End Sub |