Прирывание цикла по событию....срочно!!!

[Damage]

Нужно прервать цикл по нажатию клавиши(сочетания) или клику мыши по определенному объекту. Т.е. вовремя работы цикла отслеживать разные события. В QB это выглядело прим. так: if inkey$=........ then ......

Если есть пример проги то киньте линк pls.

ЗЫ. нужно очччень срочно...

[Trojan Lord]

в VB:

Private Sub Command1_Click()

msgbox "То что надо"

End Sub

[Damage]

До выхода из процесса по клавише я допер, а вот по клику мыши?

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

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Bla_Bla_Bla()
Do
Sleep 2
If GetAsyncKeyState(27) Then Exit Do
DoEvents
Loop
................
................
End Sub

[Trojan Lord]

dim Pressed as Boolean

Private Sub Form1_Load()

do
msgbox "Fuck"
loop until Not Pressed

End Sub

Private Sub Command1_Click()
Pressed=True
End Sub

вроде так..... или замени loop until Not Pressed на loop while Not Pressed

[Trojan Lord]

попробуй ещё и на:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As _ Single, Y As Single)
Pressed = True

End Sub

[Damage]

Это я сам уже давно перепробовал - не работает, во время работы цикла ничего не нажимается.

[Trojan Lord]

всё работает !!!

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

Do
DoEvents
'всё что хочешь
Loop

[Damage]

Всё разобрался, всё работает