double arrow

Select Case KeyAscii


Case 48 To 57 'Цифры

Case 8 'Backspace

Case 46 'Десятичная точка

If InStr(txtRezu1t.Text, ".") <> 0 Then 'Если точка уже присутствует в поле, то еще одну поставить нельзя

KeyAscii = 0

t = 2 + 16 'Кнопки Прервать, Повторить, Пропустить и_ пиктограмма Critical Message

MsgBox " Точка уже присутствует в поле — еще одну поставить_ нельзя!", t, "Ошибка!!"End If

Case 45 ' Знак минус

If txtRezult.SelStart<> 0 Or InStr(txtRezult.Text, "-") <> 0 Then ' Минус можно поставить только перед числом и только один

KeyAscii = 0

t = 2 + 16 'Кнопки Прервать, Повторить, Пропустить и

_ пиктограмма Critical Message

MsgBox " Минус можно поставить только перед числом и_

только один!", t, "Ошибка!!"

End If

Case Else

KeyAscii = 0

t = 2 + 16 'Кнопки Прервать, Повторить, Пропустить и

_ пиктограмма Critical Message

MsgBox " Ошибочный символ!", t, "Ошибка!!"

End Select

End Sub

8. Проверьте, как работает калькулятор.

9. Сохраните проект под именем Лр12_Зад2_Фамилия







Сейчас читают про: