سوال: گرفتن اطلاعات موس [بایگانی]

Danial_Yousefi

جمعه 10 مهر 1388, 21:36 عصر

سلام خدمت اساتید من یه مشکل داشتم هر چی سرچ کردم چیزی پیدا نکردم اگه کسی می تونه خواهشن کمکم کنه من یه سورس می خوام که در هر جای ویندوز موس که کلیدش پایین رفت یه متغیر true شه و وقتی بالا رفت اون متغیر false شه البته فرم م دیده نمی شه یعنی visible=false هر کی میتونه کمک کنه ممنون میشم...:قلب:

Apache66

جمعه 10 مهر 1388, 22:07 عصر

این تابع را بازخوانی کنید :
user32.dl
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal
vKey As Long) As Integerl
حالا تو event یک تایمر اینو بنویسید :
For i = 1 To 255
results = 0
results = GetAsyncKeyState(i)
If results <> 0 Then
Msgbox(Chr(i))
End If
Next