+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: راهنمایی در کار با فرم ها (/showthread.php?tid=2512)
صفحات
1
2
RE: راهنمایی در کار با فرم ها - Thewolf - 06-30-2012
خیلی ممنون دوست عزیز
خب این کد ج داد، اما میشه درباره این کد توضیح بدید.
و اینکه چه طور می تونم واسه کلیدهای دیگه هم از این کد استفاده کنم.
RE: راهنمایی در کار با فرم ها - Ghoghnus - 06-30-2012
(06-30-2012، 02:22 PM)Amin_Mansouri نوشته:امین چقد کد هارا سخت کردی!میشد مثل کیلاگر رفتار کرد!فکر کنم اونطوری کدهاش خوانا تر میشد!(06-30-2012، 01:59 PM)Thewolf نوشته: س !!!!!!!!!!!!!
کسی از دوستان نمی تونه این مشکل من رو حل کنه ؟
بیا
دکمهf12 بزن فرمتو نمایش میده
کد:Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
If i = "123" Then Me.Show
End If
Next i
End Sub
یه تایمر روی فرمت بزار تایم هم بده روی 1
RE: راهنمایی در کار با فرم ها - Thewolf - 06-30-2012
دوستان می توانید درباره این کدها توضیح بدید.
و
بگید چه طور می شه واسه کلیدهای دیگه صفحه کلید نیز اینکار رو کرد.
RE: راهنمایی در کار با فرم ها - Amin_Mansouri - 06-30-2012
هر کلیدی که فشار بدی کدشو بهت میده
بیا :
کد:
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
MsgBox (i)
End If
Next i
End Sub