Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Программное задание событий  [new]
Sergey_New
Member

Откуда:
Сообщений: 384
Можно ли, в частности для мыши?
26 мар 04, 11:13    [598583]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Deminik
Member

Откуда: Новосибирск
Сообщений: 695
В смысле - в форме ?
26 мар 04, 11:16    [598592]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Sergey_New
Member

Откуда:
Сообщений: 384
Да.
26 мар 04, 11:17    [598596]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Deminik
Member

Откуда: Новосибирск
Сообщений: 695
OnClick, OnDblClick, OnMouseDown, OnMouseUp, Перемещение указателя, Кнопка вверх, колесико мыши...
26 мар 04, 11:22    [598615]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Sergey_New
Member

Откуда:
Сообщений: 384
Ничего не понял!
Перечислены события мыши, а нужно программно задать их выполнение.
26 мар 04, 11:28    [598627]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Deminik
Member

Откуда: Новосибирск
Сообщений: 695
Понял-понял уже...
26 мар 04, 11:30    [598632]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Deminik
Member

Откуда: Новосибирск
Сообщений: 695
Private Sub Кнопка0_Click()
Me.MouseWheel = "= MyFunction()"
End Sub
26 мар 04, 11:33    [598638]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Sergey_New
Member

Откуда:
Сообщений: 384
Deminik, спасибо, буду разбираться.
26 мар 04, 11:48    [598674]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Sergey_New
Member

Откуда:
Сообщений: 384
По моему, это не то, что нужно:
например, мне необходимо, чтобы после открытия формы и получения фокуса первым контролом произошло событие "Кнопка вниз".
26 мар 04, 12:48    [598868]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Senin Viktor
Member

Откуда: Подмосковье
Сообщений: 5006
По моему, это не то, что нужно:
например, мне необходимо, чтобы после открытия формы и получения фокуса первым контролом произошло событие "Кнопка вниз".


Sun Form_Open(...)

...
Call MyButton_MouseDown () ' "вызов" события "Кнопка вниз"
End Sub

Sub MyButton_MouseDown () '
событие "Кнопка вниз"
...
end Sub
26 мар 04, 12:53    [598886]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Sergey_New
Member

Откуда:
Сообщений: 384
Senin Viktor:
Call MyButton_MouseDown () требует аргументы.
Подскажите, какие установить для левой кнопки мыши?
26 мар 04, 13:11    [598961]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Senin Viktor
Member

Откуда: Подмосковье
Сообщений: 5006
Подскажите, какие установить для левой кнопки мыши?

странный вопрос однако.

Например:
Button=acLeftButton
Shift=0
X=0
Y=0

А вообще это ты должен решать какие аргументы передавать функции
26 мар 04, 13:22    [599013]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Sergey_New
Member

Откуда:
Сообщений: 384
Senin Viktor, аргументы, собственно и не нужны. Нужно, чтобы произошло само событие.
26 мар 04, 13:25    [599025]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Sergey_New
Member

Откуда:
Сообщений: 384
А оно, к сожалению, не происходит.
Программа, конечно, переходит к процедуре
Sub MyButton_MouseDown()
но действий, как при физическом нажатии кнопки нет :(
26 мар 04, 13:31    [599045]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Sergey_New
Member

Откуда:
Сообщений: 384
Собственно, что нужно получить:
В форме есть поле, котором содержится текст.
При получении фокуса этим полем, выделяется содержащийся в нем текст.
Нужно снять выделение.
Клик мышью по полю это делает. Нужно программно, но чтобы курсор находился в начале поля.
Нажатие клавиш "Стрелки" использоватьнельзя.
26 мар 04, 13:48    [599119]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Hummer
Member

Откуда:
Сообщений: 2583
Батенька, в хелп читать справку о свойствах контролов или смотерть на эжти свойства широко раскрытыми глазами и очень внимательно.

Me.[MyControl].SetFocus
Me.[MyControl].SelLength = Len(Me.[MyControl])
Me.[MyControl].SelLength = 0
26 мар 04, 14:04    [599171]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Sergey_New
Member

Откуда:
Сообщений: 384
То Hummer
Да уж, батенька, уел! :)
Спасибо за подсказку.
26 мар 04, 14:19    [599236]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
пиписец
Guest
Да уж, батенька, уел! :)

Это еще посмотреть - кто-кого уел. В следующий раз мозгу людям не парь, а сразу напиши ЧТО хочешь получить.
Это же надо такую фуйню обозвать"Программное задание событий..."

цупвмйц4еу2345 н234прке425енц46цывер!
26 мар 04, 15:24    [599525]     Ответить | Цитировать Сообщить модератору
 Re: Программное задание событий  [new]
Sergey_New
Member

Откуда:
Сообщений: 384
пиписец, что-то с логикой у тебя плоховато. Не нервничай, будь по-проще - и тогда к тебе люди потянутся! :)
Пардон за офтопик.
26 мар 04, 15:52    [599609]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить