ツリービューに追加

返信する


答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
BBCode: ON
[img]: ON
[url]: ON
スマイリー: OFF
トピックのレビュー
   

展開ビュー トピックのレビュー: ツリービューに追加

by C1000 » 2006年5月16日(火) 19:39

うまくいきました～
7さん・雷電さんありがとうございました。

by 7 » 2006年5月15日(月) 21:36

気を取り直して返信です。TVITEM構造体の mask メンバに TVIF_TEXT を指定しているでしょうか？

コード: 全て選択

Sub ItemAdd (ByVal HTR As HTREEITEM,ByVal Text As BytePtr)
    Dim tvi As TVINSERTSTRUCT
    Dim hTreeItem As HTREEITEM
    '子アイテムを追加する。
    tvi.hParent = HTR
    tvi.item.mask=TVIF_TEXT	' TVITEM構造体の pszText メンバを有効にします
    tvi.item.pszText = Text
    hTreeItem = TreeView_InsertItem( hAny , tvi )
End Sub

by 雷電 » 2006年5月15日(月) 21:12

そうだったんですか。
ツリービューは前にやってたなぁーと思って探して、URLを貼り付けました。
諦めてしまったツリービューですが、この際なので、もう一度学びなおそうかと思います。。。(^_^;)

Re: ツリービューに追加

by 7 » 2006年5月15日(月) 21:08

試してないんですけど、ItemAdd()関数の第一引数がバイバリューになってるせいじゃないでしょうか。バイリファレンスにしてみては？

コード: 全て選択

Sub ItemAdd (ByRef HTR As HTREEITEM,ByVal Text As BytePtr)
    Dim tvi As TVINSERTSTRUCT
    Dim hTreeItem As HTREEITEM
    '子アイテムを追加する。
    tvi.hParent = HTR
    tvi.item.pszText = Text
    hTreeItem = TreeView_InsertItem( hAny , tvi )
End Sub
自分は省略好きじゃなくて ByVal も書いちゃいます。

追記。
思いっきり勘違いしてました。無視してください。
TVITEM構造体だと思ったらHTREEITEMでしたね...。

by C1000 » 2006年5月15日(月) 20:57

実は雷電さんが質問した物を参考に作っています。

by 雷電 » 2006年5月15日(月) 20:08

私が質問したものですが、参考にしていただければ光栄です
http://www.activebasic.com/forum/viewtopic.php?t=652

ツリービューに追加

by C1000 » 2006年5月15日(月) 20:02

ツリービューにアイテムを追加するために次のようなサブルーチンを作りましたが、
テキストが設定されません。どこが悪いのでしょうか？

コード: 全て選択

Sub ItemAdd (HTR As HTREEITEM,Text As BytePtr)
	Dim tvi As TVINSERTSTRUCT
	Dim hTreeItem As HTREEITEM
	'子アイテムを追加する。
    tvi.hParent = HTR
    tvi.item.pszText = Text
    hTreeItem = TreeView_InsertItem( hAny , tvi )
End Sub

ページトップ