| |
|
|
| | Подскажите плиз в чем фишка.
Вот на это событие: Private Sub TreeView1_NodeClick(ByVal Node As Object)...
код работает, на форме все меняется и т.д.
Тупо пытаюсь сделать то же самое
Private Sub TreeView1_NodeDblClick(ByVal Node As Object)
ничего не работает, как будто и нет этих щелчков. Выкрутиться можно и другим способом, но интересно, почему при 2 щелчке на узле код не выполняется? | |
| |
| |
| |
|
|
| | Я, не в курсе...  | |
| |
| |
| |
|
|
| | А перед двойным кликом не срабатывает одинарный? | |
| |
| |
| |
|
|
| | с деревом не вкурсе, а вот
Private Sub Поле12_Click()
Private Sub Поле12_DblClick(Cancel As Integer)
имеют разные параметры в скобках - может таже фигня и с деревом? | |
| |
| |
| |
|
|
| | Ну в общем-то нет такого события у дерева | |
| |
| |
|
|
| |
|
|
| | Перед двойным щелчком срабатывает одинарный. Куда же ему деться. События такого нет, но и на клик тоже не наблюдается. Только после обновления.
Ну да ладно. Просто где-то я видел такую фишку, что по дереву 2 щелчка на узле делают. Хрен с ним. Выкручусь другим способом.
Всем спасибо. | |
| |
| |
| |
|
|
| | если вопрос о решении, то
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Set TreeView1.SelectedItem = TreeView1.HitTest(x, y)
End Sub
Private Sub TreeView1_DblClick()
If Not TreeView1.SelectedItem Is Nothing Then
Debug.Print TreeView1.SelectedItem.Text
Else
Debug.Print "No Node Selected"
End If
End Sub
|
| |
| |
| |
