Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Mi servirebbe di trovare le coordinate della posizione del mouse non solo sulla form del progetto ma rispetto a tutta l'area dello schermo
Ho trovato il seguente codice:
Codice sorgente - presumibilmente VB.NET
PrivateDeclareFunction GetCursorPos Lib "user32"(lpPoint As POINTAPI)AsLong
Private Type POINTAPI ' This holds the logical cursor information
x AsInteger
y AsInteger
End Type
Sub Timer1_Timer()
Dim rect As POINTAPI
' Get the current mouse cursor coordinates:
Call GetCursorPos(rect)
Form1.Cls
' Print out current position on the form:
Print"Current X = "& rect.x
Print"Current Y = "& rect.y
EndSub
Funziona ma col difetto che viene rilevata solo la coordinata "X" (perché è il primo integer dichiarato dei due) e non la "Y".
Come devo modificarlo?
Grazie
()
Newbie
Messaggi: Iscritto:
Postato alle 5:23
Mercoledì, 09/09/2009
Dichiara x e y come Long
(Fighissima la funzione Print)
Ultima modifica effettuata da il 09/09/2009 alle 5:24
ad esempio per ingrandire le scritte su cui si "posa" il mouse, per aiutare le persone che vedono poco... insomma una specie di lente d'ingrandimento...
comunque se ci mettiamo a fare esempio non finiamo più xD
()
Newbie
Messaggi: Iscritto:
Postato alle 20:01
Mercoledì, 09/09/2009
Testo quotato
Uno scopo più "lecito" no, eh?
Si può aprire un topic... Ne faccio uno in "Tutto e di +"
Ultima modifica effettuata da il 09/09/2009 alle 20:02