فهمیدن فشرده شدن چند کلید

سلام دوستان
یه سؤال داشتم : چجوری میشه مثل بازیها وقتی دو کلید مثلا بالا و چپ فشرده شده اند ، هر دو را فهمید ؟
ممنون

نقل قول:

---

نوشته شده توسط ahmadb [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام دوستان
یه سؤال داشتم : چجوری میشه مثل بازیها وقتی دو کلید مثلا بالا و چپ فشرده شده اند ، هر دو را فهمید ؟
ممنون

---

با sendkeys این کار عملیه

سلام
majj عزیز منظور دوستمون را اشتباه متوجه شدی تابعی که شما نوشتی مال ارسال کلید توسط برنامه هست ولی دوستمون میخواد وقتی کلید ترکیبی فشرده شد تشخیص بده
فکر کنم با تابع زیر بشه این کار را کرد

Private Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVkAs Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo AsLong)

پروپرتی keypreview فورم رو فعال کن بعد

کد:

---

form_keydown
if keycode=38 then
msgbox "key Up"
endif
if keycode=40 then
msgbox "key down"
endif
end sub

---

سلام
از همه شما دوستان به خاطر راهنماییتون ممنون
راستش خودم جوابش رو پیدا کردم : استفاده از API
API مربوط به این کار GetKeyState است :

کد:

---

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

---

خوبی این تابع اینه که هم میشه کلیدهای موس رو چک کرد هم کیبرد و ضمنا میشه فهمید چراغ کلیدهای Caps Lock ، Num Lock و Scroll Lock روشن هست یا نه .
روش استفاده :
مقدار nVirtKey رو می تونید با ثابتهای وی بی مثلا VbKeyUp یا VbKeyDown یا... مقداردهی کنید و یا با استفاده از ثوابت مخصوص تابع که در ادامه اونا رو می ذارم . مقدار خروجی تابع اگر XH8000 بود یعنی کلید مشخص شده پایین است و اگر مقدار آن XH1 بود یعنی چراغ مشخص شده خاموش است .و اگر صفر باشد تابع با خطا مواجه شده .

کد:

---

Dim KS As Long
 KS = GetKeyState(vbKeyLeft)
If KS And &H8000 Then
'Left is pressed
 KS = GetKeyState(vbKeyUp)
If KS And &H8000 Then
'Up is pressed
End If

---

ثوابت مخصوص این تابع برای کلیدهای مختلف :

کد:

---

Const VK_LBUTTON = &H1
Const VK_RBUTTON = &H2
Const VK_CANCEL = &H3
Const VK_MBUTTON = &H4
Const VK_BACK = &H8
Const VK_TAB = &H9
Const VK_CLEAR = &HC
Const VK_RETURN = &HD
Const VK_SHIFT = &H10
Const VK_CONTROL = &H11
Const VK_MENU = &H12
Const VK_PAUSE = &H13
Const VK_CAPITAL = &H14
Const VK_ESCAPE = &H1B
Const VK_SPACE = &H20
Const VK_PRIOR = &H21
Const VK_NEXT = &H22
Const VK_END = &H23
Const VK_HOME = &H24
Const VK_LEFT = &H25
Const VK_UP = &H26
Const VK_RIGHT = &H27
Const VK_DOWN = &H28
Const VK_SELECT = &H29
Const VK_PRINT = &H2A
Const VK_EXECUTE = &H2B
Const VK_SNAPSHOT = &H2C
Const VK_INSERT = &H2D
Const VK_DELETE = &H2E
Const VK_HELP = &H2F
Const VK_0 = &H30
Const VK_1 = &H31
Const VK_2 = &H32
Const VK_3 = &H33
Const VK_4 = &H34
Const VK_5 = &H35
Const VK_6 = &H36
Const VK_7 = &H37
Const VK_8 = &H38
Const VK_9 = &H39
Const VK_A = &H41
Const VK_B = &H42
Const VK_C = &H43
Const VK_D = &H44
Const VK_E = &H45
Const VK_F = &H46
Const VK_G = &H47
Const VK_H = &H48
Const VK_I = &H49
Const VK_J = &H4A
Const VK_K = &H4B
Const VK_L = &H4C
Const VK_M = &H4D
Const VK_N = &H4E
Const VK_O = &H4F
Const VK_P = &H50
Const VK_Q = &H51
Const VK_R = &H52
Const VK_S = &H53
Const VK_T = &H54
Const VK_U = &H55
Const VK_V = &H56
Const VK_W = &H57
Const VK_X = &H58
Const VK_Y = &H59
Const VK_Z = &H5A
Const VK_STARTKEY = &H5B
Const VK_CONTEXTKEY = &H5D
Const VK_NUMPAD0 = &H60
Const VK_NUMPAD1 = &H61
Const VK_NUMPAD2 = &H62
Const VK_NUMPAD3 = &H63
Const VK_NUMPAD4 = &H64
Const VK_NUMPAD5 = &H65
Const VK_NUMPAD6 = &H66
Const VK_NUMPAD7 = &H67
Const VK_NUMPAD8 = &H68
Const VK_NUMPAD9 = &H69
Const VK_MULTIPLY = &H6A
Const VK_ADD = &H6B
Const VK_SEPARATOR = &H6C
Const VK_SUBTRACT = &H6D
Const VK_DECIMAL = &H6E
Const VK_DIVIDE = &H6F
Const VK_F1 = &H70
Const VK_F2 = &H71
Const VK_F3 = &H72
Const VK_F4 = &H73
Const VK_F5 = &H74
Const VK_F6 = &H75
Const VK_F7 = &H76
Const VK_F8 = &H77
Const VK_F9 = &H78
Const VK_F10 = &H79
Const VK_F11 = &H7A
Const VK_F12 = &H7B
Const VK_F13 = &H7C
Const VK_F14 = &H7D
Const VK_F15 = &H7E
Const VK_F16 = &H7F
Const VK_F17 = &H80
Const VK_F18 = &H81
Const VK_F19 = &H82
Const VK_F20 = &H83
Const VK_F21 = &H84
Const VK_F22 = &H85
Const VK_F23 = &H86
Const VK_F24 = &H87
Const VK_NUMLOCK = &H90
Const VK_OEM_SCROLL = &H91
Const VK_OEM_1 = &HBA
Const VK_OEM_PLUS = &HBB
Const VK_OEM_COMMA = &HBC
Const VK_OEM_MINUS = &HBD
Const VK_OEM_PERIOD = &HBE
Const VK_OEM_2 = &HBF
Const VK_OEM_3 = &HC0
Const VK_OEM_4 = &HDB
Const VK_OEM_5 = &HDC
Const VK_OEM_6 = &HDD
Const VK_OEM_7 = &HDE
Const VK_OEM_8 = &HDF
Const VK_ICO_F17 = &HE0
Const VK_ICO_F18 = &HE1
Const VK_OEM102 = &HE2
Const VK_ICO_HELP = &HE3
Const VK_ICO_00 = &HE4
Const VK_ICO_CLEAR = &HE6
Const VK_OEM_RESET = &HE9
Const VK_OEM_JUMP = &HEA
Const VK_OEM_PA1 = &HEB
Const VK_OEM_PA2 = &HEC
Const VK_OEM_PA3 = &HED
Const VK_OEM_WSCTRL = &HEE
Const VK_OEM_CUSEL = &HEF
Const VK_OEM_ATTN = &HF0
Const VK_OEM_FINNISH = &HF1
Const VK_OEM_COPY = &HF2
Const VK_OEM_AUTO = &HF3
Const VK_OEM_ENLW = &HF4
Const VK_OEM_BACKTAB = &HF5
Const VK_ATTN = &HF6
Const VK_CRSEL = &HF7
Const VK_EXSEL = &HF8
Const VK_EREOF = &HF9
Const VK_PLAY = &HFA
Const VK_ZOOM = &HFB
Const VK_NONAME = &HFC
Const VK_PA1 = &HFD
Const VK_OEM_CLEAR = &HFE

---

باز هم از همه دوستان ممنون

منبع : کتاب مرجع توابع API 32 Bit تالیف مهندس حسین صادقی راد انتشارات نص

البته روش جناب 301 هم درسته ولی به درد کار من نمی خورد چون سرعت عمل رویدادهای خود فرم خیلی پایینه و به درد مثلا یک بازی نمی خورد :10: