5 svar · 210 visningar · startad av joel_joel88
Hej jag håller på att göra ett chatt program och jag ska göra en funktion till det...... Funktionen ska vara att om inte muspekaren har flyttat sig på fem minuter så ska det stå stå i en ruta: Inte vid datorn.
Är det någon som vet hur man gör?
Tacksam för svar
mitt förslag ärr att ha två text rutor.
och göra så att i den ena så visas musens X position och i den andra så visas Y Position.
sen gör du i textrutornas Text1_Change
att när dom ändras så är det en timer som först stoppas sen startas direkt efter. och då får du lägga in i den timern att efter 5 minså ändras användarnamnet.
För att man ska kunna skriva en kod så måste man se din kod för att kunna ändra användarnamn och sånt Etc.
Detta funkar bara om rutan är uppe. Jag tänkte att det skulle kunna känna av om muspekaren har rört sig fast rutan är minimerad.
Lägg en Timer på ett Form och lägg denna kod inuti Formen:
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Static oldPos As POINTAPI, newPos As POINTAPI
Static lCount As Long
GetCursorPos newPos
If newPos.x = oldPos.x And newPos.y = oldPos.y Then
lCount = lCount + 1
Caption = "Musen har inte rört sig på " & lCount \ 2 & " sekunder."
Else
oldPos.x = newPos.x: oldPos.y = newPos.y
lCount = 0
Caption = "Nu så."
End If
End Sub
tackar :D
:)
No problem.
Och så ett påpekande angående din trådrubrik: Man ska inte hålla på och vända på änder. Dom kan drunkna.