just4froum
چهارشنبه 23 شهریور 1390, 16:06 عصر
intvertal تایمر 10 است
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
Dim m As Integer
If GetAsyncKeyState(vbKeyDecimal) <> 0 Then m = GetAsyncKeyState(vbKeyDecimal)
If m <> 0 Then MsgBox "."
End Sub
چرا کد بالا با کلید دات (.) که در قسمت numpad ها است کار می کند اما با کلید دات (.) که پایین کلید L است کار نمی کند
با تشکر از همه .
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
Dim m As Integer
If GetAsyncKeyState(vbKeyDecimal) <> 0 Then m = GetAsyncKeyState(vbKeyDecimal)
If m <> 0 Then MsgBox "."
End Sub
چرا کد بالا با کلید دات (.) که در قسمت numpad ها است کار می کند اما با کلید دات (.) که پایین کلید L است کار نمی کند
با تشکر از همه .