Treeview, вызов процедуры NodeClick

[Алексей К.]

Хочу эмулировать нажатие на узел в дереве, есть предопределенная процедура:

Код: Выделить всё

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
....
EndSub

Вызываю ее по нажатию кнопки:

Код: Выделить всё

Private Sub Command6_Click()
Dim my_node As MSComctlLib.Node
Set my_node = TreeView1.Nodes(1)
TreeView1_NodeClick (my_node)
End Sub

на строке:
TreeView1_NodeClick (my_node)
ругается на не соответствие типов , как правильно передать узел в эту процедуру?

[tyomitch]

убери скобки.

[Алексей К.]

спасибо.

[Saturn.65]

Вставляю иконки в TreeView. Не могу сделать, чтоб при клике по плюсику иконка папки открывалась. А при клике не на плюсике открывается.

[Хакер]

Код: Выделить всё

Private Sub TV1_Collapse(ByVal Node As MSComctlLib.Node)
    Node.Image = "F"
End Sub

Private Sub TV1_Expand(ByVal Node As MSComctlLib.Node)
    Node.Image = "FF"
End Sub

[Saturn.65]

Хакер
Большое спасибо! Теперь все понятно. Люблю, когда с примером.