| |
|
|
| | Подскажите процедуру,по которой по нажатию кнопки увеличивается значения поля на 1,а по нажатию другой кнопки уменьшать значения поля на 1.Например нажав кнопку 1,в поле1 значение 1, нажав ещё раз значение в поле1 уже 2,далее нажав кнопку 2,в поле1 значение стало 1 и .т.д. | |
| |
| |
| |
|
|
| | Private Sub Form_Load()
'При загрузке формы присваиваем первоначально 0
Pole1.Value = 0
End Sub
Private Sub Btn1_Click()
' При нажатии увеличиваем на 1
Pole1.Value = Val(Pole1.Value) + 1
End Sub
Private Sub Btn2_Click()
' При нажатии уменьшаем на 1
Pole1.Value = Val(Pole1.Value) - 1
End Sub | |
| |
| |
