ахтунг

Тему не сносите плиз, утром посмотрю..
В общем проганяю диапазон от числа 1 до 500 допустим.
Эти числа записываются в переменную.
Вот эти числа, нужно вывести в текстовое поле.
Print выводит на форму список, это понятно, но нужно в поле.
Text1.text = a не проходит, записывает только последнее число из всех
Подскажите пожалуйста, как вывести эти числа в столбик, в текстовое поле
Только visual basic 6

спасибо, оно

 

Может, Text1.text = Text1.text + a ?

 

Code:

Private Sub add(ByVal text As String)
Text1 = Text1 & text & vbCrLf 'добавка
Text1.SelStart = Len(Text1)   'прокрутка
End Sub

Private Sub Command1_Click()
For i = 1 To 500 'цикл 
add i 'добавляем в текстбокс значение i
Next i
End Sub

 

с чего это твои вопросы по VB постоянно в болталке?

 

Ахтунг ))

Text1.text += a + '\n'

и ставь у Text1 свойство multiline.