ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / TreeView
10 сообщений из 10, страница 1 из 1
TreeView
    #32091638
Настя К
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя К
Гость
Столкнулась с проблемой: создала элемент управления типа TreeView, связала с таблицей, все чудно работает, за исключением следующего:

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

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

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

С помощью скрытого метода
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:20
| Ответить | Цитировать | Написать  
TreeView
    #32295320
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
Сенькс Виктору Сенину ))
...
Рейтинг: 0 / 0
16.10.2003, 13:57
| Ответить | Цитировать | Написать  
TreeView
    #32295352
Фотография Pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel
Участник
и от меня Сенькс!
...
Рейтинг: 0 / 0
16.10.2003, 14:25
| Ответить | Цитировать | Написать  
TreeView
    #32295385
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
еще вопрос:

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

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


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