|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
30.11.2004, 16:43:03
|
|||
|---|---|---|---|
|
|||
событие при нажатой левой клавиши мыши |
|||
|
#18+
Доброго вам времени суток Уважаемые господа при наличии времени прошу Вас помочь мне необхадимо реализовать задачу с нажатой левой клавишей мыши пример форма на форме текстовое поле когда я вожу курсор по форме, при этом удерживая левую клавишу мыши, значение текстового поля должно увеличиваться на один как в примере с MouseMove Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = Val(Text1.Text) + 1 End Sub мне надо тоже самое только с нажатой левой клавишей мыши С Уважением и Благодарностью Намик Рустамов ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
30.11.2004, 16:52:47
|
|||
|---|---|---|---|
событие при нажатой левой клавиши мыши |
|||
|
#18+
If Button = 1 Then Text1.Text = Val(Text1.Text) + 1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
30.11.2004, 16:53:52
|
|||
|---|---|---|---|
событие при нажатой левой клавиши мыши |
|||
|
#18+
Есть же параметр Button As Integer Просто поставь условие, проверяй какая кнопка нажата. Есть встроенная константа vbLeftButton. Magnus ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/search_topic.php?author=FerdinadMonteo&author_mode=last_posts&do_search=1]: |
0ms |
get settings: |
8ms |
get forum list: |
12ms |
get settings: |
6ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
57ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
27ms |
get tp. blocked users: |
1ms |
| others: | 705ms |
| total: | 846ms |
| 0 / 0 |
