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

   
   
     

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

Страница: 1 |

 

  Вопрос: ListBox c MultiSelect'om Добавлено: 19.06.03 10:53  

Автор вопроса:  Antonina | ICQ: 438654946 

Товарищи! Возник вот такой вопрос:
Имеется ListBox (с перечисленными месяцами года: январь; февраль;...Декабрь). Свойство MultiSelect=true, т. е. пользователю предоставляется возможность выбирать из списка несколько месяце одновременно.
Нужно:
Заполнить строковую перменную Text'ами всех выбраных месяцев, т. е. если пользователь выбрал "февраль", "март", "апрель", "май", то пременная должна содержать: "февраль, март, апрель, май".

Помогите пожалуйста, а то я уже совершенно не помню как это делается!

Ответить

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

Номер ответа: 1
Автор ответа:
 Born



ICQ: 178155071 

Вопросов: 21
Ответов: 52
  Профиль | | #1 Добавлено: 19.06.03 11:10

Попробуй так

Private Sub Command1_Click()' событие что бы в Textbox сформировать

Dim i As Integer

For i = 0 To List1.ListCount - 1

If List1.Selected(i) = True Then

Text1.Text = Text1.Text & " " & List1.List(i)

End If

Next i

End Sub

Private Sub Form_Load()

List1.AddItem "Январь"

List1.AddItem "Февраль"

List1.AddItem "Март"

List1.AddItem "Апрель"

List1.AddItem "Май"

List1.AddItem "Июнь"

.

.

.

End Sub

Ответить

Страница: 1 |

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



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