Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 1 To 90
ListBox1.Items.Add(i)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(ListBox1.SelectedItems.ToString)
End Sub
Вывести выделенные эллементы из Listbox
Здравствуйте, есть листбокс в несколькими выделенными элементами, нужно их считать и вывести, например в msgbox. Первое что я придумал было:
Получилось совсем не то, что мне нужно. Как написано возвращается коллекция, а как работать с нею, вытащить имена элементов?
Второй вариант что пришел в голову это с помощью цикла от первого элемента до последнего просмотреть каждый и проверить выделен он или нет, и если да считать его и добавить в строчку. Но как узнать какой последний? Нашел ListCount но не работает.
Код:
Получилось совсем не то, что мне нужно. Как написано возвращается коллекция, а как работать с нею, вытащить имена элементов?
Второй вариант что пришел в голову это с помощью цикла от первого элемента до последнего просмотреть каждый и проверить выделен он или нет, и если да считать его и добавить в строчку. Но как узнать какой последний? Нашел ListCount но не работает.
Вот сделал:
Буду рад комментариям.
Код:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
For i = 1 To 50
ListBox1.Items.Add("EpiG_" & i)
Next
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim s_items As String
For i = 0 To ListBox1.Items.Count - 1
If ListBox1.GetSelected(i) Then
s_items = s_items & ListBox1.Items.Item(i) & " "
End If
Next
MsgBox(s_items)
End Sub
For i = 1 To 50
ListBox1.Items.Add("EpiG_" & i)
Next
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim s_items As String
For i = 0 To ListBox1.Items.Count - 1
If ListBox1.GetSelected(i) Then
s_items = s_items & ListBox1.Items.Item(i) & " "
End If
Next
MsgBox(s_items)
End Sub
Буду рад комментариям.
Должно быть примерно так:
Писал прямо в браузере, может чуть ошибся.
Код:
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim s_items As String
For Each selectedItem As String In ListBox1.SelectedItems
s_items = s_items & selectedItem & " "
Next
MsgBox(s_items)
End Sub
Dim s_items As String
For Each selectedItem As String In ListBox1.SelectedItems
s_items = s_items & selectedItem & " "
Next
MsgBox(s_items)
End Sub
Писал прямо в браузере, может чуть ошибся.