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

[habib1352]

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

[Vahid_Nasiri]

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

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

[gigidagostino]

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

[pasargadsaeed]

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

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

[nader.golab]

سلام
در کد زیر
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