|
15.09.2004, 19:07
#32696478
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: Кемеровская область, г. Белово
Сообщения: 248
Рейтинг:
0
/ 0
|
|
|
|
Привет(а тоя чего-то ни разу не поздороволся)!
Я тут за вчерашний вечер тебе пример набросал. Сегодня его в порядок привел. Вот что получилось.
1. Создаешь проект - стандартный exe-файл.
2. На Form1 добавляешь:
- TreeView1;
- TreeView2;
- Command1
3. Копирй мой код в код формы Form1.
Все. Дальше "кликаешь" кнопку и все увидишь.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const TV_FIRST As Long = &H1100 '// TreeView messages
Private Const TVM_GETCOUNT As Long = (TV_FIRST + 5 )
Private Const TVM_GETNEXTITEM As Long = (TV_FIRST + 10 )
Private Const TVM_SELECTITEM As Long = (TV_FIRST + 11 )
Private Const TVM_GETITEM As Long = (TV_FIRST + 12 )
Private Const TVM_GETEDITCONTROL As Long = (TV_FIRST + 15 )
Private Const TVGN_ROOT As Long = &H0
Private Const TVGN_NEXT As Long = &H1
Private Const TVGN_PREVIOUS As Long = &H2
Private Const TVGN_PARENT As Long = &H3
Private Const TVGN_CHILD As Long = &H4
Private Const TVGN_FIRSTVISIBLE As Long = &H5
Private Const TVGN_NEXTVISIBLE As Long = &H6
Private Const TVGN_PREVIOUSVISIBLE As Long = &H7
Private Const TVGN_DROPHILITE As Long = &H8
Private Const TVGN_CARET As Long = &H9
Private Const TVIF_TEXT As Long = &H1
Private Const TVIF_IMAGE As Long = &H2
Private Const TVIF_PARAM As Long = &H4
Private Const TVIF_STATE As Long = &H8
Private Const TVIF_HANDLE As Long = &H10
Private Const TVIF_SELECTEDIMAGE As Long = &H20
Private Const TVIF_CHILDREN As Long = &H40
Private Type TVITEM
mask As Long
hItem As Long
state As Long
stateMask As Long
pszText As String
cchTextMax As Long
iImage As Long
iSelectedImage As Long
cChildren As Long
lParam As Long
End Type
Private Type TVIParentChildren
lItem As Long
lParent As Long
lIndent As Long
End Type
Private lCurrentItem As Long
Private aHTREEITEM() As TVIParentChildren
Private Sub Form_Load()
Dim mNodes As Nodes, i As Integer, j As Integer
Dim intNodeKey As Integer, intParentKey As Integer
' создаваемый TreeView
Me.TreeView2.Nodes.Clear
Me.TreeView2.LineStyle = tvwRootLines
Me.TreeView2.Appearance = ccFlat
Me.TreeView2.HideSelection = False
Me.TreeView2.Indentation = 20
' исходный TreeView
Me.TreeView1.Enabled = False
Me.TreeView1.Nodes.Clear
Me.TreeView1.LineStyle = tvwRootLines
Me.TreeView1.Appearance = ccFlat
Me.TreeView1.HideSelection = False
Me.TreeView1.Indentation = 20
Set mNodes = Me.TreeView1.Nodes
Call mNodes.Add(, 1 , "0_", "Root Node, Level 0")
intNodeKey = 1
For i = 1 To 10
Call mNodes.Add("0_", 4 , Str$(intNodeKey) & "_", "Children Node " & Str$(intNodeKey) & ", level 1")
intNodeKey = intNodeKey + 1
Call mNodes.Add(Str$(intNodeKey - 1 ) & "_", 4 , Str$(intNodeKey) & "_", "Children Node " & Str$(intNodeKey) & ", level 2")
intParentKey = intNodeKey
intNodeKey = intNodeKey + 1
For j = 1 To 5
Call mNodes.Add(Str$(intParentKey) & "_", 4 , Str$(intNodeKey) & "_", "Children Node " & Str$(intNodeKey) & ", level 3")
intNodeKey = intNodeKey + 1
Next j
intNodeKey = intNodeKey + 1
Next i
End Sub
Private Sub Command1_Click()
Dim lItemCount As Long, lHwndItem As Long, i As Long
Dim bFlag As Boolean, mNodes As Nodes
lItemCount = SendMessage(ByVal TreeView1.hwnd, ByVal TVM_GETCOUNT, ByVal 0 &, ByVal 0 &)
ReDim aHTREEITEM( 0 To lItemCount - 1 )
' получаем HTREEITEM Root элемента
aHTREEITEM( 0 ).lItem = SendMessage(ByVal TreeView1.hwnd, ByVal TVM_GETNEXTITEM, ByVal TVGN_ROOT, ByVal 0 &)
aHTREEITEM( 0 ).lIndent = 0
' HTREEITEM первого элемента первого уровеня TreeView
aHTREEITEM( 1 ).lItem = SendMessage(ByVal TreeView1.hwnd, ByVal TVM_GETNEXTITEM, ByVal TVGN_CHILD, _
ByVal aHTREEITEM( 0 ).lItem)
aHTREEITEM( 1 ).lParent = aHTREEITEM( 0 ).lItem
aHTREEITEM( 1 ).lIndent = 1
' определяем HTREEITEM следующих элементов первого уровня
lHwndItem = SendMessage(ByVal TreeView1.hwnd, ByVal TVM_GETNEXTITEM, ByVal TVGN_NEXT, _
ByVal aHTREEITEM( 1 ).lItem)
i = 1
Do While lHwndItem <> 0
i = i + 1
aHTREEITEM(i).lItem = lHwndItem
aHTREEITEM(i).lParent = aHTREEITEM( 0 ).lItem
aHTREEITEM(i).lIndent = 1
lHwndItem = SendMessage(ByVal TreeView1.hwnd, ByVal TVM_GETNEXTITEM, ByVal TVGN_NEXT, _
ByVal aHTREEITEM(i).lItem)
Loop
' определяем HTREEITEM элементов следующих уровней
lCurrentItem = i
bFlag = True
i = 1
Do While bFlag
bFlag = GetOneLevelItem(ByVal i)
i = i + 1
Loop
' заполняем TreeView2
Me.TreeView2.Nodes.Clear
Set mNodes = Me.TreeView2.Nodes
Call mNodes.Add(, 1 , Trim$(Str$(aHTREEITEM( 0 ).lItem)) & "_", "Root Node, Level 0 - HTREEITEM: " & _
Trim$(Str$(aHTREEITEM( 0 ).lItem)))
For i = 1 To UBound(aHTREEITEM)
Call mNodes.Add(Trim$(Str$(aHTREEITEM(i).lParent)) & "_", 4 , Trim$(Str$(aHTREEITEM(i).lItem)) & "_", _
"Children Node, level " & Trim$(Str$(aHTREEITEM(i).lIndent)) & " - HTREEITEM: " & _
Trim$(Str$(aHTREEITEM(i).lItem)))
Next i
End Sub
'/* >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'/* Обрабатывает HTREEITEM эелементов TreeView одного уровня
Function GetOneLevelItem(ByVal lNumLevel As Long) As Boolean
Dim aTempHTREEITEM() As TVIParentChildren, i As Long, j As Long, lhItem As Long
For i = 0 To UBound(aHTREEITEM)
If aHTREEITEM(i).lIndent = lNumLevel Then
ReDim Preserve aTempHTREEITEM(j)
aTempHTREEITEM(j) = aHTREEITEM(i)
j = j + 1
End If
Next i
For i = 0 To UBound(aTempHTREEITEM)
' HTREEITEM первый Children элемент указанного уровеня TreeView
lhItem = SendMessage(ByVal TreeView1.hwnd, ByVal TVM_GETNEXTITEM, ByVal TVGN_CHILD, _
ByVal aTempHTREEITEM(i).lItem)
If lhItem <> 0 Then
GetOneLevelItem = True
lCurrentItem = lCurrentItem + 1
aHTREEITEM(lCurrentItem).lItem = lhItem
aHTREEITEM(lCurrentItem).lParent = aTempHTREEITEM(i).lItem
aHTREEITEM(lCurrentItem).lIndent = lNumLevel + 1
' определяем HTREEITEM следующих Children элементов указанного уровня
j = SendMessage(ByVal TreeView1.hwnd, ByVal TVM_GETNEXTITEM, ByVal TVGN_NEXT, _
ByVal aHTREEITEM(lCurrentItem).lItem)
Do While j <> 0
lCurrentItem = lCurrentItem + 1
aHTREEITEM(lCurrentItem).lItem = j
aHTREEITEM(lCurrentItem).lParent = aTempHTREEITEM(i).lItem
aHTREEITEM(lCurrentItem).lIndent = lNumLevel + 1
j = SendMessage(ByVal TreeView1.hwnd, ByVal TVM_GETNEXTITEM, ByVal TVGN_NEXT, _
ByVal aHTREEITEM(lCurrentItem).lItem)
Loop
End If
Next i
End Function
Private Sub TreeView2_NodeClick(ByVal Node As MSComctlLib.Node)
Dim lhItem As Long
lhItem = CLng(Mid$(Me.TreeView2.SelectedItem.Key, 1 , Len(Me.TreeView2.SelectedItem.Key) - 1 ))
Call SendMessage(ByVal TreeView1.hwnd, ByVal TVM_SELECTITEM, ByVal TVGN_CARET, ByVal lhItem&)
End Sub
Все. Я пошел смотреть футбол(и так уже 15 минут пропустил). |
|
|
