VBNet - Форум - как перенисти элементы listbox в label

Вопрос: как перенисти элементы listbox в label Добавлено: 24.05.06 13:04

Автор вопроса: КУДЕСНИК

я не пойму как перенисти выбраные множественным спсособом

я думал что можно через redim и ощшт но что то не домозговал как

Private Sub List1_Click()
ReDim y(List1.Index) As String
y(j) = List1.ListIndex
Label7.Caption = Join(y, vbCrLf)
End Sub

не работает( я не знаю ка сделать
redim он же задает переменные (помоему масиввные)

Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: КУДЕСНИК Вопросов: 10 Ответов: 13	Профиль \| \| #1	Добавлено: 24.05.06 14:09
	Private Sub List1_Click() i = List1.ListIndex If List1.Selected(i) = True Then Label7.Caption = List1.List(i) End If End Sub теперь ка сделать так чтобы переносились несколько выбраных элементов? Ответить

Номер ответа: 2 Автор ответа: BUG(O)R ICQ: 827887 Вопросов: 13 Ответов: 142	Web-сайт: hunger.ru Профиль \| \| #2	Добавлено: 24.05.06 14:16
	Может можно и как-то по-другому, есть какой-то метод, но я кроме перебора всех элементов и проверки св-ва Selected ничего придумать не могу. Ответить

Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #3	Добавлено: 24.05.06 15:10
	тю Private Sub List1_Click() i = List1.ListIndex If List1.Selected(i) = True Then Label7.Caption = Label7.Caption & " " & List1.List(i) End If End Sub Ответить

Номер ответа: 4 Автор ответа: КУДЕСНИК Вопросов: 10 Ответов: 13	Профиль \| \| #4	Добавлено: 24.05.06 16:12
	а если List1.Selected(i) = False тогда на лайбле всеравно высвечиваются старые элементы листа( Ответить

Номер ответа: 5 Автор ответа: КУДЕСНИК Вопросов: 10 Ответов: 13	Профиль \| \| #5	Добавлено: 24.05.06 20:31
	народ ну кто что еще может предложить Ответить

Номер ответа: 6 Автор ответа: Nj ICQ: 223663115 Вопросов: 21 Ответов: 285	Профиль \| \| #6	Добавлено: 24.05.06 23:17
	' Строки, отмеченные как '! - нужны только 'Если нужно кроме лабели иметь 'массив выделенных элементов 'А так - их можно удалять dim el() as string '! dim a as integer 'el Index '! dim cnt as integer cnt=list1.listcount-1 if cnt=-1 then exit sub label1="" for i=0 to cnt if list1.selected(i)=true then a=a+1 '! redim preserve el '! el=list1.list(i) '! label1=label1 & vbnewline & list1.list(i) end if next i Вроде так, если я понял о чем вопрос. Ответить

Номер ответа: 7 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #7	Добавлено: 25.05.06 15:49
	тю^2 Private Sub List1_Click() Label7.Caption = "" for i = 0 to list1.count - 1 If List1.Selected(i) = True Then Label7.Caption = Label7.Caption & " " & List1.List(i) End If next i End Sub Ответить

Номер ответа: 8 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #8	Добавлено: 25.05.06 15:53
	list1.count - 1 listcount-1 ! Ответить

Страница: 1 |