CISA FotoGallery

Statistiche

Tot. visite contenuti : 927935
Home Articoli tecnici API Inserire ESCAPE in un Loop

Inserire ESCAPE in un Loop

CODICE DA COPIARE IN UN MODULO

Declare Function GetAsyncKeyState Lib "user32" Alias _
"GetAsyncKeyState" (ByVal vKey As Long) As Integer

'Quì trovate un'esempio di come usare la chiamata API:
'Inserire il codice in una FORM:


Dim DB As Database
Dim RS as Recordset

' Apre la tabella 'Table1' nel Database 'database.mdb'
Set DB = OpenDatabase("database.mdb")
Ser RS = DB.OpenRecordset("Table1", DBOpenSnapshot)

' Cicla finchè i records sono tutti caricati
' oppure finchè non viene premuto ESCAPE

Do While Not RS.EOF
        Combo1.AddItem RS.Fields(1)
        If GetAsyncKeyState(vbKeyEscape) <> 0 Then
                    
'User pressed the Escape key
                    
MsgBox "User Cancelled..."
                    Exit Do
        End If
Loop


RS.Close
DB.Close


Potete testare anche la pressione del Mouse o altri Tasti.
Vedere la Tabella delle Costanti attribuite ai Tast nell'Help.

Alessandro Baraldi