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

[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