Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Возникла проблема Добавлено: 14.09.08 01:39  

Автор вопроса:  Pzolton
При написание своей программы я столкнулся с такой проблемой.


Мне необходимо сделать список который показан на рисунке. Причем "Значение 1" изменяемое в поле Text1. Принажатии на "Строка1" в поле text1 выводилось значение Строки 1. Еще необходимо сделать функцию добавления или удаления других строк( Строка 4, строка 5, строка 6 и т.д.)

[IMG]http://www.imagebar.net/out.php/i27323_001.JPG[/IMG]

И еще подскажите статью по созданию дерева. По типу дерева каталогов

[иконка]Человек
  [иконка]Школьник
  [иконка]Студент
      [иконка]Отличник
      [иконка]Нерадивый
  [иконка]Рабочий
  [иконка]Труп
      [иконка]Закопан
      [иконка]Кремирован

и т.д.
Заранее спасибо.

Ответить

  Ответы Всего ответов: 12  

Номер ответа: 1
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #1 Добавлено: 14.09.08 14:31
Мм... Если я тебя правильно понял, то нифига сложного тут нету:
  1. Private Sub Form_Load()
  2. List1.AddItem "a"
  3. List1.AddItem "b"
  4. List1.AddItem "c"
  5. End Sub
  6. Private Sub List1_Click()
  7. 'Выводим в текстбоксе значение
  8. Text1.Text = List1.Text
  9. End Sub
  10. Private Sub Command1_Click()
  11. 'Удаляем выделенную строку
  12. List1.RemoveItem (List1.ListIndex)
  13. End Sub
  14. Private Sub Command2_Click()
  15. 'Добавляем строку и текстбокса
  16. List1.AddItem Text2.Text
  17. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 VBNet$ik



Вопросов: 1
Ответов: 31
  Профиль | | #2 Добавлено: 15.09.08 13:31
List1 и Text1 местами перепутали

Ответить

Номер ответа: 3
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #3 		Добавлено: 16.09.08 01:35
VBNet$ik, это ты что-то путаешь =)

Ответить

Номер ответа: 4
Автор ответа:
 Pzolton



Вопросов: 1
Ответов: 4
  Профиль | | #4 Добавлено: 16.09.08 18:38
Спасибо, но это не совсем то. Моя оплошность, ошибся при описании.

Необходимо чтобы напротив строки в текст боксе отображалась заданное значение которое можно былобы изменять в поле Tex1.

рисунок

http://smages.com/i/2b/3b/2b3bbd95c97cd4cffab2651f2a0df58f.jpg

Ответить

Номер ответа: 5
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #5 		Добавлено: 16.09.08 18:40
Что-то я ничего не понял из этого рисунка =)

Ответить

Номер ответа: 6
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #6 Добавлено: 16.09.08 22:41
Гы) Я чет тоже не понял)
Но меня порадовал сексуальный опыт Саши *CRAZY*

Ответить

Номер ответа: 7
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #7 Добавлено: 16.09.08 22:43
Как ты это себе предтавляешь?) Максимум что можно сделать с листбоксом, это вывести текст в текстбокс)
поправьте меня если я не прав)

Ответить

Номер ответа: 8
Автор ответа:
 Pzolton



Вопросов: 1
Ответов: 4
  Профиль | | #8 Добавлено: 17.09.08 15:28
Смысл в том что когда я нажимаю на "Саша" в текст боксе выдает его возраст
Нажимаю на машу. В текст боксе выдает её возраст.

Ввожу цыфру в текст бокс и возраст Маши изменяется.

И на против строки саша отображался его возраст как на скрине(карявые цыферки аля paint)

Ответить

Номер ответа: 9
Автор ответа:
 Pzolton



Вопросов: 1
Ответов: 4
  Профиль | | #9 Добавлено: 17.09.08 15:38
ItemData — массив, подобный массиву List. Однако вместо строк, появляющихся в элементе, он содержит числа. Каждый пункт, отображаемый элементом ListBox, состоите двух частей: строки (задаваемой свойством List(i)) и числа, задаваемого свойством ItemData(i) (здесь i — индекс пункта списка). Свойство ItemData — это значение типа Long, которое может сохранять числовую информацию любого типа, относящуюся к пункту списка, но не отображаемую в списке.


Както через это св-во. Но вот как значение ItemData вывести на ListBox?
У каво какие идеи?

Ответить

Номер ответа: 10
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #10 Добавлено: 17.09.08 17:28
Мм... А как вам такой вариант?
http://alex-m.do.am/p/1.jpg
  1. Dim List As New Collection
  2. Private Sub Form_Load()
  3. 'Имя:Возраст:Задолжность:Опыт
  4. List.Add "Саша:18:2:10"
  5. List.Add "Паша:59:0:40"
  6. List.Add "Маша:7:6:100"
  7. For N = 1 To List.Count
  8. a = Split(List.Item(N), ":")
  9. List1.AddItem a(0)
  10. 'В листбокс выводим только имя
  11. 'При желании пожно написать
  12. 'List1.AddItem a(0) & " " & a(1)
  13. 'Т.е. имя и возраст
  14. Next N
  15. End Sub
  16. Private Sub List1_Click()
  17. b = Split(List.Item(List1.ListIndex + 1), ":")
  18. Text1.Text = b(0)
  19. Text2.Text = b(1)
  20. Text3.Text = b(2)
  21. Text4.Text = b(3)
  22. End Sub

Ответить

Номер ответа: 11
Автор ответа:
 Pzolton



Вопросов: 1
Ответов: 4
  Профиль | | #11 Добавлено: 18.09.08 16:52
Во. Именно это мне и надо. Только нужно чтобы цыфры (возраст)равнялись по правому краю.
И самое главное. Нужна возможность прям во время работы программы изменять данные (возраст, задолжность книг и сексуальный опыт;))

Ответить

Номер ответа: 12
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #12 Добавлено: 18.09.08 19:36
Pzolton пишет:
Только нужно чтобы цыфры (возраст)равнялись по правому краю

Нельзя возраст равнять по правому краю...
Нужна возможность прям во время работы программы изменять данные (возраст, задолжность книг и сексуальный опыт)

Не обязательно использовать именно коллекцию... Вариантов море) Думай сам что тебе удобней, и уже соответственно думай как этому приделать изменение)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам