کد توابع صفحه کلید

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

اینطوری عزیزم :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)



  'VBShiftMask  : The bit mask for the SHIFT key.

  'VBCtrlMask  : The bit mask for the CTRL key.

  'VBAltMask :  The bit mask for the ALT key.

  

  

     ShiftKey = Shift And 7

   Select Case ShiftKey

      Case 1 ' or vbShiftMask

         Debug.Print "You pressed the SHIFT key."

      Case 2 ' or vbCtrlMask

         Debug.Print "You pressed the CTRL key."

      Case 4 ' or vbAltMask

         Debug.Print "You pressed the ALT key."

   End Select



  

       If Shift And vbAltMask Then        ' ALT key was pressed

          Select Case KeyCode

             Case vbKeyA                        ' ALT+A was pressed

                Debug.Print "ALT+A was pressed"

             Case vbKeyB                        ' ALT+B was pressed

                Debug.Print "ALT+B was pressed"

             Case vbKeyC                        ' ALT+C was pressed

                Debug.Print "ALT+C was pressed"

          End Select

       End If



       

End Sub



Private Sub Form_Load()

 Me.KeyPreview = True

End Sub

سلام
ممنون از جوابتون .Alt+Shift راست و چپ کیبورد رو چطوری میشه پیاده کرد؟در تغییر زبان با کدهای قبلی مشکل تغییر مجدد بوجود میاد.

سلام
در کد زیر
Select Case KeyAscii
Case 48 To 57
Case vbKeyBack
Case Else
Beep
KeyAscii = 0
End Select
ولی در وی بی .نت
خطا میگیرد

در وی بی .نت بجا keyascii
چیه فوری؟؟؟؟؟؟

نقل قول:

---

نوشته شده توسط pasargadsaeed

سلام
در کد زیر
Select Case KeyAscii
Case 48 To 57
Case vbKeyBack
Case Else
Beep
KeyAscii = 0
End Select
ولی در وی بی .نت
خطا میگیرد

در وی بی .نت بجا keyascii
چیه فوری؟؟؟؟؟؟

---

در رویداد keyDown باید بنویسی

        If e.KeyValue = 13 Then

    'Code

        End If

و در رویداد keyPeress

        If e.KeyChar = Chr(13) Then

    'Code

        End If