| Вопрос: помогите с листбоксом | Добавлено: 11.04.06 11:58 |
Автор вопроса:  f4ng0rn
|
|
здрасте,я начинающий в ВБ...
подскажите плиз... на форме есть листбокс со списком и кнопка. как сделать,чтобы когда я нажимаю на кнопку,к выделенной строке в листбоксе приписывался текст указанный в программе, но когда я добавлю новую строку,то она бужет уже без этого текста... надеюсь поняли мою формулировку...заранее спасибо |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  KEP Вопросов: 44 Ответов: 119 |
Профиль | | #1 | Добавлено: 11.04.06 13:24 |
| List2.AddItem "Напиши вопрос покорректнее..." | ||
|
Номер ответа: 2 Автор ответа: f4ng0rn Вопросов: 2 Ответов: 6 |
Профиль | | #2 | Добавлено: 11.04.06 13:42 |
|
ну допустим такой списочек в ListBox:
1)Конфеты 2)Печенья 3)Торт 4)Мороженое 5)Шоколад я нажимаю допустим на "шоколад" и выделяю его, потом нажимаю на кнопку и список получается такой: 1)Конфеты 2)Печенья 3)Торт 4)Мороженое 5)Шоколад - КУПЛЕНО |
||
|
Номер ответа: 3 Автор ответа: KEPВопросов: 44 Ответов: 119 |
Профиль | | #3 | Добавлено: 11.04.06 13:58 |
|
Private Sub Command1_Click() List2.RemoveItem (List2.ListIndex) List2.AddItem Text1 & " куплено" End Sub Private Sub Form_Load() On Error Resume Next List2.AddItem "Капуста" List2.AddItem "Марковка" End Sub Private Sub List2_Click() Text1 = List2.Text End Sub Лучше делай что ты задумал в Listview так с индексами проще! |
||
|
Номер ответа: 4 Автор ответа: f4ng0rnВопросов: 2 Ответов: 6 |
Профиль | | #4 | Добавлено: 11.04.06 14:07 |
|
KEP, Огромное спасибо!
|
||
|
Номер ответа: 5 Автор ответа:  Beralus_ ICQ: 255004422 Вопросов: 0 Ответов: 14 |
Профиль | | #5 | Добавлено: 11.04.06 14:07 |
|
Private Sub Command1_Click()
pos = List1.ListIndex If pos < 0 Then Exit Sub List1.RemoveItem (pos) List1.AddItem "noviy element", pos End Sub 'esli ya ponyal tebya |
||
|
Номер ответа: 6 Автор ответа: Beralus_ICQ: 255004422 Вопросов: 0 Ответов: 14 |
Профиль | | #6 | Добавлено: 11.04.06 14:08 |
| sorry, uje otveili.. | ||
|
Номер ответа: 7 Автор ответа: KEPВопросов: 44 Ответов: 119 |
Профиль | | #7 | Добавлено: 11.04.06 14:15 |
| Пажалуйста! | ||
|
Номер ответа: 8 Автор ответа: f4ng0rnВопросов: 2 Ответов: 6 |
Профиль | | #8 | Добавлено: 11.04.06 14:39 |
|
подскажите ещё плиз как сделать:
если в списке есть слово "куплено", то text2.text = "куплено" |
||
|
Номер ответа: 9 Автор ответа:  KEPВопросов: 44 Ответов: 119 |
Профиль | | #9 | Добавлено: 11.04.06 15:22 |
|
Можно использовать InStr:
InStr([start, ]string1, string2[, compare]) dim sTemp() as string Dim x as Integer sTemp=split(Stroka," " 
for x=Lbound(sTemp) to Ubound(sTemp) list1.additem sTemp(x) next x по идее должно работать |
||
|
Номер ответа: 10 Автор ответа: f4ng0rnВопросов: 2 Ответов: 6 |
Профиль | | #10 | Добавлено: 11.04.06 16:41 |
| можно чуть поподробнее | ||
|
Номер ответа: 11 Автор ответа: [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #11 | Добавлено: 11.04.06 19:46 |
|
Интересный вопрос гыгы
|
||
|
Номер ответа: 12 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #12 | Добавлено: 11.04.06 20:43 |
|
Private Sub Command1_Click()
List2.RemoveItem (List2.ListIndex) List2.AddItem Text1 & " куплено" End Sub А List1.List(List1.ListIndex) = List1.List(List1.ListIndex) & " куплено" трудно? |
||
|
Номер ответа: 13 Автор ответа: KEPВопросов: 44 Ответов: 119 |
Профиль | | #13 | Добавлено: 12.04.06 01:26 |
| Вариант!!!, товарисч f4ng0rn читаем форумы, и заходим в разделы Примеры!!! | ||
Страница: 1 |