Как выйти из цыкла по событию Mouse Up?

[Milevskiy]

Подскажите пожалуйста!
Как выйти из цыкла по событию "Mouse Up"?

Ситация такова: при наступлении события "Mouse Down" программа заходит в цыкл а потом уже от туда не выходит при отпускании клавиши мыши.
Как выйти из подобной ситуации?

Заранее благодарен.

[Морфий]

удали одно сообщение

[Морфий]

В цикле ставишь:

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

if MouseUPS = true then exit do


А при MuoseUP пишешь:

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

MouseUPS = true


[Milevskiy]

В цикле ставишь:

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

if MouseUPS = true then exit do


А при MuoseUP пишешь:

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

MouseUPS = true


Спасибо!

Пробовал этот способ. Не выходит из цыкла и все тут. Очень похоже на то, что событие "Mouse UP" просто перестает отслеживаться пока программа внутри цыкла.

Другие мысли есть по этому поводу?

Лично я думаю нужно каким-то способом отслеживать отпускание клавиш мыши прямо внутри цикла. Вот только не могу это програмно описать. Как бы это сделать?

[Морфий]

Не, может надо DoEvents в цикл поставить...
Это у меня работает:

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

Private MouseUPS As Boolean

Private Sub Dones()
Dim i As Long
Do
i = i + 1
DoEvents
If MouseUPS = False Then Exit Do
Loop
MsgBox i
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MouseUPS = False Then
MouseUPS = True
Call Dones
End If
End Sub

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


[Ariman]

Э..... А ты в цикле-то используешь DoEvents??

[Морфий]

Э..... А ты в цикле-то используешь DoEvents??

Да

Do
i = i + 1
DoEvents
If MouseUPS = False Then Exit Do
Loop

[Ariman]

Морфий Я не тебе это сказал
Просто ты успел запостить раньше меня