Sådan får du musekoordinater i Visual Basic

Uanset om du skriver det næste hit computerspil eller skaber et simpelt tegneprogram, skal du muligvis vide, hvor en brugers musemarkør ligger på computerskærmen. Visual Basic-udviklere har et indbygget sæt klassebiblioteker, der kan hjælpe dem med at spore enheder, som f.eks. Musen. Du kan bruge en af ​​disse klasser til at hjælpe dig med at bestemme en vandretes vandrette og lodrette koordinater ved hjælp af et par linjer af Visual Basic-kode.

1.

Start Microsoft Visual Studio, og åbn en af ​​dine Visual Basic-projekter.

2.

Dobbeltklik på projektets startformular. Visual Studio viser formularen i vinduet Design.

3.

Træk en panelkontrol fra værktøjskassen til formularen, og tryk på "F4" for at vise vinduet Egenskaber.

4.

Klik på knappen "Events" øverst i vinduet og dobbeltklik på "Klik" -hændelsesknappen. Kodevinduet åbnes og viser panelets klikmetode.

5.

Indsæt følgende kode i denne metode:

Dim koordinater Som punkt Dim xCoordinate Som Int16 Dim yCoordinate Som Int16

koordinater = Panel1.PointToClient (MousePosition) xCoordinate = coordinates.X yCoordinate = coordinates.Y

MessageBox.Show (xCoordinate.ToString () + "-" + yCoordinate.ToString ())

Den første sætning opretter en ny punktvariabel med navnet "koordinater". PointToClient-metoden - vist på linje fire - opnår den aktuelle museposition i forhold til panelets øverste venstre kant. Udskift "Panel1" med navnet på dit panel. XCoordinate-variablen indeholder den vandrette position, og yCoordinate-variablen har den lodrette position. Den endelige opgørelse viser en meddelelsesboks, der viser disse to værdier, når du klikker på panelet.

6.

Tilføj følgende kode under koden angivet i det foregående trin:

koordinater = Me.PointToClient (MousePosition) xCoordinate = coordinates.X yCoordinate = coordinates.Y MessageBox.Show (xCoordinate.ToString () + "-" + yCoordinate.ToString ())

Denne kode er næsten identisk med de sidste fire udsagn, der er vist i det foregående trin. Første linje adskiller sig som vist nedenfor:

koordinater = Me.PointToClient (MousePosition)

Denne sætning opnår den aktuelle musposition i forhold til formularen i stedet for panelet. Meddelelsesboksen viser de vandrette og lodrette koordinater.

7.

Tryk på F5 for at køre projektet. Formularen åbnes og viser formularen og panelet den indeholder. Klik inde i formularen, og en meddelelsesboks viser de vandrette og lodrette koordinater for det punkt, du klikede i forhold til panelets øverste venstre kant.

8.

Tryk på "Enter". Meddelelsesboksen lukker, koden fortsætter med at køre og viser en anden meddelelsesboks. Denne meddelelsesboks viser koordinaterne i forhold til formens øverste venstre kant.

Tip

  • Når du programmerer, skal du bruge markørdetekteringsmetoden, der passer til dine designmål. I et tilfælde kan du kun være opmærksom på, hvor markøren befinder sig i et billede, panel eller anden kontrol, der findes på en formular. I en anden kan du måske vide, hvor markøren er i forhold til formens øverste venstre kant.