Заполнение textbox несколькими значениями из combobox через ","

@ekety · Регистрация: 31.03.2014

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

Каким образом сделать заполнение textbox несколькими значениями из combobox , то есть при следуюшем выборе значения из combobox оно добавлялось в textbox через запятую. "Молоко, пиво, колбаса, итд.

@Nord790 · 09.04.2014, 07:41

VB.NET
1
2
3
4
5
6
 Dim TResult() As String = {}
        For Each item As String In ComboBox1.Items
            ReDim Preserve TResult(TResult.Length)
            TResult(TResult.Length - 1) = item
        Next
        TextBox1.Text = Strings.Join(TResult, ", ")

@ekety · 09.04.2014, 08:03 **[ТС]**

Спасибо, только в textbox вставляются сразу все значения из списка combobox, а необходимо чтобы выбрав значение из combobox оно добавилось textbox. При повторном выборе в combobox второе значение прописывалось в textbox через запятую.

@Nord790 · 09.04.2014, 08:49

так что ли:

VB.NET
1
2
3
4
5
6
 Dim SelectedItem As String = ComboBox1.SelectedItem
        If TextBox1.Text = String.Empty Then
            TextBox1.Text = SelectedItem
        Else
            TextBox1.Text &= ", " & SelectedItem
        End If

@Petr_S · 09.04.2014, 08:51

ekety, попробуйте:

VB.NET
1
        TextBox1.AppendText(If(TextBox1.TextLength <> 0, ", ", "") & ComboBox1.Items.Item(ComboBox1.SelectedIndex))

@ekety · 09.04.2014, 08:59 **[ТС]**

Nord790 Спасибо, именно так! Хорошо, что в жизни есть умные, отзывчивые люди!

Добавлено через 6 минут
Оба кода работают, а как сделать в этом коде, чтобы в самом конце ставилась "точка"?

@Nord790 · 09.04.2014, 09:10

ну тебе надо задать для начало сколько будет максимальное количество значений в textbox, например вот так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim SelectedItem As String = ComboBox1.SelectedItem
        Dim Max As Integer = 4 ' Здесь задаём макс значение  
        Dim Count As Integer = Split(TextBox1.Text, ", ").Length
 
        If Not Count > Max - 1 Then
            If TextBox1.Text = String.Empty Then
                TextBox1.Text = SelectedItem
            Else
                TextBox1.Text &= ", " & SelectedItem
            End If
        End If
 
        If Count > Max - 1 And Not TextBox1.Text.EndsWith(".") Then
            TextBox1.Text &= "."
        End If

Добавлено через 16 секунд
ну тебе надо задать для начало сколько будет максимальное количество значений в textbox, например вот так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim SelectedItem As String = ComboBox1.SelectedItem
        Dim Max As Integer = 4 ' Здесь задаём макс значение  
        Dim Count As Integer = Split(TextBox1.Text, ", ").Length
 
        If Not Count > Max - 1 Then
            If TextBox1.Text = String.Empty Then
                TextBox1.Text = SelectedItem
            Else
                TextBox1.Text &= ", " & SelectedItem
            End If
        End If
 
        If Count > Max - 1 And Not TextBox1.Text.EndsWith(".") Then
            TextBox1.Text &= "."
        End If

@ekety · 09.04.2014, 09:19 **[ТС]**

Количество значений может быть разное( может 1, а может 5). Надо чтобы предложение в всегда заканчивалась точкой, но чтобы точки не было когда поле textbox не заполнено.

@Nord790 · 09.04.2014, 09:28

ну тебе надо задать для начало сколько будет максимальное количество значений в textbox, например вот так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Dim SelectedItem As String = ComboBox1.SelectedItem
        Dim Max As Integer = 5 ' Макс значение
        Dim Count As Integer = Split(TextBox1.Text, ", ").Length
 
  
        If TextBox1.Text = String.Empty Then
            TextBox1.Text = SelectedItem
        Else
            If Count >= Max - 1 Then
                If Not TextBox1.Text.EndsWith(".") Then
                    TextBox1.Text &= ", " & SelectedItem & "."
                End If
            Else
                TextBox1.Text &= ", " & SelectedItem
            End If
        End If

Добавлено через 5 минут
можно попробовать вот так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private Sub ComboBox1_GotFocus(sender As Object, e As EventArgs) Handles ComboBox1.GotFocus
        If TextBox1.Text.EndsWith(".") Then
            TextBox1.Text = Strings.Left(TextBox1.Text, TextBox1.Text.Length - 1)
        End If
    End Sub
 
    Private Sub ComboBox1_LostFocus(sender As Object, e As EventArgs) Handles ComboBox1.LostFocus
        TextBox1.Text &= "."
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim SelectedItem As String = ComboBox1.SelectedItem
        If TextBox1.Text = String.Empty Then
            TextBox1.Text = SelectedItem
        Else
            TextBox1.Text &= ", " & SelectedItem
        End If
    End Sub

Добавлено через 1 минуту
или так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim SelectedItem As String = ComboBox1.SelectedItem
        If TextBox1.Text.EndsWith(".") Then
            TextBox1.Text = Strings.Left(TextBox1.Text, TextBox1.Text.Length - 1)
        End If
        If TextBox1.Text = String.Empty Then
            TextBox1.Text = SelectedItem
        Else
            TextBox1.Text &= ", " & SelectedItem
        End If
        TextBox1.Text &= "."
    End Sub

@ekety · 09.04.2014, 09:40 **[ТС]**

Спасибо добрый человек, все работает как надо.

@ekety · 12.04.2014, 23:49 **[ТС]**

А еще такой вопрос, как вывести отмеченные значения в CheckedListBox с мульти выбором при помощи кнопки в textbox

@Nord790 · 13.04.2014, 00:00

VB.NET
1
2
3
4
5
6
7
8
9
10
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ListStrings(CheckedListBox1.CheckedItems.Count - 1) As String
        Dim Id As Integer = 0
        For Each item In CheckedListBox1.CheckedItems
            ListStrings(Id) = item
            Id += 1
        Next
 
        TextBox1.Text = Strings.Join(ListStrings, ", ") & "."
    End Sub

@ekety · 13.04.2014, 00:09 **[ТС]**

Ваще Огонь!! Спасибо, опять выручил, все работает.

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@ekety 5 / 5 / 2 Регистрация: 31.03.2014 Сообщений: 40

	Заполнение textbox несколькими значениями из combobox через "," 09.04.2014, 06:59. Показов 2960. Ответов 12 Метки нет (Все метки) Каким образом сделать заполнение textbox несколькими значениями из combobox , то есть при следуюшем выборе значения из combobox оно добавлялось в textbox через запятую. "Молоко, пиво, колбаса, итд. 0

@ekety 5 / 5 / 2 Регистрация: 31.03.2014 Сообщений: 40
	09.04.2014, 08:03 [ТС]
	Спасибо, только в textbox вставляются сразу все значения из списка combobox, а необходимо чтобы выбрав значение из combobox оно добавилось textbox. При повторном выборе в combobox второе значение прописывалось в textbox через запятую. 0

@ekety 5 / 5 / 2 Регистрация: 31.03.2014 Сообщений: 40
	09.04.2014, 08:59 [ТС]
	Nord790 Спасибо, именно так! Хорошо, что в жизни есть умные, отзывчивые люди! Добавлено через 6 минут Оба кода работают, а как сделать в этом коде, чтобы в самом конце ставилась "точка"? 0

@ekety 5 / 5 / 2 Регистрация: 31.03.2014 Сообщений: 40
	09.04.2014, 09:19 [ТС]
	Количество значений может быть разное( может 1, а может 5). Надо чтобы предложение в всегда заканчивалась точкой, но чтобы точки не было когда поле textbox не заполнено. 0

@ekety 5 / 5 / 2 Регистрация: 31.03.2014 Сообщений: 40
	09.04.2014, 09:40 [ТС]
	Спасибо добрый человек, все работает как надо. 0

@ekety 5 / 5 / 2 Регистрация: 31.03.2014 Сообщений: 40
	12.04.2014, 23:49 [ТС]
	А еще такой вопрос, как вывести отмеченные значения в CheckedListBox с мульти выбором при помощи кнопки в textbox 0

@ekety 5 / 5 / 2 Регистрация: 31.03.2014 Сообщений: 40
	13.04.2014, 00:09 [ТС]
	Ваще Огонь!! Спасибо, опять выручил, все работает. 0

Заполнение textbox несколькими значениями из combobox через ","

Решение

Решение