| Вопрос: LIst View и ComboBox (Help) | Добавлено: 01.03.07 15:26 |
Автор вопроса:  KreAtoR
|
|
Возникла новая проблема нового уровня с ListView
Сейчас необходимо довести дело до ума, точнее иметь возможность отредактировать ListView мануально. Вопрос: Есть ComboBox в нем выкладываются значения всех строк поля 1 к примеру, тоесть мы можем выбрать номер строки. После того как мы выбрали в ComboBox номер нужной нам строки, а они отображаются динамически, необходимо чтоб VB6 в Text1.text показал следующую ячейку выбранной нами строки. Как изменить или удалить мы это уже прошли на прошлом уроке :) смотреть здесь: http://vbnet.ru/forum/show.aspx?id=131951 |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #1 | Добавлено: 01.03.07 16:25 |
|
KreAtoR можеш перед циклом написать "doevents" и тогда форма сможет вилнять другие действия. И не зависать. Может здесь ето не понадобитса но имей ввиду- очень полезно.
буду старатса народ усовиршенствувать свой руский язик.Извините за "и" and "і" вменя только украинская розкладка клави. |
||
|
Номер ответа: 2 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #2 | Добавлено: 01.03.07 17:13 |
Да ладно ничего я скоро выложу тоже свой вариант, посмотрите может что подправите 
|
||
|
Номер ответа: 3 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #3 | Добавлено: 01.03.07 18:00 |
|
итак настала моя очерель представить на суд людской мое корявое творение хотя для кого то оно может даже будет поучительным
итак... Сначала ставим столбец 1 со всех строк в ComboBox 'f_rows дает нам порядок что строки в ComboBox 'появляются сверху вниз Dim f_rows As Long f_rows = 0 rows Do While rows > 0 f_rows = f_rows + 1 Set lItem = ListView.ListItems.Item(f_rows) frmMain.NameCombo.AddItem lItem.ListSubItems(1) s_rows = s_rows - 1 Loop готово, заполнен теперь нам надо чтоб при выборе определенного имени в ComboBox нам в Text1.text показывал адрес тут я создал такую большую вещь!!!! 's_rows нужно чтоб вывести именно ту ячейку 'строки которая нужна Dim s_rows As Long s_rows = rows Do While rows > 0 Set lItem=FrmMain.ListView.ListItems.Item(s_rows) If Namecombo.text = lItem.ListSubItems.Item(1) Then adress = lItem.ListSubItems.Item(2) Exit Sub End If s_rows = s_rows - 1 Loop Вот а потом присоединяем к тексу как и надо было Text1.text = adress ................................................ А если мы хотим изменить этот текст и изменить тем самым наш ListView то надо следующее меняем текст в Text1.text и передаем его в переменную adress = Text1.Text все что нам осталось сделать, так это сказать какую строку нам надо и в этой строке передать значение нашей переменной в нужный столбец Set lItem = FrmMain.ListView.ListItems.Item(rows) lItem.ListSubItems.Item(2) = adress ................................................ Камнями прошу не бить, я еще новичок, а вот за поправки буду благодарен Docal я украиский люблю но русский тоже знать не плохо )))
|
||
|
Номер ответа: 4 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #4 | Добавлено: 01.03.07 20:13 |
| а ти звідки? | ||
Страница: 1 |