Sub Spl()
Dim sp as Variant
Dim i as Integer
For i = 0 to 3
sp = Split(TextBox3(i), " ", -1, vbBinaryCompare)
TextBox1(i) = sp(0)
TextBox2(i) = sp(1)
Next i
End Sub
Заполнение массива TexBox-ов данными из другого TexBox-а (VB)
Есть TextBox3 c данными вида:
___________
|vasya centr |
|petya arena |
|misha arsen |
|vovan gospi |
|__________|
Как их (данные) распихать в TextBox-ы?:
TextBox1(0) TextBox2(0)
TextBox1(1) TextBox2(1)
TextBox1(2) TextBox2(2)
TextBox1(3) TextBox2(3)
TextBox1(0) должен быть равен vasya
TextBox2(0) должен быть равен centr
etc...
За ранее спасибо, код приветствуется)
___________
|vasya centr |
|petya arena |
|misha arsen |
|vovan gospi |
|__________|
Как их (данные) распихать в TextBox-ы?:
TextBox1(0) TextBox2(0)
TextBox1(1) TextBox2(1)
TextBox1(2) TextBox2(2)
TextBox1(3) TextBox2(3)
TextBox1(0) должен быть равен vasya
TextBox2(0) должен быть равен centr
etc...
За ранее спасибо, код приветствуется)