تابع بدست اوردن کد اسکی کلید های تابعی

[ykm145]

دوستان سلام
تابع بدست اوردن کد اسکی کلید های تابعی مثل f1 ,f2,.... چه می باشد تابع asc کد کلید تابعی را برنمی گرداند
باتشکر

[حامد مصافی]

از ثابت های vbKeyF1 ... vbKeyF2 و ... استفاده کنید

[ykm145]

ممنون دوست عزیز میخواهم رویدادی را به ان انتساب بدم چگونه از ان ثابت استفاده کنم
vbKeyF1=0*70
vbKeyF2=0*71

باتشکر

[Payman62]

مقدار ثابت رو که نمیتونی تغییر بدی. فقط میتونی تا کدها ازش کمک بگیری. مثلا میتونی چک کنی که اگه کلید کد اسکی کلید فشرده شده برابر f1 بود یه رویدادی صورت بگیره.

[ykm145]

مقدار ثابت رو که نمیتونی تغییر بدی. فقط میتونی تا کدها ازش کمک بگیری. مثلا میتونی چک کنی که اگه کلید کد اسکی کلید فشرده شده برابر f1 بود یه رویدادی صورت بگیره
دوست عزیز من چیزی را نمی خواهم تغییر بدهم در کد زیر مقدار keyascii چه مقدارباشد که روال مربوط به فشار کلید f1 اجرا شود
if keyascii=? then msgbox"press key f1
یا هر کدی که به فشاردادن کلیدهای تابعی پاسخ بدهد

[Payman62]

از KeyPress استفاده نکن. چون F ها رو در نظر نمیگیره. از KeyUp به این صورت استفاده کن.

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then MsgBox "F1 pressed"
End Sub

[ykm145]

ممنون ومتشکر دوست عزیز

[sohrab o]

ببین اگه از keycode استفاده کنی دستت خیلی باز تره آخه واسه همه چی یه کد داره

[ykm145]

ممنون دوست عزیز
بزای کلیدهای ترکیبی مثل ctrl+j چطور وچگونه ؟

[amirsadeghi]

سلام
شاید اون بنده خدا کد اسکی میخواد چرا اینجوری راهنمایی میکنید
text1.maxlenghth = 1
x=text1
print asc (x)