User Loop Break
If you have a long-running loop, you might want to give the user the ability to break out of the loop, in case they've changed their mind. This bit of code shows how to do that.
Module
Private Declare Function GetAsyncKeyState Lib "user32.dll" _
(ByVal vKey As Long) As Integer
'//ESCAPE
Const VK_ESCAPE = &H1B
'//Button Click
Const VK_LBUTTON = &H1
Usage
Private Sub cmdStart_Click()
Do
If GetAsyncKeyState(VK_ESCAPE) < 0 Or _
GetAsyncKeyState(VK_LBUTTON) < 0 Then
Debug.Print "-------> EXIT <-------"
Exit Do
End If
Debug.Print "______ LOOPING ___________"
Loop
End Sub
Special Instructions
This code originally appeared on AndreaVB.com, and has been republished here with the permission of Andrea Tincani.
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.