tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。