Tipp 0163 Mauszeiger folgen
Autor/Einsender:
Datum:
  Peter Wiecha
19.11.2001
Entwicklungsumgebung:   VB 6
Was für manche Spiele unentbehrlich ist, wird hier gezeigt. Ein Shape-Objekt, das im direkten Weg dem Mauszeiger hinterher fährt und verfolgt. Es gibt also kein Entkommen, damit sind der Phantasie zur Verwirklichung eigener Projekte keine Grenzen gesetzt.
 
Option Explicit

Dim gex As Single, gey As Single
Dim geschw As Single
Dim xx As Single, yy As Single

Private Sub Form_Load()
  geschw = 50
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
      X As Single, Y As Single)
  xx = X
  yy = Y

  If xx = 0 Then xx = 1
  If yy = 0 Then yy = 1
End Sub

Private Sub Timer1_Timer()
  If (b.Left - xx) <> 0 Then gey = (b.Top - yy) / (b.Left - xx)

  gex = 1

  If gey < -1 Then gex = 1 / (gey - (2 * gey)): gey = -1
  If gey > 1 Then gex = 1 / gey: gey = 1

  If xx > b.Left - 50 And xx < b.Left + 100 And _
      yy > b.Top - 50 And yy < b.Top + 100 Then Exit Sub
  If xx < b.Left Then b.Top = b.Top - (gey * geschw)
  If xx > b.Left Then b.Top = b.Top + (gey * geschw)

  If xx < b.Left Then b.Left = b.Left - (gex * geschw)
  If xx > b.Left Then b.Left = b.Left + (gex * geschw)

End Sub
 
Weitere Links zum Thema
Mausbewegung aufzeichnen und abspielen
Mausklick simulieren
Position des Maus-Cursors ermitteln

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,3 kB) Downloads bisher: [ 2374 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 3. Juli 2011