folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Farede Hareket Olmadığını Öğrenmek VB6



Farede Hareket Olmadığını Öğrenmek VB6

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

     

    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim simdikikordinat

Private Sub Timer1_Timer()
Dim kordinat As POINTAPI
GetCursorPos kordinat

If simdikikordinat = kordinat.X & kordinat.Y Then
MsgBox "Farede kıpırtı yok"
End If

If birkerecalisir <> 1 Then
simdikikordinat = kordinat.X & kordinat.Y
birkerecalisir = 1
End If

End Sub

     

     

    belki lazım olur birine :D

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Otistiq
    Otistiq's avatar
    Kayıt Tarihi: 05/Ağustos/2005
    Erkek

    Blogda yayınlayabilirmiyim.. :)

    Hayallerim ve Kendim.
    Reply With Quote Alıntı yap
Toplam Hit: 2065 Toplam Mesaj: 2