Private bVarIsDirty As Boolean
Private Sub Text1_Change()
bVarIsDirty = True
End Sub
Private Sub Command1_Click()
If bVarIsDirty Then
MsgBox "Значения изменили"
bVarIsDirty = False
Else
MsgBox "Значение больше не меняли"
end if
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 35