А ситуация у меня такая. Есть .chm файл справки, в открытом виде
окно этой справки содержит в себе дочернее окно класса SysTreeVIew32,
в котором выведены разделы справки в виде дерева. Хочу получить в
цикле текст всех деревьев и всех его листьев. Состряпал такую процедурку:
| Код |
Private Sub Command3_Click()
'идентификатор пункта TreeView
Dim item As Long
'счетчик цикла
Dim i As Integer
'получим идентефикатор корневого пункта
item = SendMessage(TreeView1.hwnd, TVM_GETNEXTITEM, TVGN_ROOT, 0)
'подготовим структуру для извлечения текста из пункта TreeView
Dim tvi As TV_ITEM
With tvi
.mask = TVIF_TEXT
.hItem = item
.pszText = String$(255, 0)
.cchTextMax = 255
End With
'получим информацию в заготовленную структуру
SendMessage TreeView1.hwnd, TVM_GETITEM, 0&, tvi
'выведем извлеченный текст
Debug.Print "текст = " & tvi.pszText
'повторим извлечение текста из остальных пунктов Treeview
For i = 1 To 3
item = SendMessage(TreeView1.hwnd, TVM_GETNEXTITEM, TVGN_NEXT, ByVal item)
With tvi
.mask = TVIF_TEXT
.hItem = item
.pszText = String$(255, 0)
.cchTextMax = 255
End With
SendMessage TreeView1.hwnd, TVM_GETITEM, 0&, tvi
Debug.Print "текст = " & tvi.pszText
Next i
End Sub
|
Проблема, если в SendMassage ставлю хэндл Treeview контрола, который лежит у
меня на форме, то текст заполучаю без проблем, но если подставить хэндл
дочернего окна справки класса SysTreeVIew32, при прохождении строки:
| Код |
SendMessage хэндл_окна, TVM_GETITEM, 0&, tvi
|
выдается ошибка:
Программа HH вызвала сбой при обращении к странице памяти
в модуле COMCTL32.DLL по адресу 0167:82630026.
Регистры:
и т.д. и т.п.
Подскажите, кто знает в чем может быть причина, что из родного TreeView читаем без
проблем, а на чужой ругается
|