Anladım şimdi bakıyorum
Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek
Sanırım hallettim birazdan atarım dosyayı
Sonraki mesajdakini deneyin.
Mantık şu dediğiniz gibi.
Eğer 5 saniyede maus yer değiştirmemişse mesaj verir.
Mantık şu dediğiniz gibi.
Eğer 5 saniyede maus yer değiştirmemişse mesaj verir.
teşekkürler deneyeceğim
#If VBA7 Then
Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
#Else
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
#End If
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim a As POINTAPI
Dim b As Long
Dim c As Long
Dim ret As Variant
Dim ilk As String
Dim son As String
Dim say As Integer
Const sure As Long = 5 '5 demek 5 saniye
Const saniye As Long = 1000 'saniye cinsi
Private Sub Form_Load()
TimerInterval = saniye
ilk = mousepos
say = 1
End Sub
Private Function mousepos() As String
ret = GetCursorPos(a)
b = a.X
c = a.Y
mousepos = "X:" & b & " ; Y :" & c
End Function
Sub mesajVer()
MsgBox "Abi yorgunuz galiba" _
& vbCrLf & " kalk yerine yat bende verileri kaybolmadan kaydedeyim" _
& vbCrLf & " veya daha iyisi deðiþiklikleri geri alayým" _
& vbCrLf & " sen bir ara tekrar bakarsýn", vbInformation, "Süre"
End Sub
Private Sub Form_Timer()
If say Mod sure = 1 Then ilk = mousepos
If say Mod sure = 0 Then son = mousepos
If say Mod sure = 0 Then
If ilk = son Then
mesajVer
End If
End If
txtSay.Value = say Mod sure
say = say + 1
End Sub
Ellerinize sağlık deneyip sonucu yazacağım
Konuyu Okuyanlar: 1 Ziyaretçi