Прибавить числа из textbox'a

[Ramzes]

Есть 10 текстбоксов, и надо чтобы при нажатии на кнопку в label появлялась сумма чисел которые пользователь записал в текстбоксы

[EvilCoder]

<DELETE>

[Шурик]

хмм...вот:

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

Private Sub Command1_Click()
    summa = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text)
    Label1.Caption = Str$(summa)
End Sub


[MVG]

Лучше не производить математические действия с данными из текстовых полей т.к. из-за национальных настроек будут проблемы с десятичной точкой (по-нашему "запятой"). Для этого лучше перед тем как поместить в текстовое поле данные одновременно присвоить их значение какой-либо переменной и в дальнейшем работать с этими переменными, а не с текстовыми полями.

[Ramzes]

Спасибо всем, кто ответил на эту тему, яже блин протупил вначале, и буквально через пять минут после создания данного топика я сам решил задачу:

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

dim qs1 as single
dim qs2 as single
...
qs1 = text1.text
qs2 = text2.text
...
summ = qs1+qs2...
' вроде работает