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 _Фамилия