VBNet - Форум - Долгое нажатие на кнопку

Вопрос: Долгое нажатие на кнопку Добавлено: 14.07.03 00:09

Автор вопроса: Trusishka | ICQ: 229751913

При одном нажатии мышкой на Command Button на форме - один раз выполняется связанный с ним код, а как сделать так чтобы при удержании кнопки процесс выпонялся непрерывно (много раз)?
Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

RotesByte

Вопросов: 11
Ответов: 69

Web-сайт: koch.onestop.net
Профиль | | #1

Добавлено: 14.07.03 01:18

Ставь таймер.

MouseDown на кнопке - таймер запускается и через заданные интервалы времени делает чего надо, а еще лучше - вызывает процедуру, которая делает.

MouseUp - таймер останавливается и идёт курить...

Ответить

Номер ответа: 2
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #2

Добавлено: 14.07.03 02:05

Через таймер.

Dim Checker As Boolean

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Checker = True: Timer1.Interval = 100
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Checker = False: Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Form1.Caption = Val(Form1.Caption) + 1
End Sub

Опередили

Ответить

Номер ответа: 3
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #3

Добавлено: 14.07.03 08:40

Без таймера:

Private bContinue As Boolean

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
bContinue = True
Do While bContinue
Debug.Print Now
DoEvents
Loop
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
bContinue = False
End Sub

Ответить

Номер ответа: 4
Автор ответа:

Trusishka

ICQ: 229751913

Вопросов: 36
Ответов: 48

Профиль | | #4

Добавлено: 14.07.03 11:15

Всем спасибо - работает !!!

Ответить

Страница: 1 |