ab.com コミュニティ

試してみましたが、うまくいきませんでした。できればエクスプローラのツリービューのようにしたいのですが...あとTVGN_CHILDは指定されたアイテムが持つ最初の子アイテムを取得するようです。

TVIcon->hItem=SendMessage(hAny,TVM_GETNEXTITEM,TVGN_ROOT,0) As HTREEITEM

Dim hRoot As HTREEITEM
	hRoot=SendMessage(hAny,TVM_GETNEXTITEM,TVGN_ROOT,0) As HTREEITEM
	TVIcon->hItem=SendMessage(hAny,TVM_GETNEXTITEM,TVGN_CHILD,hRoot)

> 親アイテムのアイコンは出来たのですが、子アイテムのすべてに設定するにはどうすればいいのでしょうか
調べるのも面倒で想像のお話ですが、[b]TVM_ROOT[/b]を[b]TVGN_CHILD[/b](だっけ？)にしてみては如何でしょう？
[code]TVIcon->hItem=SendMessage(hAny,TVM_GETNEXTITEM,TVGN_ROOT,0) As HTREEITEM[/code]の部分を、[code]Dim hRoot As HTREEITEM
hRoot=SendMessage(hAny,TVM_GETNEXTITEM,TVGN_ROOT,0) As HTREEITEM
TVIcon->hItem=SendMessage(hAny,TVM_GETNEXTITEM,TVGN_CHILD,hRoot)[/code]

親と子、別にイメージリストを設定する方法じゃないと思うんですけど、ツリービューの勉強にはなるかもしれません。
[url]http://abfan.active.client.jp/[/url]の「Control Windows」の「ツリービューの使い方」っていう項目です。

親アイテムのアイコンは出来たのですが、子アイテムのすべてに設定するにはどうすればいいのでしょうか

'------------------------------------------------------------
' イメージリストを作成
'------------------------------------------------------------
Dim TVIcon As *TVITEM
Dim IMIndex[2] As Long' アイテムのインデックス

	hImageList=ImageList_Create(16,16,ILC_COLOR4 or ILC_MASK,3,0)

	IMIndex[0]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Close))
	IMIndex[1]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Open))
	IMIndex[2]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Text))
	SendMessage(hAny,TVM_SETIMAGELIST,0,hImageList As Long)

	TVIcon=calloc(SizeOf(TVITEM))

	TVIcon->hItem=SendMessage(hAny,TVM_GETNEXTITEM,TVGN_ROOT,0) As HTREEITEM
	TVIcon->mask=TVIF_IMAGE
	TVIcon->iImage=IMIndex[0]
	TVIcon->iSelectedImage=IMIndex[1]

	SendMessage(hAny,TVM_SETITEM,0,TVIcon)

	free(TVIcon)

> 親アイテムのアイコンを設定しようとコードを組んでみましたがアクセス違反が起きます。どこが悪いのでしょうか？
実際に動かしてないのですが、こうしてみては如何でしょう？
[hide][code]'------------------------------------------------------------
' イメージリストを作成
'------------------------------------------------------------
Dim TVIcon As *TVITEM
Dim IMIndex[2] As Long' アイテムのインデックス

hImageList=ImageList_Create(16,16,ILC_COLOR4 or ILC_MASK,3,0)

IMIndex[0]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Close))
IMIndex[1]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Open))
IMIndex[2]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Text))
SendMessage(hAny,TVM_SETIMAGELIST,0,hImageList As Long)

TVIcon=calloc(SizeOf(TVITEM))

TVIcon->hItem=SendMessage(hAny,TVM_GETNEXTITEM,TVGN_ROOT,0) As HTREEITEM
TVIcon->mask=TVIF_IMAGE
TVIcon->iImage=IMIndex[0]
TVIcon->iSelectedImage=IMIndex[1]

SendMessage(hAny,TVM_SETITEM,0,TVIcon)

free(TVIcon)[/code][/hide]
TVITEM構造体のポインタ型を宣言してもそのまま使える訳ではありません。mallocやcallocでメモリを確保してやる必要が有ります。
TVITEM構造体のポインタを格納する場合は、mallocやcallocしなくても良かったと思うんですけどね。

    'イメージリストを作成
	Dim TVIcon As *TVITEM
	Dim IMIndex[2] As Long 'アイテムのインデックス
    hImageList=ImageList_Create(16,16,ILC_COLOR4 or ILC_MASK,3,0)
    IMIndex[0]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Close))
    IMIndex[1]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Open))
	IMIndex[2]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Text))
    SendMessage(hAny,TVM_SETIMAGELIST,0,hImageList As Long)


	TVIcon->hItem=SendMessage(hAny,TVM_GETNEXTITEM,TVGN_ROOT,0) As HTREEITEM 'ここでアクセス違反
	TVIcon->mask=TVIF_IMAGE
	TVIcon->iImage=IMIndex[0]
	TVIcon->iSelectedImage=IMIndex[1]

	SendMessage(hAny,TVM_SETITEM,0,TVIcon)

親アイテムのアイコンを設定しようとコードを組んでみましたがアクセス違反が起きます。どこが悪いのでしょうか？
[code] 'イメージリストを作成
Dim TVIcon As *TVITEM
Dim IMIndex[2] As Long 'アイテムのインデックス
hImageList=ImageList_Create(16,16,ILC_COLOR4 or ILC_MASK,3,0)
IMIndex[0]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Close))
IMIndex[1]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Open))
IMIndex[2]=ImageList_AddIcon(hImageList,LoadIcon(GetModuleHandle(0),IDI_Text))
SendMessage(hAny,TVM_SETIMAGELIST,0,hImageList As Long)


TVIcon->hItem=SendMessage(hAny,TVM_GETNEXTITEM,TVGN_ROOT,0) As HTREEITEM 'ここでアクセス違反
TVIcon->mask=TVIF_IMAGE
TVIcon->iImage=IMIndex[0]
TVIcon->iSelectedImage=IMIndex[1]

SendMessage(hAny,TVM_SETITEM,0,TVIcon)
[/code]

> ツリービューの親アイテムと子アイテムに別々のアイコンを描画するにはどうすればいいのでしょうか？

流れとしては、
1) イメージリストの作成
2) イメージリストの割り当て
3) イメージリストの選択
でしょうか。

1はビットマップをイメージリストに変更等々、ググれば出てきます。
(ImageList_Create、ImageList_Addあたり)

2はTVM_SETIMAGELISTでSendMessage。

3はTVITEM構造体のmaskにTVIF_IMAGEを入れて、iImageとiSelectedImageで
使用するIndexを指定します。

こんな感じです。

ツリービューの親アイテムと子アイテムに別々のアイコンを描画するにはどうすればいいのでしょうか？