DTPicker

[Евгений Д.]

В стандартном DTPicker из MSCOMCT2.OCX мне нужно отследить нажатие ESC в форме выбора даты (куда я попадаю по DropDown-кнопке), т.е. выход из этой формы без выбора даты. Выбираю я событие DTPicker_CloseUp и сталкиваюсь с тем, что по Esc, вываливатся сообщение: Code execution has been interrupted. Никакие мои ухищрения типа

Код: Выделить всё

Application.DisplayAlerts или Application.EnableCancelKey

не работают, да, вроде, и не должны, т.к. EnableCancelKey работает только в пределах одной программы и если я его ставлю в DTPicker_DropDown (а где еще?), то после выхода из него, значение EnableCancelKey сбрасывается.
Самое забавное, что когда нет обработчика DTPicker_CloseUp никаких прерываний по ESC не происходит: "нет человека - нет проблемы". А когда есть, - прерывание происходит на входе в DTPicker_CloseUp (по крайней мере по Debug я туда попадаю). Пользователь, конечно, сможет продолжить, нажав Continue, но скоро, наверняка, взвоет.
Кто-нибудь поборол этот глюк?

[Viper]

Код в студию, что тут еще можно сказать

[Евгений Д.]

А кода, собственно, и нет:

Код: Выделить всё

Private Sub DTP_ToDate_Change()

'  Call CheckIfAllIsReady
'
'  Application.EnableCancelKey = xlDisabled
'
'  tbox_MailTitle.Text = "Change" & Application.EnableCancelKey

End Sub


Private Sub DTP_ToDate_CloseUp()

'  Application.EnableCancelKey = xlInterrupt
'
'  tbox_MailTitle.Text = "CloseUp" & Application.EnableCancelKey
'
'  Call CheckIfAllIsReady

'  Application.EnableCancelKey = xlInterrupt
'
'  Application.StatusBar = DTP_ToDate

End Sub

Private Sub DTP_ToDate_DropDown()

'  Application.EnableCancelKey = xlDisabled
'
'  Application.EnableEvents = False
'
'  tbox_MailTitle.Text = "DropDown" & Application.EnableCancelKey

End Sub

Даже в таком виде (все отладочные и другие строчки - закоммментированы) эффект остается .

[Евгений Д.]

Кстати, попутно, еще один вопрос по DTPicker. Раскрашивать выпадающий календарь можно, а вот как поменять хотя бы фон самого контрола? Как ни странно свойства BackColor нема!? Или все же есть потаенная тропа?