Вопрос о treeview

[Вадим12091965]

Всем привет. Вопрос. Есть treeview, image, textbox. При выборе определенной ветки должна появиться определенная картинка и определенный текст. Вкладываю пример с неправильными кодами.

[IgorGO]

Догадываюсь кому был вопрос.

свойство CheckBoxes поставте True

запишите эти две процедуры в модуль формы

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
  MsgBox Node.Text & "  check"
End Sub

Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
  MsgBox Node.Text & "  click"
End Sub

[Вадим12091965]

Попробовал. При коде
Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
TextBox1.Tag = 150
TextBox1.Text = 150
TextBox2.Tag = 300
TextBox2.Text = 300
TextBox3.Tag = 720
TextBox3.Text = 720
TextBox4.Tag = 1
TextBox4.Text = 1

End Sub
при выборе веток значения в текстбоксах появляются, но естественно не меняются. Что добавить в код, что бы получилось так: если ветка такая - текст один, если ветка другая - текст другой. Аналогично с картинками, которые должны приходить из папки, находящейся рядом с листом Excel (не прописывая дорогу с диска С). Во вложении у меня есть начатое, поправьте для пары веток, дальше постараюсь разобраться. Спасибо.

[IgorGO]

уточните тех.задание и назовите стоимость - сделаем.

[Вадим12091965]

Спасибо, что не отказали

[Вадим12091965]

Привет. Может все-же кто-нибудь скажет в чем ошибка:
Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
If TreeView1.Selected Is Nothing Then
Exit Sub
Dim ImagePath As String
ImagePath = ThisWorkbook.Path & "\Image\"
If TreeView1.Selected = "с 1 дверью-400" And IsExists(ImagePath & "001.jpg") Then
Image1.Picture = LoadPicture(ImagePath & "001.jpg")
TextBox1.Tag = 150
TextBox1.Text = 150
TextBox2.Tag = 400
TextBox2.Text = 400
TextBox3.Tag = 720
TextBox3.Text = 720
TextBox4.Tag = 1
TextBox4.Text = 1
End If
If TreeView1.Selected = "с 1 дверью-400" And IsExists(ImagePath & "002.jpg") Then
Image1.Picture = LoadPicture(ImagePath & "002.jpg")
TextBox1.Tag = 150
TextBox1.Text = 150
TextBox2.Tag = 450
TextBox2.Text = 450
TextBox3.Tag = 720
TextBox3.Text = 720
TextBox4.Tag = 1
TextBox4.Text = 1
End If
End Sub
Выдается ошибка.

[Вадим12091965]

Прошу прощения. Ошибка где-то в этом коде:Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
If TreeView1.Selected Is Nothing Then
Exit Sub
Dim ImagePath As String
ImagePath = ThisWorkbook.Path & "\Image\"
If TreeView1.Selected = "с 1 дверью-400" And IsExists(ImagePath & "001.jpg") Then
Image1.Picture = LoadPicture(ImagePath & "001.jpg")
TextBox1.Tag = 150
TextBox1.Text = 150
TextBox2.Tag = 400
TextBox2.Text = 400
TextBox3.Tag = 720
TextBox3.Text = 720
TextBox4.Tag = 1
TextBox4.Text = 1
End If
If TreeView1.Selected = "с 1 дверью-450" And IsExists(ImagePath & "002.jpg") Then
Image1.Picture = LoadPicture(ImagePath & "002.jpg")
TextBox1.Tag = 150
TextBox1.Text = 150
TextBox2.Tag = 450
TextBox2.Text = 450
TextBox3.Tag = 720
TextBox3.Text = 720
TextBox4.Tag = 1
TextBox4.Text = 1
End If
End Sub

[Hugo121]

У меня вообще не запускается, т.к. нет компонента. Думаю не у меня одного...

[Вадим12091965]

Выкладываю файл. Посмотрите коды. Что-нибудь подскажите.

[AndVGri]

Вадим12091965
1. ни Selected ни SelectedNode не существует, есть SelectedItem - это же не трудно посмотреть объектную модель в Object Browser?
2. Зачем проверять SelectedItem если в обработчик события передаётся узел Node на котором был щелчок - его значение Text и проверяйте.
3. А где найти функцию IsExists?