Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / TreeView / 10 сообщений из 10, страница 1 из 1
16.01.2003, 11:06
    #32091638
Настя К
Настя К
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
Столкнулась с проблемой: создала элемент управления типа TreeView, связала с таблицей, все чудно работает, за исключением следующего:

1. Почему-то не работает DeleteNode

2. Не работает DragOver (сразу ругается на какие-то конфликты с мышью, я так понимаю, что процедура обработки события для элемента управления, реагирующая на движение мыши "пересекается" с соотв. процедурой для формы)
3. Хотелось бы воспроизвести в своем дереве механизм "перетаскивания" элемента с одного места на другое. Если у кого-нибудь есть соотв. опыт, буду благодарна за фрагмент программы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2003, 22:06
    #32092183
-=Alexey=-
-=Alexey=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
Не помню откуда, но есть пример drag&drop для TreeView,
всего одна форма, два TreeView из одного в другой можно узлы перетаскивать, код формы такой

Код: plaintext
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.
Option Compare Database
Option Explicit
Dim st As String
Dim nodx As Node

Private Sub Form_Load()

    Set nodx = Treeview1.Nodes.Add(, , ,  "Parent" )
    Set nodx = Treeview2.Nodes.Add(, , ,  "Parent" )

    Set nodx = Treeview1.Nodes.Add( 1 , tvwChild, ,  "Child1" )
    Set nodx = Treeview1.Nodes.Add( 1 , tvwChild, ,  "Child2" )
    Set nodx = Treeview1.Nodes.Add( 3 , tvwChild, ,  "Child3" )
    nodx.EnsureVisible
End Sub

Private Sub Treeview1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
    If (Not (Treeview1.HitTest(x, y) Is Nothing)) Then
        Treeview1.SelectedItem = Treeview1.HitTest(x, y)
        st = Treeview1.SelectedItem.Text
    Else
        st =  ""
    End If
        
End Sub

Private Sub Treeview1_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    If Treeview1.DropHighlight Is Nothing Then
        Set Treeview1.DropHighlight = Nothing
        Exit Sub
    ElseIf ((Not (Treeview1.DropHighlight Is Nothing)) And (st <> "  ")) Then
        Set nodx = Treeview1.Nodes.Add(Treeview1.DropHighlight.Index, 4 , , st)
        nodx.Selected = True: nodx.EnsureVisible
        Set Treeview1.DropHighlight = Nothing
    End If

End Sub

Private Sub Treeview1_OLEDragOver _
(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
    
    Set Treeview1.DropHighlight = Treeview1.HitTest(x, y)
   
End Sub

Private Sub Treeview2_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    If Treeview2.DropHighlight Is Nothing Then
        Set Treeview2.DropHighlight = Nothing
        st = " "
        Exit Sub
    ElseIf ((Not (Treeview2.DropHighlight Is Nothing)) And (st <> "  ")) Then
        Set nodx = Treeview2.Nodes.Add(Treeview2.DropHighlight.Index, 4 , , st)
        nodx.Selected = True: nodx.EnsureVisible
        Set Treeview2.DropHighlight = Nothing
    End If

End Sub

Private Sub Treeview2_OLEDragOver _
(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
    Set Treeview2.DropHighlight = Treeview2.HitTest(x, y)
End Sub
Private Sub Treeview2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
    If (Not (Treeview2.HitTest(x, y) Is Nothing)) Then
        Treeview2.SelectedItem = Treeview2.HitTest(x, y)
        st = Treeview2.SelectedItem.Text
    Else
        st = ""
    End If
        
End Sub


может быть чем поможет, на всякий случай "скрипт" всей формы

Код: plaintext
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.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
333.
334.
335.
336.
337.
338.
339.
340.
341.
342.
343.
344.
345.
346.
347.
348.
349.
350.
351.
352.
353.
354.
355.
356.
357.
358.
359.
360.
361.
362.
363.
364.
365.
366.
367.
368.
369.
370.
371.
372.
373.
374.
375.
376.
377.
378.
379.
380.
381.
382.
383.
384.
385.
386.
387.
388.
389.
390.
391.
392.
393.
394.
395.
396.
397.
398.
399.
400.
Version = 17 
VersionRequired = 17 
Checksum = 457071191 
Begin Form
    RecordSelectors = NotDefault
    NavigationButtons = NotDefault
    DividingLines = NotDefault
    DefaultView = 0 
    ScrollBars = 0 
    TabularCharSet = 204 
    PictureAlignment = 2 
    DatasheetGridlinesBehavior = 3 
    GridY = 10 
    Width = 7712 
    DatasheetFontHeight = 10 
    ItemSuffix = 6 
    Left = 2580 
    Top = 1455 
    Right = 10680 
    Bottom = 6930 
    DatasheetGridlinesColor = 12632256 
    RecSrcDt = Begin
        0x0709c7f075cbe140
    End
    DatasheetFontName = "Arial Cyr" 
    OnLoad = "[Event Procedure]" 
    Begin
        Begin Label
            BackStyle = 0 
            TextFontCharSet = 204 
        End
        Begin CustomControl
            SpecialEffect = 2 
            Width = 4536 
            Height = 2835 
        End
        Begin Section
            Height = 5096 
            BackColor =- 2147483633 
            Name = "ОбластьДанных" 
            Begin
                Begin CustomControl
                    Enabled = NotDefault
                    SizeMode = 1 
                    SpecialEffect = 0 
                    OverlapFlags = 93 
                    Left = 4202 
                    Top = 566 
                    Width = 3510 
                    Height = 4530 
                    AutoActivate = 1 
                    Name = "Treeview1" 
                    OleData = Begin
                        0x000e0000d0cf11e0a1b11ae1000000000000000000000000000000003e000300 ,
                        0xfeff090006000000000000000000000001000000020000000000000000100000 ,
                        0x0400000001000000feffffff0000000003000000ffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffff52006f006f007400200045006e007400720079000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000016000500ffffffffffffffff02000000a2e813070a851b10afc04210 ,
                        0x102a8da700000000000000000000000000a7ae5c2913bf010700000000010000 ,
                        0x0000000003004100630063006500730073004f0062006a005300690074006500 ,
                        0x4400610074006100000000000000000000000000000000000000000000000000 ,
                        0x0000000026000200ffffffffffffffffffffffff000000000000000000000000 ,
                        0x000000000000000000000000000000000000000000000000000000004f000000 ,
                        0x0000000043006f006e00740065006e0074007300000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000012000201ffffffff01000000ffffffff000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000200000056000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000ffffffffffffffffffffffff000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x00000000fefffffffdfffffffffffffffffffffffffffffffffffffffeffffff ,
                        0xfeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffff52006f006f007400200045006e007400720079000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000016000500ffffffffffffffff02000000a2e813070a851b10afc04210 ,
                        0x102a8da7000000000000000000000000808443d92d13bf010500000000010000 ,
                        0x0000000003004100630063006500730073004f0062006a005300690074006500 ,
                        0x4400610074006100000000000000000000000000000000000000000000000000 ,
                        0x0000000026000200ffffffffffffffffffffffff000000000000000000000000 ,
                        0x000000000000000000000000000000000000000000000000000000004f000000 ,
                        0x0000000043006f006e00740065006e0074007300000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000012000201ffffffff01000000ffffffff000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000200000056000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000ffffffffffffffffffffffff000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x00000000fffffffffffffffffefffffffdfffffffefffffffeffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffff01000000feffffff03000000feffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffff4f000000000000000100000000000000000000000000000000000000 ,
                        0x170000003800000000000000000000000000000000000000000000002071686a ,
                        0x205a74755168613b6a64666e5b69616574722000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000021433412080000002f180000361f00008e7ee1e60200050022000000 ,
                        0x3d000000e80300000100000001efcdab00000500e313f8bf0628000000000000 ,
                        0x0500008080f56200010000005c001fdeecbd0100050024eb5d82000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    OLEClass = "TreeCtrl" 
                    Class = "COMCTL.TreeCtrl.1 "
                End
                Begin CustomControl
                    Enabled = NotDefault
                    SizeMode = 1 
                    SpecialEffect = 0 
                    OverlapFlags = 85 
                    Left = 281 
                    Top = 566 
                    Width = 3510 
                    Height = 4530 
                    AutoActivate = 1 
                    TabIndex = 1 
                    Name = "Treeview2" 
                    OleData = Begin
                        0x000e0000d0cf11e0a1b11ae1000000000000000000000000000000003e000300 ,
                        0xfeff090006000000000000000000000001000000020000000000000000100000 ,
                        0x0400000001000000feffffff0000000003000000ffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xfffffffffdfffffffeffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffff52006f006f007400200045006e007400720079000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000016000500ffffffffffffffffffffffff000000000000000000000000 ,
                        0x000000000000000000000000000000000000000000000000feffffff00000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000ffffffffffffffffffffffff000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000ffffffffffffffffffffffff000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000ffffffffffffffffffffffff000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000052006f006f007400200045006e007400720079000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000016000500ffffffffffffffff02000000a2e813070a851b10afc04210 ,
                        0x102a8da7000000000000000000000000808443d92d13bf010500000000010000 ,
                        0x0000000003004100630063006500730073004f0062006a005300690074006500 ,
                        0x4400610074006100000000000000000000000000000000000000000000000000 ,
                        0x0000000026000200ffffffffffffffffffffffff000000000000000000000000 ,
                        0x000000000000000000000000000000000000000000000000000000004f000000 ,
                        0x0000000043006f006e00740065006e0074007300000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000012000201ffffffff01000000ffffffff000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000200000056000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000ffffffffffffffffffffffff000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x00000000fffffffffffffffffefffffffdfffffffefffffffeffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffff01000000feffffff03000000feffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff ,
                        0xffffffff4f000000000000000100000000000000000000000000000000000000 ,
                        0x170000003800000000000000000000000000000000000000000000002071686a ,
                        0x205a74755168613b6a64666e5b69616574722000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000021433412080000002f180000361f00008e7ee1e60200050022000000 ,
                        0x3d000500e80300000100000001efcdab00000500e313f8bf06a8ffff00000000 ,
                        0x0500008080f56200010000005c001fdeecbd01000500f8525e82000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    OLEClass = "TreeCtrl" 
                    Class = "COMCTL.TreeCtrl.1 "
                End
                Begin Label
                    OverlapFlags = 85 
                    TextAlign = 2 
                    Left = 705 
                    Top = 120 
                    Width = 2745 
                    Height = 390 
                    FontSize = 14 
                    Name = "Надпись4" 
                    Caption = "Target + Source" 
                End
                Begin Label
                    OverlapFlags = 119 
                    TextAlign = 2 
                    Left = 4635 
                    Top = 120 
                    Width = 2745 
                    Height = 450 
                    FontSize = 14 
                    Name = "Надпись5" 
                    Caption = "Target + Source" 
                End
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database
Option Explicit
Dim st As String
Dim nodx As Node

Private Sub Form_Load()

    Set nodx = Treeview1.Nodes.Add(, , ,  "Parent" )
    Set nodx = Treeview2.Nodes.Add(, , ,  "Parent" )

    Set nodx = Treeview1.Nodes.Add( 1 , tvwChild, ,  "Child1" )
    Set nodx = Treeview1.Nodes.Add( 1 , tvwChild, ,  "Child2" )
    Set nodx = Treeview1.Nodes.Add( 3 , tvwChild, ,  "Child3" )
    nodx.EnsureVisible
End Sub

Private Sub Treeview1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
    If (Not (Treeview1.HitTest(x, y) Is Nothing)) Then
        Treeview1.SelectedItem = Treeview1.HitTest(x, y)
        st = Treeview1.SelectedItem.Text
    Else
        st =  ""
    End If
        
End Sub

Private Sub Treeview1_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    If Treeview1.DropHighlight Is Nothing Then
        Set Treeview1.DropHighlight = Nothing
        Exit Sub
    ElseIf ((Not (Treeview1.DropHighlight Is Nothing)) And (st <> "  ")) Then
        Set nodx = Treeview1.Nodes.Add(Treeview1.DropHighlight.Index, 4 , , st)
        nodx.Selected = True: nodx.EnsureVisible
        Set Treeview1.DropHighlight = Nothing
    End If

End Sub

Private Sub Treeview1_OLEDragOver(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
    
    Set Treeview1.DropHighlight = Treeview1.HitTest(x, y)
   
End Sub

Private Sub Treeview2_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    If Treeview2.DropHighlight Is Nothing Then
        Set Treeview2.DropHighlight = Nothing
        st = " "
        Exit Sub
    ElseIf ((Not (Treeview2.DropHighlight Is Nothing)) And (st <> "  ")) Then
        Set nodx = Treeview2.Nodes.Add(Treeview2.DropHighlight.Index, 4 , , st)
        nodx.Selected = True: nodx.EnsureVisible
        Set Treeview2.DropHighlight = Nothing
    End If

End Sub

Private Sub Treeview2_OLEDragOver(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
    Set Treeview2.DropHighlight = Treeview2.HitTest(x, y)
End Sub
Private Sub Treeview2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
    If (Not (Treeview2.HitTest(x, y) Is Nothing)) Then
        Treeview2.SelectedItem = Treeview2.HitTest(x, y)
        st = Treeview2.SelectedItem.Text
    Else
        st = ""
    End If
        
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2003, 12:45
    #32295183
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
стыдно признаться но я не знаю что такое скрипт формы...

что за фишка такая ? и как импортировать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2003, 13:11
    #32295227
Pavel
Pavel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
А мне не стыдно. Но я тоже не знаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2003, 13:20
    #32295244
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
>что за фишка такая ? и как импортировать?

С помощью скрытого метода
LoadFromText(ObjectType As AcObjectType, ObjectName As String, FileName As String)

экспорт
SaveAsText(ObjectType As AcObjectType, ObjectName As String, FileName As String)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2003, 13:57
    #32295320
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
Сенькс Виктору Сенину ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2003, 14:25
    #32295352
Pavel
Pavel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
и от меня Сенькс!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2003, 14:39
    #32295385
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
еще вопрос:

вот зараза - при импроте формы все работает
а при воссоздании средствами аксесса событий драг овер и драг дроп не случается

естественно в конструкторе аксесса нет событий для тривьюва
как програмно назначается событие для тривью [event procedure] ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2003, 14:44
    #32295391
АлексейЕ
АлексейЕ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
Установите свойства OLEDragMode = 1 - OLEDragAutomatic и OLEDropMode = 1- OLEDropManual элементов TreeView1 и TreeView2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2003, 14:55
    #32295418
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
уже разобрался... но все равно спасибо.
за отзывчивость
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / TreeView / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 351ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1678834]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 59ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 212ms
total:  351ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]