ツリービューを作成しようとしています。
クリックした時に、それがアイテムだったら・・
という所までは、取得出来てるのですが
そのアイテムのテキストの取得方法が分かりません。
現在のコードはこんな感じです。
コード: 全て選択
Const TVM_GETITEM = &H110C
Dim cPoint As POINTAPI
Dim sTVHT As TVHITTESTINFO
Dim itm As TVITEM
GetCursorPos(cPoint)
sTVHT.pt.x=cPoint.x
sTVHT.pt.y=cPoint.y
ScreenToClient(hTree1,sTVHT.pt)
itm.mask = TVIF_TEXT
itm.cchTextMax = 255
itm.hItem =
SendMessage(hTree1,TVM_HITTEST,NULL,VarPtr(sTVHT) As LPARAM)
If sTVHT.flags = TVHT_ONITEMLABEL Then
SendMessage(hTree1,TVM_GETITEM,0,VarPtr(itm) As LPARAM)
MessageBox(hMainWnd,itm.pszText,0,0) /* 取得出来ない */
End If
もう少しのような気もしますが、取得出来ません。
もしかしたら、方向性も違っているかもしれません。
どなたか、ご存知の方がいましたら
ご教授をお願い致します。