Помогите с Treeview

[moppuk]

Помогите плиз, народ...
Короче проблема. Сделал TreeView... С картинками все нормально.
Столкнулся с проблемой как описать теперь нажатие на тот или иной элемент... Например нри нажатии на что-либо, на форме появляется каритнка... Ну и все в таком духе...

[Amed]

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

Private Sub Form_Load()
TreeView1.Nodes.Add , , "r", "root"
TreeView1.Nodes.Add "r", tvwChild, "c", "Child"
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
if Node.Text = "Child" then msgbox "'Child clicked'"
End Sub

[moppuk]

Amed - огромное тебе спасибо...
Все получилось... Благодарю....
Много раз спасибо...

[Amed]

Корректнее будет вот так

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

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Key = "c" Then MsgBox "'Child clicked'"
End Sub

Но, думаю, смысл ты ухватил

[moppuk]

Да, конечно уловил, я сам так и сделал...
Просто по ключу...
Спасибо.

[Wild VB Code for Food]

ИМХО, тема не по разделу, надо на один пункт вниз.

[moppuk]

Wild VB Code for Food f а у тебя какие-то проблемы?
Ты бы лучьше помог или подсказа что-нибудь, чем отправлять на один пункт в низ.
Уж поверь, с этим я сам как-нибудь разберусь.