Как программно добавить Value в списковый элемент управления?

22.09.2009, 16:05. **Показов** 1697. **Ответов** 11

Студворк — интернет-сервис помощи студентам

VB.NET
1
2
3
4
5
With cboChRechi.Items
     .Add ('Существительное')
     .Add ('Прилагательное')
     .Add ('Глагол')
End With

Но кроме этого мне надо, чтобы добавилось еще и Value. Например:
Существительное (12)
Прилагательное (47)
Глагол (82)

Как это сделать?

@mamba2000 · 22.09.2009, 16:27

VB.NET
1
2
3
4
5
6
7
Dim li as ListItem 
With cboChRechi.Items
li=new ListItem('Существительное')
li.Value = 32
.Add(li)
'skiped
End With

22.09.2009, 16:32

Огромное спасибо!!!

@mamba2000 · 22.09.2009, 16:34

VB.NET
1
2
3
4
5
6
7
Dim li as ListItem 
With cboChRechi.Items
li=new ListItem('Существительное')
li.Value = 32
.Add(li)
'skiped
End With

23.09.2009, 09:22

cboChRechi.Items.Add(New ListItem('Существительное','12')

23.09.2009, 10:57

Спасибо большое всем, всем!!!

@shdz · 30.08.2010, 10:07

Это хороше, а как тоже самое сделать в NET?
Как мне тут уже подсказывали хорошие люди я сделал - подключил к базе:
listbox.DataSource = myDataSet.Tables('TP')
listbox.DisplayMember = 'NICK'
listbox.ValueMember = 'ID_TP'

01.09.2010, 10:20

Спасибо

@shdz · 06.09.2010, 14:08

Не, ну всетаки:
Как тоже самое, что тут обсуждалось сделать в NET?
???????????????????????????????????????? ??????????

@shdz · 08.09.2010, 14:36

Ну извините, но не понимаю.
нету у меня класса ListItem
если создаю такой:

VB.NET
1
2
3
4
5
6
7
8
Public Class ListItem
        Public Text As String
        Public Value As String
        Public Sub New(ByVal text As String, ByVal value As String)
            Me.Text = text
            Me.Value = value
        End Sub
End Class

То в строчке

VB.NET
1
listbox.Items.Add(New ListItem('3234', '3'))

На экран в листбокс выводит лабуду - имя модуля где описан класс + ListItem
а не 3234
и подскажите, как потом получить значение VALUE

08.09.2010, 21:45

В примере имелся ввиду комбобокс из Вебконтролов. В виндусовых комбобоксах value нет.

@maxx.net · 09.09.2010, 03:25

2 shdz

В коллекцию ListBox.Items можно добавлять объекты любого типа (т.е. типа Object), при этом на экране в ListBox выводится результат метода ToString() объектов, входящих в ListBox.Items. Object.ToString() возвращает полное имя типа. Чтобы ToString возвращал то что нужно, понадобится заместить ToString. Т.е. в твой класс ListItem нужно добавить

VB.NET
1
2
3
Public Overrides Function ToString() as String
   Return Me.Text
End Function

Значение Value получаем, например так

VB.NET
1
Dim ValueOfListItem As String = CType(ListBox1.Items.Item(0),ListItem).Value

для первого элемента списка

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

Dimitr
	23.09.2009, 09:22
	cboChRechi.Items.Add(New ListItem('Существительное','12')

evgenybe
	23.09.2009, 10:57
	Спасибо большое всем, всем!!!

@shdz 0 / 0 / 0 Регистрация: 06.05.2009 Сообщений: 6
	30.08.2010, 10:07
	Это хороше, а как тоже самое сделать в NET? Как мне тут уже подсказывали хорошие люди я сделал - подключил к базе: listbox.DataSource = myDataSet.Tables('TP') listbox.DisplayMember = 'NICK' listbox.ValueMember = 'ID_TP' 0

@shdz 0 / 0 / 0 Регистрация: 06.05.2009 Сообщений: 6
	06.09.2010, 14:08
	Не, ну всетаки: Как тоже самое, что тут обсуждалось сделать в NET? ???????????????????????????????????????? ?????????? 0

Dimitr
	08.09.2010, 21:45
	В примере имелся ввиду комбобокс из Вебконтролов. В виндусовых комбобоксах value нет.

evgenybe
	01.09.2010, 10:20
	Спасибо