Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как вывести массив в TextBox?

95K
14 февраля 2015 года
Валентина Полынцева
1 / / 14.02.2015
Задача вывести в Textbox значение температуры пациента за 10 дней (измеряли один раз в день), чтобы была прописана температура и день измерения.
Я написала:

 
Код:
Private Sub Command1_Click()
Dim I(1 To 10) As Integer
Dim M As Integer

For M = 1 To 10
I(M) = InputBox("Введите температуру")
Text1.Text = I(M) & "" & Str(M)
Next M

End Sub
Но в текстбоксе выводиться только последнее значение, а мне нужны все. MultiLine стоит на true, а также я пыталась ставить в цикле vbNewLine, но ничего не получилось. Подскажите, что ещё нужно?
327
14 февраля 2015 года
UserNet2008
748 / / 03.04.2010
Валентина Полынцева тут всё просто суммируем текст и выводим на новую строку
Код:
Private Sub Command1_Click()
Dim I(1 To 10) As Integer
Dim M As Integer

Text1.Text  = ""

For M = 1 To 10
I(M) = InputBox("Введите температуру")
Text1.Text = Text1.Text + I(M) & "" & Str(M) + vbcrlf
Next M

End Sub
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог