:?: Отрицательный TextBox

[Rik3D]

Как сделать так чтобы TextBox не брал отрицательные числа (-2, то есть числа с минусом), если такое получилось, то выдовал MsgBox "---", то есть брал только положительныен числа?

[Amed]

if val(text1.text)<0 then msgbox "---"

[Rik3D]

СпасиБоо!

[Rik3D]

У меня 3 TextBox -а. В TextBox1 и TextBox2 ввожу значения, в TextBox3 получаю результат. Подскажите, как сделать так, если в TextBox1 или в TextBox2, я ввёл отрицательное значения то появлялся
MSgBox "eee", и всё, чтобы не выдовала результат.
Вот код;

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

Private Sub CommandButton1_Click()
a = Str(TextBox1)
b = Str(TextBox2)
TextBox3 = a * b
End Sub

[PaKoT]

У меня 3 TextBox -а. В TextBox1 и TextBox2 ввожу значения, в TextBox3 получаю результат. Подскажите, как сделать так, если в TextBox1 или в TextBox2, я ввёл отрицательное значения то появлялся
MSgBox "eee", и всё, чтобы не выдовала результат.
Вот код;

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

Private Sub CommandButton1_Click()
a = Str(TextBox1)
b = Str(TextBox2)
TextBox3 = a * b
End Sub

if (a(text1.text)<0) or (b(text.....) then..... ну и так далее а че типо ты не знаешь о логических И ИЛИ и тп ?)))

[Александр80]

У меня 3 TextBox -а. В TextBox1 и TextBox2 ввожу значения, в TextBox3 получаю результат. Подскажите, как сделать так, если в TextBox1 или в TextBox2, я ввёл отрицательное значения то появлялся
MSgBox "eee", и всё, чтобы не выдовала результат.
Вот код;

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

Private Sub CommandButton1_Click()
a = Str(TextBox1)
b = Str(TextBox2)
TextBox3 = a * b
End Sub

Можно и так:

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

c = a * b

If c < 0 Then
MsgBox "Ошибка!!!"
Else
TextBox3.Text = c
End If

[Александр80]

PaKoT, прости не заметил, что ты это уже написал...

[Rik3D]

Спасибо!!!