تشخيص فشرده شدن كليد شيفت(Shift)

[good_boy]

سلام دوستان مهربانم
من يك كد مي خواهم كه نشان دهد كليد شيفت نگه داشته شده است به غير از
حتی اگر فوکوس بر روی برنامه نباشد
getasynckeystate
لطفا راهنمايي كنيد
يك مثال هم بزنيد خيلي بهتر است

[sh2007]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Form1.Caption = KeyCode
End Sub

[good_boy]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Form1.Caption = KeyCode
End Sub

ممنون ولی دوست عزیز گفتم حتی اگر فوکوس روی برنامه نباشه

[Mbt925]

در اين صورت بايد كليد رو در سطح سيستم عامل رجيستر كنيد (نه در سطح برنامه )
براي اين منظور هم نمونه هاي زيادي در بخش هست.
جستجو كنيد.

[good_boy]

آقای مدیر من بلد نیستم جستجو کنم یعنی نمی دونم از چه کلمه ای استفاده کنم میشه کمکم کنید

[rezankh]

با سلام
اين سورسو يادم نمياد از كجا گرفتم شايد بدردتون بخوره.

[sh2007]

ممنون ولی دوست عزیز گفتم حتی اگر فوکوس روی برنامه نباشه


دوست عزيز در اين صورت keypreview فرم رو true كن و اون كد رو در رويداد kedown فرم بنويس به اين صورت هر جا كه كليد شيفت رو بزني عمل مي كنه