Несколько переменных из одного textBox'а

[kminas]

Как из одного textBox последовательно считывать значения в разные переменные и, затем, textBox очищать? Константин

[Twister]

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

Dim first_var as string
Dim second_var as string
first_var=Text1.Text
second_var=Text1.Text
Text1.Text=""

[tyomitch]

Первоапрельская шутка, что ли?

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

var1 = Text1.Text
var2 = Text1.Text
Text1.Text = ""


[Twister]

Первоапрельская шутка, что ли?

Я, кстати, тоже об этом подумал...

[Viper]

мож дело и в 1 апреля, а мож в том, что автор спросил совсем не то что написал...

[kminas]

Молодец !Viper!. Молодой я що, начинающий. Надо, чтобы переменные при этом еще и работали. В одном случае, например, складывались, в другом, текст куда-нибудь вставлялся... Ну, в целях экономии экранного места.

[xqz_me]

Определённо всё стало понятней

[cooler]

Может он имеет в виду что в виду что-то типа:

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

Dim aa()
Dim i
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
redim aa(i)
aa(i) = Text1.Text
i = i + 1
End If
End Sub


Правда у меня массив, но можно сделать и с case - для переменных

[cooler]

ой, забыл нужно же еще и очищать
text1.text=""

[Amed]

Лучше тогда уж Static i

[kminas]

Спасибо, видимо, это то, что нужно!

[Viper]

Однако телепаты на форуме таки есть!

[minotawr]

Видимо есть