|
|
|
событие при нажатой левой клавиши мыши
|
|||
|---|---|---|---|
|
#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:43:03 |
|
||
|
событие при нажатой левой клавиши мыши
|
|||
|---|---|---|---|
|
#18+
If Button = 1 Then Text1.Text = Val(Text1.Text) + 1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.11.2004, 16:52:47 |
|
||
|
событие при нажатой левой клавиши мыши
|
|||
|---|---|---|---|
|
#18+
Есть же параметр Button As Integer Просто поставь условие, проверяй какая кнопка нажата. Есть встроенная константа vbLeftButton. Magnus ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.11.2004, 16:53:52 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=32806230&tid=2168521]: |
0ms |
get settings: |
8ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
34ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
| others: | 233ms |
| total: | 353ms |
| 0 / 0 |
