tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルVB6.0 ツールバーボタンのイメージ変更
記事No13972
投稿日: 2009/08/24(Mon) 14:01
投稿者asuka
お世話になっております。m(__)m

件名の通りの質問なのですが、VisualStudioのツールバーボタンのプロパティにて、

あらかじめ登録したイメージリストからツールバーボタンへのイメージは選択出来るのですが、

これをプログラムで行うことは出来ないのでしょうか?



と、いいますのも、[データ]というツールバーボタンが存在しており、

イメージリストには黒文字で書かれたものと、赤文字で書かれたものを用意して、

デフォルトでVisualStudioのツールバープロパティで黒文字を選択しておりますが、

Form_Load時にデータベースの某テーブルを参照し、データが存在していれば赤文字のイメージに変更する処理を実装したいと思っております。

是非やり方をご教授頂ければ幸いです。



Toolbar1.Buttons(1)にImageというものが存在しておりますが、

これをヘルプで調べても詳しい説明がなく、イメージリストのインデックス番号を設定してもダメでした。
(黒文字のまま)



フォームファイルをテキストで開いてみますと、
BeginProperty Button2 {xxxx}
 Key             =   "データ"
  Object.Tag             =   ""
  ImageIndex      =   3
EndProperty

とあったのですが、ソース上でButtonsのメソッドにはImageIndexなるものが存在しておらず、

いきずまってしまい質問させて頂きました。

よろしくお願いします。

[ツリー表示へ]
タイトルRe: VB6.0 ツールバーボタンのイメージ変更
記事No13973
投稿日: 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

[ツリー表示へ]
タイトルRe^2: VB6.0 ツールバーボタンのイメージ変更
記事No13974
投稿日: 2009/08/24(Mon) 14:55
投稿者asuka
GOD様

ありがとうございます。

ご教授頂いた通りソース上でイメージリストを作成しなおすことで実現出来ました。

勉強になりました。

ありがとうございます。
m(__)m

[ツリー表示へ]