کلید insert و delete

[moghadam1372]

با سلام خدمت دوستان واساتید محترم

کی از کی کلید insert=45 و delete=46 ولی با کد زیر کارنمیکند

If KeyAscii = 45 Then XPButton13_Click

If KeyAscii = 46 Then XPButton14_Click

اگر دوستان می دانند من را راهنمائی کنند
با تشکر

[سید حمید حق پرست]

کد اسکی که نوشتی مربوط به کلید Delete و Insert نیست

اگه کد اسکی این دوتارو پیدا کردم واست میزارم (کد اسکیشونو ندیدم تا حالا)

[سید حمید حق پرست]

کد اسکی های که وارد کردید مال کلیدهای زیر هست (عکس):

82229
کد اسکی این دو کلید فکر نکنم وجود داشته باشه

[milad-sezar]

تو کتابا همین کدارو واسه delete insert زدن
del key 46 vbkeydelete
ins key 45 vbkeyinsert
:متفکر:

[سید حمید حق پرست]

کتابها اشتباه زیاد میکنن من خودم رشتم الکترونیکه داخ یکی از کتابهام پروژه یه وسیله الکترونیکی داده بود من رفتم ساختمش اما کار نکرد که نکرد

[sehm67]

با سلام خدمت دوستان واساتید محترم

کی از کی کلید insert=45 و delete=46 ولی با کد زیر کارنمیکند

If KeyAscii = 45 Then XPButton13_Click

If KeyAscii = 46 Then XPButton14_Click

اگر دوستان می دانند من را راهنمائی کنند
با تشکر
کد اسکی که نوشتی مربوط به کلید Delete و Insert نیست

اگه کد اسکی این دوتارو پیدا کردم واست میزارم (کد اسکیشونو ندیدم تا حالا)
کد اسکی های که وارد کردید مال کلیدهای زیر هست (عکس):

http://barnamenevis.org/attachment.php?attachmentid=82229&d=1328692387
کد اسکی این دو کلید فکر نکنم وجود داشته باشه
تو کتابا همین کدارو واسه delete insert زدن
del key 46 vbkeydelete
ins key 45 vbkeyinsert
:متفکر:
کتابها:قهقهه:

کد زیر را در قسمت KeyDown بنویسید.


If KeyCode = 45 Then MsgBox "Insert"

[Mr'Jamshidy]

ببین دوست عزیز کلید هایی از قبیل Delete و Insert اصلا کد اسکی ندارن همونطور که دوستمون sehm67 (http://barnamenevis.org/member.php?102584-sehm67) هم به این موضوع اشاره کردن شما باید از این کلید ها کد کلید رو بگیری نه کد اسکی

که کد کلید (KeyCode) فقط از قسمت KeyDown و KeyUp قابل دسترس هستند

اگر شما از کلید به عنوان کلید میانبر میخواید استفاده کنید، کد اسکی اصلا معقول نیست!

[سید حمید حق پرست]

من نگفتم غیر ممکنه . هرکاری ممکنه . گفتم کد اسکی ندارن و اینو مطمئنم . این روش شم هم کد اسکی نمیگیره کی کد میگیره

ولی باز ممنون یه چیز جدید یاد گرفتیم

[joker_pok]

اینم کدی که می خوای لازم به کد اسکی نیست خود وی بی کارو راحت کرده
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyInsert Then
MsgBox "insert"
ElseIf KeyCode = vbKeyDelete Then
MsgBox "Delete"
End If

End Sub