удерживание нажатой кнопки мыши.

[Xaker_S]

Привет, народ!!!
Как сделать событие: удерживание нажатой мышки?
Например удерживаем мышку на кнопке, а в TextBoxe бегут цифры(счетчик)?

[Vitaly1]

Очевидно так:
При событии MoseDown включаем объект таймер
Таймере делаем алгоритм вывода счетчика
При событии MoseUp выключаем объект таймер

[Wassago]

Типа так:

Код: Выделить всё

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Text1.Text = Text1.Text + "1"
End Sub


[iGrok]

Wassago: Может, начнёшь смотреть на дату предыдущего поста, перед тем как что-то написать?

[Joo]

Во Wassago жжет

[alibek]

Может быть предупреждение за флуд нужно не только Wassago дать?