|
автор: Tip (07.09.2006 в 00:00) |
|
| Хочу что бы по двойному нажатию правой мышь открывалась форма.
Какое собыытие?
Сейчас у меня так, что жутко не удобно!
Private Sub ListView_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
Me.SetFocus
If (Button And acRightButton) > 0 Then
On Error Resume Next
DoCmd.OpenForm "Редактирование", , , "[Код]=" & Me.lvDocList.SelectedItem.Tag, , acDialog, "VIEW"
End If
End Sub | |
|
| |
|
автор: osmor (07.09.2006 в 00:00) |
|
| есть еще DblClick но он не различает кнопки, т.е на MouseDown проверяете какая кнопка, а на DblClick - действие.
IMHO - не удачное решение, поперек привычных действий ( я бы ни за что не догадался), значительно логичнее открывать при левом DblClick
к тому же это лишит вас возможности сделать контекстное меню | |
|
| |
|
автор: Tip (07.09.2006 в 00:00) |
|
| Osmor так что мне сделать? Что бы по двойному нажатию по ЛистВью открыть форму. Контекст не нужен! | |
|
| |
|
автор: osmor (07.09.2006 в 00:00) |
|
| я же написал, на событие MouseDown проверяете какая кнопка, а на DblClick открываете форму примерно так:
на уровне формы переменная :
dim bRightMouseDown as boolean
на событие MouseDown :
bRightMouseDown = (Button And acRightButton)
На событие DblClick
if bRightMouseDown then docmd.openform ...... | |
|
| |
|
автор: Tip (08.09.2006 в 00:00) |
|
| ой точно простите! | |
|
| |