Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Leichte Korrektur
Autor: unbekannt
Datum: 08.03.02 21:36
Private Sub Timer1_Timer() Dim oPkt As POINTAPI Dim orec As RECT Dim rval As Long 'Windowposition im Bezug zum Screen GetWindowRect Me.hwnd, orec 'Absolute Mauskoordinaten GetCursorPos oPkt 'Befindet sich die Maus auf der Form? rval = PtInRect(orec, oPkt.x, oPkt.y) 'Wenn ja, Koordinaten in Twips zurückgeben, 'ansonsten 0 nMouseTop = 0 nMouseLeft = 0 If rval <> 0 Then nMouseTop = (oPkt.y - orec.Top) * Screen.TwipsPerPixelY nMouseLeft = (oPkt.x - orec.Left) * Screen.TwipsPerPixelX End If End Sub

Mauszeigerposition in einer Form ermitteln	75	Tux12Fun	08.03.02 19:49
Re: Mauszeigerposition in einer Form ermitteln	541	unbekannt	08.03.02 21:24
Leichte Korrektur	275	unbekannt	08.03.02 21:36
Nochmal, nicht mein Koordinatentag heute	275	unbekannt	08.03.02 21:39
Nö, erste war doch richtig oT	284	unbekannt	08.03.02 21:42
Re: Nö, erste war doch richtig oT	58	Neo	09.03.02 09:26
Re: Nö, erste war doch richtig oT	105	Tux12Fun	09.03.02 11:37

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen