ايران ويج

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

کد: 
Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 27 Then

  Unload Me

End If

End Sub

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

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

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

کد: 
Private Sub Form_Load()

    Me.KeyPreview = True

End Sub

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

:wink: :wink:

Mohandese_Javan

Mamad2003