![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
![]()
Всем привет. Вопрос. Есть treeview, image, textbox. При выборе определенной ветки должна появиться определенная картинка и определенный текст. Вкладываю пример с неправильными кодами.
|
![]() |
![]() |
![]() |
#2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
Догадываюсь кому был вопрос.
свойство CheckBoxes поставте True запишите эти две процедуры в модуль формы Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
![]()
Попробовал. При коде
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 (не прописывая дорогу с диска С). Во вложении у меня есть начатое, поправьте для пары веток, дальше постараюсь разобраться. Спасибо. |
![]() |
![]() |
![]() |
#4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
уточните тех.задание и назовите стоимость - сделаем.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
![]()
Спасибо, что не отказали
|
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
![]()
Привет. Может все-же кто-нибудь скажет в чем ошибка:
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 Выдается ошибка. |
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
![]()
Прошу прощения. Ошибка где-то в этом коде: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 |
![]() |
![]() |
![]() |
#8 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
У меня вообще не запускается, т.к. нет компонента. Думаю не у меня одного...
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
![]()
Выкладываю файл. Посмотрите коды. Что-нибудь подскажите.
|
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 10.02.2012
Сообщений: 109
|
![]()
Вадим12091965
1. ни Selected ни SelectedNode не существует, есть SelectedItem - это же не трудно посмотреть объектную модель в Object Browser? 2. Зачем проверять SelectedItem если в обработчик события передаётся узел Node на котором был щелчок - его значение Text и проверяйте. 3. А где найти функцию IsExists? |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ВОПРОС ПО TreeView | Alexandr17-10 | Общие вопросы Delphi | 4 | 22.08.2013 10:02 |
Вопрос по Virtual Treeview | Lauri | Компоненты Delphi | 8 | 04.04.2013 00:09 |
Вопрос по TreeView | zii | Общие вопросы Delphi | 6 | 01.02.2010 17:01 |
вопрос по TreeView | user_jasser | Win Api | 2 | 24.11.2008 20:25 |
вопрос по TreeView | Cyn4uk | Общие вопросы Delphi | 10 | 23.12.2007 21:34 |