|
Действия ...
Новые сообщения [новые: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/topic.php?fid=60&tablet=1&tid=2168521]: |
0ms |
get settings: |
7ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
38ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
29ms |
get tp. blocked users: |
1ms |
| others: | 198ms |
| total: | 303ms |
| 0 / 0 |
