ab.com コミュニティ

ノッチさん、レスありがとうございます。

　書いて頂いた定数のリスト、プログラムに組み込んで実行すると
きちんと標準のビットマップのボタンが表示されました。
これらの定数は自分でセットしなければならないんですね。
[quote]
定数を検索する時は
define
APIを検索する時は
Declare
あたりを一緒に指定するとたいていは出てきますよ。
[/quote]
　検索方法も、教えてもらってありがとうございました。
　早速、色々調べてみようと思います。

　またよろしくお願いします。

> 　エラーの原因はこのことばかりではないかも知れませんが、
> これらについて、気づかれたことがありましたら教えてください。


たぶんエラーの原因は定数が正しくないからだと思います。
値を以下のようにしてみて下さい。
[quote]
HINST_COMMCTRL=-1
IDB_STD_SMALL_COLOR=0
IDB_STD_LARGE_COLOR=1
IDB_VIEW_SMALL_COLOR=4
IDB_VIEW_LARGE_COLOR=5
STD_CUT=0
STD_COPY=1
STD_PASTE=2
STD_UNDO=3
STD_REDOW=4
STD_DELETE=5
STD_FILENEW=6
STD_FILEOPEN=7
STD_FILESAVE=8
STD_PRINTPRE=9
STD_PROPERTIES=10
STD_HELP=11
STD_FIND=12
STD_REPLACE=13
STD_PRINT=14[/quote]

定数を検索する時は
[quote]define[/quote]
APIを検索する時は
[quote]Declare[/quote]
あたりを一緒に指定するとたいていは出てきますよ。

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Const ID_TOOLBAR = 70    'ツールバーのID

Const IDM_NEW=1005
Const IDM_OPEN=1006
Const IDM_SAVE=1007
Const IDM_EXIT=1008
Const IDM_UNDO=1009
Const IDM_CUT=1010
Const IDM_COPY=1011
Const IDM_PASTE=1012
Const IDM_ALLSELECT=1013
Const IDM_ABOUT=1014


'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

'
'●デストロイ・イベント
'
Sub MainWnd_Destroy()
	ToolBarTest424_DestroyObjects()
	PostQuitMessage(0)
End Sub

'
'●リサイズ・イベント
'
Sub MainWnd_Resize(SizeType As Long, cx As Integer, cy As Integer)

  Dim hToolBar As HWND

'ツールバーのハンドルを取得
 hToolBar=GetDlgItem(hMainWnd,ID_TOOLBAR)

'ツールバーのサイズ自動変更
 SendMessage(hToolBar, TB_AUTOSIZE, 0, 0)

End Sub

'
'●クリエイト・イベント
'
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)

    Dim ic As INITCOMMONCONTROLSEX
    Dim tbb[9] As TBBUTTON

    'コモンコントロールの初期化
    ic.dwSize=Len(ic)
    ic.dwICC=ICC_BAR_CLASSES
    InitCommonControlsEx(ic)

    'ボタン情報をセット
    SetTbButtonData(tbb[0],0,IDM_NEW,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[1],1,IDM_OPEN,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[2],2,IDM_SAVE,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[3],0,0,TBSTATE_ENABLED,TBSTYLE_SEP)
    SetTbButtonData(tbb[4],3,IDM_ABOUT,TBSTATE_ENABLED,TBSTYLE_BUTTON)

    'ツールバーを生成
    CreateToolbarEx(_
        hMainWnd, _
        WS_CHILD or WS_VISIBLE, _
        ID_TOOLBAR, _ 'ID_TOOLBAR, _
        4, _ 'ビットマップの個数
        GetModuleHandle(0), _
        IDB_BITMAP1, _  'ビットマップのリソースID
        tbb, _
        5, _                        'ボタンの個数
        0,0, _                      'ボタンサイズ（0指定で自動セットに）
        16,15, _                    'ビットマップサイズ
        Len(tbb[0]))

End Sub
'
'●ツールバーボタン情報のセットサブ
'
Sub SetTbButtonData(ByRef ptb As TBBUTTON,
    iBitmap As Long,
    idCommand As Long,
    fsState As Byte,
    fsStyle As Byte)
    'ptb（TBBUTTON構造体）にボタン情報を格納する
    With ptb
        .iBitmap=iBitmap
        .idCommand=idCommand
        .fsState=fsState
        .fsStyle=fsStyle
        .dwData=0
        .iString=0
    End With
End Sub



'----------------------------------
'↓以降はツールバーボタンをクリックした時の表示

'
'●新規作成
'
Sub MainWnd_IDM_NEW_MenuClick()
 MessageBox(hMainWnd,"NEW","Message",MB_OK)
End Sub
'
'●ファイルのオープン
'
Sub MainWnd_IDM_OPEN_MenuClick()
 MessageBox(hMainWnd,"OPEN","Message",MB_OK)
End Sub
'
'●ファイルの保存
'
Sub MainWnd_IDM_SAVE_MenuClick()
 MessageBox(hMainWnd,"SAVE","Message",MB_OK)
End Sub
'
'●ヘルプ
'
Sub MainWnd_IDM_ABOUT_MenuClick()
 MessageBox(hMainWnd,"ABOUT","Message",MB_OK)
End Sub

'
'●クリエイト・イベント
'
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)

    Dim ic As INITCOMMONCONTROLSEX
    Dim tbb[9] As TBBUTTON

    'コモンコントロールの初期化
    ic.dwSize=Len(ic)
    ic.dwICC=ICC_BAR_CLASSES
    InitCommonControlsEx(ic)

    'ボタン情報をセット
    SetTbButtonData(tbb[0],STD_FILENEW,IDM_NEW,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[1],STD_FILEOPEN,IDM_OPEN,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[2],STD_FILESAVE,IDM_SAVE,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[3],0,0,TBSTATE_ENABLED,TBSTYLE_SEP)
    SetTbButtonData(tbb[4],STD_HELP,IDM_ABOUT,TBSTATE_ENABLED,TBSTYLE_BUTTON)

    'ツールバーを生成
    CreateToolbarEx(_
        hMainWnd, _
        WS_CHILD or WS_VISIBLE, _
        ID_TOOLBAR, _ 'ID_TOOLBAR, _
        4, _ 'ビットマップの個数
        HINST_COMMCTRL,_ 'GetModuleHandle(0), _
        IDB_STD_SMALL_COLOR, _'IDB_BITMAP1, _  'ビットマップのリソースID
        tbb, _
        5, _                        'ボタンの個数
        0,0, _                      'ボタンサイズ（0指定で自動セットに）
        16,15, _                    'ビットマップサイズ
        Len(tbb[0]))

End Sub

MainWnd.sbp(74) - "STD_FILENEW" 無効な識別子です
MainWnd.sbp(75) - "STD_FILEOPEN" 無効な識別子です
MainWnd.sbp(76) - "STD_FILESAVE" 無効な識別子です
MainWnd.sbp(78) - "STD_HELP" 無効な識別子です
MainWnd.sbp(81) - "IDB_STD_SMALL_COLOR" 無効な識別子です

　整理のために改めてウインドウにツールバーのみを設置
するプログラムを書きました。
まず、ヘルプセンターWin32プログラミング講座「ツールバーを作る」より
そこのツールバーボタンビットマップを挿入したもので実行させると、
コンパイルは通り、ツールバーが表示されます。
(↓下がソースです。ver4.24、プロジェクト名「ToolBarTest424」で製作。)

[hide=ここにソースが表示されます。]
[code]
'-----------------------------------------------------------------------------
' イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Const ID_TOOLBAR = 70 'ツールバーのID

Const IDM_NEW=1005
Const IDM_OPEN=1006
Const IDM_SAVE=1007
Const IDM_EXIT=1008
Const IDM_UNDO=1009
Const IDM_CUT=1010
Const IDM_COPY=1011
Const IDM_PASTE=1012
Const IDM_ALLSELECT=1013
Const IDM_ABOUT=1014


'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

' イベントプロシージャの呼び出しを行います。
MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

'
'●デストロイ・イベント
'
Sub MainWnd_Destroy()
ToolBarTest424_DestroyObjects()
PostQuitMessage(0)
End Sub

'
'●リサイズ・イベント
'
Sub MainWnd_Resize(SizeType As Long, cx As Integer, cy As Integer)

Dim hToolBar As HWND

'ツールバーのハンドルを取得
hToolBar=GetDlgItem(hMainWnd,ID_TOOLBAR)

'ツールバーのサイズ自動変更
SendMessage(hToolBar, TB_AUTOSIZE, 0, 0)

End Sub

'
'●クリエイト・イベント
'
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)

Dim ic As INITCOMMONCONTROLSEX
Dim tbb[9] As TBBUTTON

'コモンコントロールの初期化
ic.dwSize=Len(ic)
ic.dwICC=ICC_BAR_CLASSES
InitCommonControlsEx(ic)

'ボタン情報をセット
SetTbButtonData(tbb[0],0,IDM_NEW,TBSTATE_ENABLED,TBSTYLE_BUTTON)
SetTbButtonData(tbb[1],1,IDM_OPEN,TBSTATE_ENABLED,TBSTYLE_BUTTON)
SetTbButtonData(tbb[2],2,IDM_SAVE,TBSTATE_ENABLED,TBSTYLE_BUTTON)
SetTbButtonData(tbb[3],0,0,TBSTATE_ENABLED,TBSTYLE_SEP)
SetTbButtonData(tbb[4],3,IDM_ABOUT,TBSTATE_ENABLED,TBSTYLE_BUTTON)

'ツールバーを生成
CreateToolbarEx(_
hMainWnd, _
WS_CHILD or WS_VISIBLE, _
ID_TOOLBAR, _ 'ID_TOOLBAR, _
4, _ 'ビットマップの個数
GetModuleHandle(0), _
IDB_BITMAP1, _ 'ビットマップのリソースID
tbb, _
5, _ 'ボタンの個数
0,0, _ 'ボタンサイズ（0指定で自動セットに）
16,15, _ 'ビットマップサイズ
Len(tbb[0]))

End Sub
'
'●ツールバーボタン情報のセットサブ
'
Sub SetTbButtonData(ByRef ptb As TBBUTTON,
iBitmap As Long,
idCommand As Long,
fsState As Byte,
fsStyle As Byte)
'ptb（TBBUTTON構造体）にボタン情報を格納する
With ptb
.iBitmap=iBitmap
.idCommand=idCommand
.fsState=fsState
.fsStyle=fsStyle
.dwData=0
.iString=0
End With
End Sub



'----------------------------------
'↓以降はツールバーボタンをクリックした時の表示

'
'●新規作成
'
Sub MainWnd_IDM_NEW_MenuClick()
MessageBox(hMainWnd,"NEW","Message",MB_OK)
End Sub
'
'●ファイルのオープン
'
Sub MainWnd_IDM_OPEN_MenuClick()
MessageBox(hMainWnd,"OPEN","Message",MB_OK)
End Sub
'
'●ファイルの保存
'
Sub MainWnd_IDM_SAVE_MenuClick()
MessageBox(hMainWnd,"SAVE","Message",MB_OK)
End Sub
'
'●ヘルプ
'
Sub MainWnd_IDM_ABOUT_MenuClick()
MessageBox(hMainWnd,"ABOUT","Message",MB_OK)
End Sub
[/code]
[/hide]

　次に、「標準のビットマップ」を使うため、クリエイト・イベントを
下の様に変更したソースを作りました。

[hide=ここにソースが表示されます。]
[code]
'
'●クリエイト・イベント
'
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)

Dim ic As INITCOMMONCONTROLSEX
Dim tbb[9] As TBBUTTON

'コモンコントロールの初期化
ic.dwSize=Len(ic)
ic.dwICC=ICC_BAR_CLASSES
InitCommonControlsEx(ic)

'ボタン情報をセット
SetTbButtonData(tbb[0],STD_FILENEW,IDM_NEW,TBSTATE_ENABLED,TBSTYLE_BUTTON)
SetTbButtonData(tbb[1],STD_FILEOPEN,IDM_OPEN,TBSTATE_ENABLED,TBSTYLE_BUTTON)
SetTbButtonData(tbb[2],STD_FILESAVE,IDM_SAVE,TBSTATE_ENABLED,TBSTYLE_BUTTON)
SetTbButtonData(tbb[3],0,0,TBSTATE_ENABLED,TBSTYLE_SEP)
SetTbButtonData(tbb[4],STD_HELP,IDM_ABOUT,TBSTATE_ENABLED,TBSTYLE_BUTTON)

'ツールバーを生成
CreateToolbarEx(_
hMainWnd, _
WS_CHILD or WS_VISIBLE, _
ID_TOOLBAR, _ 'ID_TOOLBAR, _
4, _ 'ビットマップの個数
HINST_COMMCTRL,_ 'GetModuleHandle(0), _
IDB_STD_SMALL_COLOR, _'IDB_BITMAP1, _ 'ビットマップのリソースID
tbb, _
5, _ 'ボタンの個数
0,0, _ 'ボタンサイズ（0指定で自動セットに）
16,15, _ 'ビットマップサイズ
Len(tbb[0]))

End Sub
[/code]
[/hide]

　ボタン情報セットの箇所、
[quote]
標準ビットマップボタンは、インデックスに STD というプリフィクスを持ち
ビュービットマップボタンは VIEW というプリフィックスを持っています
あとは、TBBUTTON の iBitmap メンバに、用いたいボタンのインデックス値を指定します
[/quote]
なので、そのように iBitmap メンバを"STD_FILENEW"などと書き換えて、
後はCreateToolbarExの
　　GetModuleHandle(0)を "HINST_COMMCTRL"に、
　　ビットマップのリソースIDを"IDB_STD_SMALL_COLOR"に
(今回はより前述の説明ページのソースと合わせるため、"LARGE_COLOR"ではなく "SMALL_COLOR"で行いました。)
それぞれ変えて実行しました。

　コンパイル結果は、
[code]
MainWnd.sbp(74) - "STD_FILENEW" 無効な識別子です
MainWnd.sbp(75) - "STD_FILEOPEN" 無効な識別子です
MainWnd.sbp(76) - "STD_FILESAVE" 無効な識別子です
MainWnd.sbp(78) - "STD_HELP" 無効な識別子です
MainWnd.sbp(81) - "IDB_STD_SMALL_COLOR" 無効な識別子です
[/code]
とエラーが出て来ます。

　"IDB_STD_SMALL_COLOR"など
標準のビットマップを使うための定数が定義されていないのでは
とは思いますが、分からないのは、
「これらは定義されているものではないのか？」ということと、
「もし自分で定義しなければならないとすれば、実際に
どのような値をセットしなければならないのか？」ということです。
サーチエンジンで少し調べては見たのですが、定数の中身の数値までは
中々見つけられていません。

　エラーの原因はこのことばかりではないかも知れませんが、
これらについて、気づかれたことがありましたら教えてください。

[quote]標準ビットマップボタンは、インデックスに STD というプリフィクスを持ち
ビュービットマップボタンは VIEW というプリフィックスを持っています
あとは、TBBUTTON の iBitmap メンバに、用いたいボタンのインデックス値を指定します[/quote]

この定義はできているのでしょうか？

　雷電さん、再びのレスありがとうございます。
使いたいのは、ツールパーの「標準のビットマップ」というものです。
"hBMInst 引数に HINST_COMMCTRL を指定することにより
「ファイルを開く」や「切り取り」等のボタンが既成のものを使用できる"
と、説明↓にあるのを読み、やってみたところです。
http://wisdom.sakura.ne.jp/system/winapi/common/common8.html
(ページ中程の「標準のツールボタンを使う」という箇所です)
まだ実際うまく出来ていません。
何かお気づきのところがあれば是非また教えてください。
返信大変遅れてしまいました。

'ツールバーを生成
    hToolbar=CreateToolbarEx(hMainWnd, _
        WS_CHILD or WS_VISIBLE or TBSTYLE_TOOLTIPS, _
        ID_TOOLBAR, _
        10, _
        GetModuleHandle(0), _
        IDB_BITMAP1, _
        tbb, _
        13, _
        0,0, _
        16,15, _
        Len(tbb[0]))

CreateToolbarEx関数は普通に動いていると思われます。
そもそも、ビットマップIDなど変更しなくてもいいと思いますが・・・

[code]'ツールバーを生成
hToolbar=CreateToolbarEx(hMainWnd, _
WS_CHILD or WS_VISIBLE or TBSTYLE_TOOLTIPS, _
ID_TOOLBAR, _
10, _
GetModuleHandle(0), _
IDB_BITMAP1, _
tbb, _
13, _
0,0, _
16,15, _
Len(tbb[0]))[/code]

私の作っているプログラムと少し比べてみたのですが、第４パラメータがおかしい？かと思われます。このコードをコピー＆ペーストしてパラメータの部分を改造してみてください。
動くと思います。
今気づけば、AB付属のヘルプファイルにはCreateToolbarExの関数は載っていませんね・・・

雷電さん、レスありがとうございます。
[quote]
まず確認事項を確認してください。（といっても、分かるのは１つだけですが）

１、プロジェクトビューのビットマップイメージのIDがIDB_STD_LARGE_COLORとなっているか。
[/quote]
プロジェクトビューのビットマップイメージのIDがIDB_STD_LARGE_COLORとは
なっていません。
(ABヘルプセンターのWin32プログラミング講座のツールバーの説明のように
自分でビットマップを用意して挿入すればコンパイルは通りました。)

ただし、このIDB_STD_LARGE_COLORのビットマップは
自分で用意しなければならないのでしょうか？
hBMInst 引数に HINST_COMMCTRL を指定すれば
既成のもの(system-defined button bitmaps)を
使用できると思ったのですが。。。

無効な識別子と出るのは、プロジェクトファイルのリソースの問題があると考えられます。
まず確認事項を確認してください。（といっても、分かるのは１つだけですが）

１、プロジェクトビューのビットマップイメージのIDがIDB_STD_LARGE_COLORとなっているか。

これさえあってればコンパイルは普通に走るはずです。

  'ツールバーを生成
    CreateToolbarEx(_
        hMainWnd, _
        WS_CHILD or WS_VISIBLE or TBSTYLE_TOOLTIPS, _
        ID_TOOLBAR, _
        8, _                        'ビットマップの個数
        HINST_COMMCTRL,　_ 　　　　　　
        IDB_STD_LARGE_COLOR,　_　　 'ビットマップのリソースID
        tbb, _
        10, _                        'ボタンの個数
        0,0, _                      'ボタンサイズ（0指定で自動セットに）
        16,15, _                    'ビットマップサイズ
        Len(tbb[0]))

ツールバーに「標準のビットマップ」を使いたいと思い、下の様に書いたのですが、
コンパイル時に
「 "IDB_STD_LARGE_COLOR" 無効な識別子です」
とエラーが出てしまいます。
[code]
'ツールバーを生成
CreateToolbarEx(_
hMainWnd, _
WS_CHILD or WS_VISIBLE or TBSTYLE_TOOLTIPS, _
ID_TOOLBAR, _
8, _ 'ビットマップの個数
HINST_COMMCTRL,　_ 　　　　　　
IDB_STD_LARGE_COLOR,　_　　 'ビットマップのリソースID
tbb, _
10, _ 'ボタンの個数
0,0, _ 'ボタンサイズ（0指定で自動セットに）
16,15, _ 'ビットマップサイズ
Len(tbb[0]))
[/code]
ABヘルプセンターのWin32プログラミング講座のツールバーのソースを基に
hBMInst 引数に HINST_COMMCTRL を指定して、
wBMID 引数に渡すビットマップリソース
「IDB_STD_LARGE_COLOR : 大きいカラー標準ビットマップ」
を指定した部分を変えています。

環境はWinMeで
　AB4.24を使っています。


　(加えてもし、大きいカラー標準ビットマップが仮に使えた時、
ビットマップサイズは上の「16,15」のままで良いのでしょうか。)