View Full Version : کد توابع صفحه کلید
habib1352
شنبه 10 خرداد 1382, 17:05 عصر
کد توابع صفحه کلید و کنتل وآلت چگونه بدست می آید
اگر می شود آن کد ها رو بنویسید ممنون
Vahid_Nasiri
شنبه 10 خرداد 1382, 18:54 عصر
اینطوری عزیزم :
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
یک شنبه 13 دی 1388, 16:57 عصر
سلام
ممنون از جوابتون .Alt+Shift راست و چپ کیبورد رو چطوری میشه پیاده کرد؟در تغییر زبان با کدهای قبلی مشکل تغییر مجدد بوجود میاد.
pasargadsaeed
سه شنبه 24 خرداد 1390, 12:06 عصر
سلام
در کد زیر
Select Case KeyAscii
Case 48 To 57
Case vbKeyBack
Case Else
Beep
KeyAscii = 0
End Select
ولی در وی بی .نت
خطا میگیرد
در وی بی .نت بجا keyascii
چیه فوری؟؟؟؟؟؟
nader.golab
سه شنبه 31 خرداد 1390, 03:52 صبح
سلام
در کد زیر
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.