TextBox.Text to ListBox.List

[Svinka]

У меня один вопрос. Вот как сделать так, чтобы ListBox.List был равен TextBox.Text.

[Хакер]

Как сделать так, чтобы сахар был равен акваланг?

[VBTerminator]

Вот как сделать так, чтобы ListBox.List был равен TextBox.Text.

Никак. Строку нельзя присвоить ссылке на коллекцию.

[Svinka]

А это можно в RichTextBox??? Или есть какой то другой контрол????

[Joo]

Можно содержимое текст бокса разделить на строки и добавить ручками в листбокс

[Хакер]

Никак. Строку нельзя присвоить ссылке на коллекцию.

Нет никаких коллекций.

А это можно в RichTextBox??? Или есть какой то другой контрол????

У, какой подход. Сразу видно создателя отвратительных программ.

А какой в этом смысл? Приведи пример такого ПО, где необходимо задуманное?

[JohnK]

Вопрос автору

У меня один вопрос. Вот как сделать так, чтобы ListBox.List был равен TextBox.Text.

Я понимаю, ты имел ввиду что при клике на item в ListBox этот item отображался в textbox`e?

тогда так:

Код: Выделить всё

Private Sub Form_Load()
Dim i As Long
For i = 1 To 5
  List1.AddItem "Text" & CStr(i)
Next i
End Sub

Private Sub List1_Click()
If List1.ListCount = 0 Then Exit Sub
Text1.Text = List1.List(List1.ListIndex)
End Sub

На форме List1 и Text1

[Joo]

Вопрос автору

У меня один вопрос. Вот как сделать так, чтобы ListBox.List был равен TextBox.Text.

Я понимаю, ты имел ввиду что при клике на item в ListBox этот item отображался в textbox`e?

Он сказал надо чтобы ListBox.List был равен TextBox.Text, типа ListBox.List=TextBox.Text.
Если наоборот, то автор хуже нет сформулировал вопрос

[JohnK]

Возможно автор выразился не совсем правильно. Как вариант:

Код: Выделить всё

Private Sub Form_Load()
Dim i As Long
For i = 1 To 5
  List1.AddItem "Text" & CStr(i)
Next i

'.......

for i=0 to List1.ListCount -1
Text1.Text =  Text1.Text & vbcrlf & List1.List(i)
next i
End Sub


Фигурально List1=Text1

Желательно услышать нормально сформированный вопрос. Ну не телепаты мы...

[Joo]

Возможно автор выразился не совсем правильно. Как вариант:

Код: Выделить всё

Private Sub Form_Load()
Dim i As Long
For i = 1 To 5
  List1.AddItem "Text" & CStr(i)
Next i

'.......

for i=0 to List1.ListCount -1
Text1.Text =  Text1.Text & vbcrlf & List1.List(i)
next i
End Sub


Фигурально List1=Text1

Желательно услышать нормально сформированный вопрос. Ну не телепаты мы...

В этом коде ты заполняешь список, потом перебирая элементы добавляешь их в текстовое поле. Помоему это не List1=Text1, а наоборот Text1=List1

А вообще да, хотелось бы услышать нормальный вопрос

[VBTerminator]

Нет никаких коллекций.

А тогда какого типа это свойство?

[alibek]

Property As String