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


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



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