• Tigra
  • Восстановленный участник
  • На форуме с 20 ноября 2003г.
  • Сообщений: 10
  • Спасибо: 0

Тема: Как создать следущую строку в TextBox программным кодом?

Помогите, кто умеет.
Вот задачака:
frmEssential.txtFirm.Text = "АТ Любая фирма " ' а это необходимо записать в след. строку -  "г.Киев, Украина"
Спасибочки тому кто помог.

  • Arkady
  • Восстановленный участник
  • На форуме с 16 марта 2002г.
  • Сообщений: 221
  • Спасибо: 0

Re: Как создать следущую строку в TextBox программным кодом?

У объекта Text или  TextBox для VBA есть свойство Multiline (определить как True)
Строки разделяем спомощью vbCrLf (Chr(13) + Chr(10) )
Например:
dim cStr1 as string
cStr1="Line 1" + vbCrLf  + "Line 2"
TextBox1.text=cStr1

  • Tigra
  • Восстановленный участник
  • На форуме с 20 ноября 2003г.
  • Сообщений: 10
  • Спасибо: 0

Re: Как создать следущую строку в TextBox программным кодом?

> Arkady
Благадорю.
Очень подробный и доходчивый ответ. Вы мне помогли.

  • Денис
  • Восстановленный участник
  • На форуме с 21 мая 2007г.
  • Сообщений: 6
  • Спасибо: 0

Re: Как создать следущую строку в TextBox программным кодом?

Помогите пожалуйста!
Private Sub CommandButton3_Click()
TextBox1.Text = TextBox1.Text + "A" + Str(ActiveCell.Row)
End Sub
Если TextBox1 - пустой, то получается
А 5 (разделяется пробелом!)
Мне надо просто А5 (без пробела!)

  • На форуме с 23 июня 2005г.
  • Сообщений: 137
  • Спасибо: 0

Re: Как создать следущую строку в TextBox программным кодом?

попробуйте отtrimмить
TextBox1.Text = trim(nz(TextBox1.Text)) + "A" + trim(nz(Str(ActiveCell.Row)))
trim обычно доступна,
nz не всегда... (если под себя, то можно и без неё...)

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: Как создать следущую строку в TextBox программным кодом?

> Кипятильник
А что такое - nz?

  • Денис
  • Восстановленный участник
  • На форуме с 21 мая 2007г.
  • Сообщений: 6
  • Спасибо: 0

Re: Как создать следущую строку в TextBox программным кодом?

> Кипятильник
ОГРОМНЕЙШЕЕ СПАСИБО!!!
без nz - все канает!

  • На форуме с 23 июня 2005г.
  • Сообщений: 137
  • Спасибо: 0

Re: Как создать следущую строку в TextBox программным кодом?

> brigval
nz -->
ValueForTest=YourValue
if izNull(ValueForTest) then ValueForTest=""
trim(ValueForTest)
или
trim(iif(Not YourValue,""))
но, я не помню, поддерживает ли "чистый" VBA iif ...