با زدن كليد Esc فرم بسته بشه!

[Mohandese_Javan]

سلام!
من ميخوام با زدن كليد Esc فرم بسته بشه.وقتي فرم خالي باشه و هيچ آبجكتي روش نباشه
اين كد عمل ميكنه:

کد:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
  Unload Me
End If
End Sub

ولي وقتي حتي يك آبجكت هم رو فرم باشه كار نميكنه.! چون فوكوس رو فرم نخواهد بود!
اگه تعداد آبجكتها كم باشه ميشه اين كد رو برا تك تك آبجكتها نوشت كه هر كدوم فوكوس روشه عمل كنه ولي وقتي آبجكتها زياد باشن خيلي سخت ميشه!
حلا ميخوام بدونم راهي هست كه فوكوس رو به فرم بده؟(وقتي آبجكت رو فرم باشه متد ست فوكوس براي فرم عمل نميكنه!)
يا اينكه تابعي باشه كه تشخيص بده كليدي فشرده شده (فوكوس رو هر آبجكتي بود عمل كنه)
:roll: چي شد اين سوال!! 8O
ممنون!

[Mamad2003]

مهندس جان سلام

بيا اين كد رو به فرمت اضافه كن ! حله !

کد:

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

اين خاصيت فرم كاري ميكنه كه پيغام هاي كيبورد اول به پنجره ارسال بشه بعد به آبجكت داراي فوكوس . اونوقته كه شما ميتوني event كيبورد رو اول شكار كني !

:wink: :wink: