كد اسكي كليد هاي تركيبي چگونه بدست ي آيد

كد اسكي كليد هاي تركيبي چگونه بدست ي آيد من كد اسكي كليد ctrl+c
را مي خواهم

بايد از اين كدي مثل نمونه زير استفاده كنيد:

کد:

---

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 2 And KeyCode = vbKeyC Then
        MsgBox "Shoma dokemeyeh Ctrl+C ra zadid!"
    End If
End Sub

---

كليداي معمولي كه كداشون معلومه . حالا اگه يكي از 3 تا كليد Shift يا Ctrl يا Alt رو بزني در متغير Shift يه مقدار قرار ميگيره كه واسه هر كدوم از 3 تا كليد متفاوته :
Alt =1
Control = 2
Shift =4
(اگه اشتباه نكرده باشم)
حالا اگه مثلا كليد Alt + A رو بزني : Keycode = 65 -- Shift = 1
اگه كليد Cotrol + A رو بزني : Keycode = 65 -- Shift = 2
اگه كليد Shift + A رو بزني : Keycode = 65 -- Shift = 4

به همين ترتيب

ساسر جان مرسي استفاده كرديم

اگه درست منظورت رو فهمیده باشم خیلی سادس
می تونی این برنامه رو بنویس
دوتا تکست باکس درست کن و این کد رو تو فرمت بذار
بعد توی تکست باکس یک هر کلیدی رو خواستی بزن تا کد اسکی اونو تو تکست 2 بنویسه

Private Sub Text1_KeyPress(KeyAscii As Integer)
Text2.Text = KeyAscii
End Sub

:biggrin: :biggrin: :biggrin: :biggrin: