Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: контекст меню к дереву
 
 автор: Мишок   (19.02.2014 в 17:16)   личное сообщение
 
 

как делается контекст меню к дереву? на Tre1_MouseUp вылезает ошибка, может какую библиотеку подключить?

  Ответить  
 
 автор: osmor   (20.02.2014 в 12:55)   личное сообщение
 
 

http://hiprog.com/index.php?option=com_content&task=view&id=690

  Ответить  
 
 автор: Мишок   (20.02.2014 в 13:06)   личное сообщение
 
 

да, но на событие
'нужно для использования контекстного меню при клике на дереве
Private Sub TvwCtl_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)

вылизает ошибка, не понимаю почему

  Ответить  
 
 автор: osmor   (20.02.2014 в 13:32)   личное сообщение
 
 

какая ошибка?

  Ответить  
 
 автор: Мишок   (20.02.2014 в 17:43)   личное сообщение
59 Кб.
 
 

такая

  Ответить  
 
 автор: Мишок   (25.02.2014 в 17:14)   личное сообщение
 
 

помогите с контекстом, пожалуйста

  Ответить  
 
 автор: kot_k_k   (26.02.2014 в 22:56)   личное сообщение
 
 

Tre1_MouseUp - у тебя ошибка, и дальше
Private Sub TvwCtl_MouseDown(ByVal Button As In.....)

Tre1_MouseUp и TvwCtl_MouseDown - как-то не сочетается или второе название с примера?

ну код выложи

  Ответить  
 
 автор: Мишок   (28.02.2014 в 10:46)   личное сообщение
 
 

динамическое меню получается, но повесить на првый клик не могу.
сдесь http://www.mishadiana.euro.ru/vb51-100.html (Совет 88. ПЕРЕХВАТ ПРАВЫХ КЛИКОВ НА УЗЛАХ TREEVIEW) у меня угнорирует NodeClick

  Ответить  
 
 автор: kot_k_k   (04.03.2014 в 17:13)   личное сообщение
 
 

у меня в обработке клика вот так


If bRightMouseDown Then
    Set myBar = CommandBars("zp")
    myBar.ShowPopup
    Exit Sub
End If


и всё работает.

п.с. да выложи ты код.

  Ответить  
 
 автор: Гоблин   (26.03.2014 в 22:46)   личное сообщение
 
 

Плиз уточнить. myBar - это переменная какого типа? И в каком коде обработки дерева это стоит?

  Ответить  
 
 автор: kot_k_k   (27.03.2014 в 10:59)   личное сообщение
 
 

тип переменной не задавал,
стоит в самом начале обработки NodeClick, -> показываем меню -> выход из обработки.
вот этими двумя процедурами обрабатываем нажатие мыша на дереве.


Private Sub TreeView0_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
If Button And acRightButton Then
    bRightMouseDown = True
Else
    bRightMouseDown = False
End If
End Sub

Private Sub TreeView0_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
    bRightMouseDown = False
End Sub

  Ответить  
 
 автор: Гоблин   (22.03.2014 в 14:36)   личное сообщение
 
 

Задавался подобным вопросом как-то очень давно. Ответ был - никак. Хотя есть примеры акса с деревом, в котором работает контекст по дереву. Но разобраться в тех модулях и классах была не судьба.
Оч интересно, есть ли простое решение по этому поводу?

  Ответить  
 
 автор: kot_k_k   (22.03.2014 в 15:16)   личное сообщение
 
 

в том решение и есть контекст к дереву, спокойно работает

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList