vb6 ; کدنویسی برای press شدن Esc ؟؟؟

[Saeed Shahabi]

سلام به همه دوستان خوبم...
در طول اجرای برنامه رویدادهای مختلفی به جریان می افتند;چطور میشه کاری کرد که در صورت press شدن Esc , رویدادهای درحال اجرا متوقف بشن؟(درست مثل AutoCAD )

 

[the_king]

سلام به همه دوستان خوبم...
در طول اجرای برنامه رویدادهای مختلفی به جریان می افتند;چطور میشه کاری کرد که در صورت press شدن Esc , رویدادهای درحال اجرا متوقف بشن؟(درست مثل AutoCAD )

کد زیر را در یک فرم عادی و خالی امتحان کنید :

Private Canceled As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = [B]vbKeyEscape[/B] Then Canceled = True
End Sub

Private Sub Form_Load()
    KeyPreview = True
End Sub

Private Sub Form_Resize()
    Dim CurTime As Date
    CurTime = Now
    Do While Now < DateAdd("s", [B]20[/B], CurTime) And Canceled = False
        Caption = Format(Now - CurTime, "Nn:Ss")
        DoEvents
    Loop
    Caption = Caption & " - Stop"
End Sub

تا زمانی که 20 ثانیه سپری نشده، یا دکمه ESC فشار داده نشده، ثانیه شمار در عنوان فرم اجرا می شود.