Помогите с tree view

[AKella]

[mod][Great:] Отныне в этом топике задаем вопросы по барсику.[/mod]

Люди помогите.
Я не могу толком разобраться с tree view. Я создал несколько узлов.
Set tempnode = tv1.Nodes.Add(, , , "Тест1")
Set tempnode = tv1.Nodes.Add(, , , "Тест2")
Set tempnode = tv1.Nodes.Add(, , , "Тест3")
Нужно чтобы при нажатии на каждый из них, в pictureBox грузились картинки. Как это реализовать? Помогите пожалуйста.

 

[BUG(O)R]

Вроде бы то, что ты просил, я представляю себе это так:

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    Select Case Node.Index
        Case 1
            Picture1.Picture = LoadPicture("C:\FON.JPG")
        Case 2
            Picture1.Picture = LoadPicture("C:\FON.JPG")
        Case 3
            Picture1.Picture = LoadPicture("C:\FON.JPG")
    End Select
End Sub

 

[AKella]

О, спасибо. Это именно то, что надо.
Еще вопрос. Тут ты обращаешся к диску C. А мне надо обращаться к текущей папке. Как это сделать? А то я по разному перепробывал - не работает.

 

[BUG(O)R]

App.Path & "\FON.JPG"

 

[AKella]

О, работает Большое спасибо за помощь.