If Me.ed.Value = True Then
Me.AllowEdits = True
Me.AllowAdditions = True
Me.AllowDeletions = True
Else
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.ed.Value = False
End If
|
|
Хочу: форма открывается только для просмотра. Есть переключатель типа toggle button - ed - нажимаешь все редактируется, нажимаешь еще раз все блокируется.
1. Вешаю этот код на событие после обновления ed - ни фига не работает (зачем блокируется?).
2. Вешаю на нажатие кнопки - не работает (опять таки)
3. Вешаю на получение фокуса - работает черз 2 раза на пятый
3.а. (почему? когда задумчиво (подержать пару секунд над переключателем) нажимешь на переключатель - срабатывает, когда быстро жмешь, не срабатывает? )
3.б. Почему когда ставишь точку прерывания на получение фокуса, то процедура срабатывает всегда?
Заработало это все в таком виде:
Private Sub ed_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.ed.Value = True Then
Me.ed.Value = False
Me.AllowEdits = False
Me.AllowAdditions = False
Me.AllowDeletions = False
Else
Me.AllowEdits = True
Me.AllowAdditions = True
Me.AllowDeletions = True
Me.ed.Value = True
End If
End Sub
|
|
Но вопросы остались...