Итак, господа, какая такая РЕЗЮМА из этой вот бяки?
Хочу знать выпал список или нет, по возможности не дергая события и прочая. Но хочу это (пока) хотя бы в режиме работы с клавиатурой.
Пока вижу следущее - по входу в поле со списком обнулять некую статику. По нажатию Альт+(клава вниз) - в эту статику прописать Альт. Но процедуру хочу одну. (Общую). Чтобы не передавать данных о расположении поля (форма, контрол) - статика должна быть вот именно что доступна и из обработчиков входа в поля и из обработчиков нажатия клавиш. Вернее из процедур, в которые передаю обработку.
Но получатся навскидку криво:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Sub UpDownPress(Optional KeyCode, Optional nShift)
'должны быть VARIANT чтобы IsMissing правильно возвращало'
'не_передачу параметра'
'Вызов из полей без передачи Shift , из полей со списком - с передачей'
'первый вызов из поля со списком - по входу'
Dim intAltDown As Long
'Dim intShiftDown As Long, intCtrlDown As Long'
Static NotOpened As Boolean
On Error Resume Next
If IsMissing(KeyCode) Then
'инициализация из On_ENTER в поле со списком'
NotOpened = True
Exit Sub
End If
' Определяет нажатую клавишу с помощью поразрядной маски.'
intAltDown = (nShift And acAltMask) > 0 'acAltMask =4'
If Not IsMissing(nShift) Then
If intAltDown Then
If KeyCode = 40 Then NotOpened = Not NotOpened
'нажат Alt +вниз - в выпадающих списках список выпадает'
'нажат Alt +вниз - или закрывается'
'при первом нажатии - фальш'
Else
End If
If NotOpened Then 'что нить еще?'
Else
'открыт, - свою обработку отключаем'
Exit Sub
End If
End If
'своя обработка'
If KeyCode = 38 Then DoCmd.GoToRecord , , A_PREVIOUS
If KeyCode = 40 Then DoCmd.GoToRecord , , A_NEXT
End Sub
Соответственно вызовы выглядят как:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub ORNAM_KeyDown(KeyCode As Integer, Shift As Integer)
UpDownPress KeyCode
End Sub
Private Sub ORPRI_Enter()
'ORPRI.Dropdown'
UpDownPress
End Sub
Private Sub ORPRI_KeyDown(KeyCode As Integer, Shift As Integer)
UpDownPress KeyCode, Shift
End Sub
Вроде работает, но "душа не лежит". (что там еще можут юзер понажимать...)
Очень просто реализовать работу с клавой, если задействовать для перехода по записям в раскрытом списке еше и Shift (или Ctrl) (т.е. для обхода собственной обработки), но тогда появятся отличие от "стандартного поведения клавиш в аксессе", чего тоже не хочется.
