TreeViewとImageListの関連付けがうまくいかない (ID:101654)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ＯＳ：Window2000   VisualBasic Ver：6.0
ganchanといいます。昨日問題解決でほっとしていましたが、早速次の問題が出ました。懲りずによろしくお願いします。
TreeViewとImageListを連結しているのですが、SendMessage関数で連結後TreeView1.Nodes.Addを実行すると「イメージリスト コントロールは、使用する前に初期化する必要があります。」と言う
メッセージを表示します。ImageListの作成からTreeViewとの連結までのコードでどこかまずいところがあるのかもしれません。
下に実際のコードを記載しますので、ご指摘をお願いします。
＜モジュール＞
'-------------------------------------------------------
' 変数
'-------------------------------------------------------
' イメージ リストのハンドル
Public hndImgLst As Long
Public hndTreeView As Long
Public hndListView As Long
'-------------------------------------------------------
' 定数
'-------------------------------------------------------
'ImageList_Create関数のflags項目の定数
Public Const ILC_MASK = &H1         'マスクを使用
Public Const ILC_COLOR = &HFE       'デフォルトの動作、通常はILC_COLOR4
Public Const ILC_COLORDDB = &HFE    'ＤＤＢを使用
Public Const ILC_COLOR4 = &H4       '４ビット（１６色）ＤＩＢセクションを使用
Public Const ILC_COLOR8 = &H8       '８ビット（２５６色）ＤＩＢセクションを使用
Public Const ILC_COLOR16 = &H10     '１６ビットＤＩＢセクションを使用
Public Const ILC_COLOR24 = &H18     '２４ビットＤＩＢセクションを使用
Public Const ILC_COLOR32 = &H20     '３２ビットＤＩＢセクションを使用
'SendMessage関数のwMsg項目の定数
Public Const TV_FIRST = &H1100
Public Const TVM_SETIMAGELIST = (TV_FIRST + 9)
Public Const TVM_GETNEXTITEM = (TV_FIRST + 10)
Public Const TVM_GETITEM = (TV_FIRST + 12)
Public Const TVM_SETITEM = (TV_FIRST + 13)
Public Const TVM_HITTEST = (TV_FIRST + 17)
Public Const TVM_SORTCHILDRENCB = (TV_FIRST + 21)
'SendMessage関数のlParam項目の定数
Public Const TVSIL_NORMAL = 0
Public Const TVSIL_STATE = 2
'-------------------------------------------------------
' 関数
'-------------------------------------------------------
' ImageList_Create関数のDeclare宣言
Public Declare Function ImageList_Create Lib "comctl32.dll" _
  (ByVal cx As Long, ByVal cy As Long, ByVal flags As Long, _
  ByVal cInitial As Long, ByVal cGrow As Long) As Long
' ImageList_ReplaceIcon関数のDeclare宣言
Public Declare Function ImageList_ReplaceIcon Lib "comctl32.dll" _
  (ByVal himl As Long, ByVal i As Long, ByVal hIcon As Long) As Long
' SendMessage関数のDeclare宣言
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
＜サブ関数＞
Public Function TreeView_SetImageList(hwnd As Long, himl As Long, iImage As Long) As Long
    TreeView_SetImageList = SendMessage(hwnd, TVM_SETIMAGELIST, ByVal iImage, ByVal himl)
End Function
＜フォームロード＞
Private Sub Form_Load()
    Dim Icon_Path As String
    Dim Icon_Full As String
    Dim nodX As Node                     'Nodeオブジェクト
    Dim ret As Long
    Dim msgbox_ret As Integer
    Dim msgbox_msg As String
    
    Icon_Path = "C:\Program Files\TacilityLedger\icons\"
    
    hndImgLst = ImageList_Create(16, 16, ILC_MASK Or ILC_COLOR8, 3, 0)
 
    If hndImgLst = 0 Then
        msgbox_msg = "イメージリストのハンドルを取得できません。"
        msgbox_ret = MsgBox(msgbox_msg, 48, "エラーメッセージ")
    Else
        Icon_Full = Icon_Path + "MAINICON.ICO"
        ImageList_AddIcon = ImageList_ReplaceIcon(hndImgLst, -1, LoadPicture(Icon_Full))
        Icon_Full = Icon_Path + "FOLDER.ICO"
        ImageList_AddIcon = ImageList_ReplaceIcon(hndImgLst, -1, LoadPicture(Icon_Full))
        Icon_Full = Icon_Path + "FOLDEROP.ICO"
        ImageList_AddIcon = ImageList_ReplaceIcon(hndImgLst, -1, LoadPicture(Icon_Full))
    End If

TreeView1.Nodes.Clear
    
    TreeView1.Font.Name = "ＭＳ 明朝"
    TreeView1.Font.Size = 8
    TreeView1.Font.Bold = False
    TreeView1.Font.Italic = False
    
    hndTreeView = TreeView1.hwnd
    
    Call TreeView_SetImageList(hndTreeView, hndImgLst, TVSIL_STATE)
    'Call TreeView_SetImageList(hndTreeView, hndImgLst, TVSIL_NORMAL)
  
    TreeView1.Sorted = False
    TreeView1.HideSelection = False
    TreeView1.Indentation = 19
    TreeView1.LabelEdit = tvwManual
  
    Set nodX = TreeView1.Nodes.Add(, tvwFirst, "R", "ルート", 1)
    Set nodX = TreeView1.Nodes.Add("R", tvwChild, "K000001", "ルートの子供その１", 2)
    Set nodX = TreeView1.Nodes.Add("R", tvwChild, "K000002", "ルートの子供その２", 2)
    Set nodX = TreeView1.Nodes.Add("K000001", tvwChild, "K000003", "ルートの子供その１の子供", 2)
    Set nodX = TreeView1.Nodes.Add("K000002", tvwChild, "K000004", "ルートの子供その２の子供", 2)
    
    TreeView1.Nodes(TreeView1.Nodes(1).Index).EnsureVisible
    TreeView1.Nodes(TreeView1.Nodes(2).Index).EnsureVisible
    TreeView1.Nodes(TreeView1.Nodes(3).Index).EnsureVisible
    
End Sub
最後にFormにはTreeViewコントロールとListViewコントロールを貼り付けています
どうかよろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る