ANNULER UNE OPÉRATION EN BOUCLE PAR APPUI DE LA TOUCHE ECHAP

Public Class Form1
    'declarer une variable boolean pour la touche ESC
    Public CancelPressed As Boolean = False

    'Fonction pour detecter la touche du clavier
    Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
        CancelPressed = keyData = Keys.Escape
    End Function

    'Test
    Sub MySub()
        Do
            'faire les opérations
            Me.Text = Now.Second
            CancelPressed = False
            Application.DoEvents()
            If CancelPressed Then
                If MsgBox("Abort current operation?", MsgBoxStyle.RetryCancel & MsgBoxStyle.Question) = MsgBoxResult.Yes Then
                    Exit Do
                End If
            End If
        Loop Until CancelPressed
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MySub()
    End Sub
End Class

19 décembre 2006 18:31:34 :

.