|
Registrieren
Login
Autor
treY.de_
Poster
Anmeldedatum: 20.03.2007
Beiträge: 110
Wohnort: localhost
Mausposition bestimmen
Verfasst am: 29.04.2007, 19:31
Hey Leute...
Kann ich per Vb die Mausposition auf dem Bildschirm bestimmen?
Oder kann ich, wenn die Maus auf ner bestimmten Position ist,
ein event ausführen?
_________________
TheCoder_
Überflieger
Anmeldedatum: 31.12.2006
Beiträge: 359
Wohnort: Essen
Verfasst am: 29.04.2007, 19:51
ja klar per api.
Folgender source bestimmt die maus position und verändert sie danach auf x und y achse um eine zufällige zahl. dadurch ensteht eine art von Vibrations Effekt des Cursors. hoffe es hilft dir.
Code: Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, _
ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As _
POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private X As Long
Private Y As Long
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Dim pT As POINTAPI
'Zwischenspeichern beim Laden, damit der Mauszeiger von dort startet,
'wo er momentan ist
GetCursorPos pT
MsgBox "Muuuuuuuhhh, Ich hoffe du hast an den möglichst großen exit button gedacht ^^"
Timer1.Interval = 1
Timer2.Interval = 1
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim pT As POINTAPI
GetCursorPos pT
ValueOne = pT.X - Int(Rnd * 50)
ValueTwo = pT.Y - Int(Rnd * 50)
Change = SetCursorPos(ValueOne, ValueTwo)
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
Dim pT As POINTAPI
GetCursorPos pT
ValueOne = pT.X + Int(Rnd * 50)
ValueTwo = pT.Y + Int(Rnd * 50)
Change = SetCursorPos(ValueOne, ValueTwo)
Timer1.Enabled = True
Timer2.Enabled = False
End Sub
auch zu lesen in dem thread: http://enco.silent-thunder.de/board/viewtopic.php?t=130
EDIT:// Du benötigst zwei timer(timer1 und timer2) und am besten nen grooooßen button(command1) zum beenden
_________________
Verwandte Themen
Aufrufe
Letzter Beitrag
Image-Box mit der Maus bewegen
501
03.11.2010, 10:00
Suche viele Leute für einen Downloader
516
28.09.2009, 16:10
Form ohne Rand mit Maus größer u. kleiner ziehen?
802
07.04.2008, 08:57
Maus!
944
02.06.2007, 21:23
objekte mit der maus bewegen
1489
19.05.2007, 11:16
