Solved

Exit a procedue by a keystroke in vb 6.0

Posted on 2009-04-14
2
309 Views
Last Modified: 2013-12-26
I have a for loop in one of the command button code of the vb applicatoin. Is there a way I can exit this for loop my hitting some keys..I am looking for key_stroke process to end a for loop
0
Comment
Question by:Aiysha
2 Comments
 
LVL 22

Accepted Solution

by:
danaseaman earned 500 total points
ID: 24140462
Try this. Uses Do/Loop but could be For/Next:

Option Explicit
 

Dim bEscape             As Boolean
 

Private Sub Command1_Click()

   Dim i                As Long

   Do

      DoEvents

      If bEscape Then

         bEscape = False

         Debug.Print "Exiting loop"

         Exit Do

      End If

   Loop

End Sub
 

Private Sub Form_KeyPress(KeyAscii As Integer)

   If KeyAscii = 27 Then

      bEscape = True

   End If

End Sub
 

Private Sub Form_Load()

   Me.KeyPreview = True

End Sub

Open in new window

0

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now