Miten saada hiiren koordinaatit Visual Basicissä

Olitpa sitten kirjoittamassa seuraavaa osuma-tietokonepeliä tai luonut yksinkertaisen piirustusohjelman, sinun on ehkä tiedettävä, missä käyttäjän hiiren kohdistin sijaitsee tietokoneen näytössä. Visual Basic -kehittäjissä on sisäänrakennettu joukko kirjastoja, jotka voivat auttaa niitä seuraamaan laitteita, kuten hiirtä. Voit käyttää jotakin näistä luokista, jotta voit määrittää hiiren vaakasuorat ja pystysuorat koordinaatit käyttämällä joitakin Visual Basic -koodin rivejä.

1.

Käynnistä Microsoft Visual Studio ja avaa jokin Visual Basic -hankkeistasi.

2.

Kaksoisnapsauta projektin käynnistyslomaketta. Visual Studio näyttää lomakkeen Design-ikkunassa.

3.

Vedä paneelin ohjaus työkalupakista lomakkeeseen ja paina "F4" näyttääksesi Ominaisuudet-ikkunan.

4.

Napsauta ikkunan yläosassa olevaa "Tapahtumat" -painiketta ja kaksoisnapsauta "Klikkaa" -tapahtuman painiketta. Koodiikkuna avautuu ja näyttää paneelin napsautusmenetelmän.

5.

Liitä seuraava koodi tähän menetelmään:

Dim koordinaatit pisteenä Dim x koordinaatti Int16 Dim yCoordinate As Int16

koordinaatit = Panel1.PointToClient (MousePosition) xCoordinate = koordinaatit.X yCoordinate = koordinaatit.Y

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

Ensimmäinen lause luo uuden pistemuuttujan nimeltä "koordinaatit". PointToClient-menetelmä - joka on esitetty rivillä neljä - saa nykyisen hiiren paikan suhteessa paneelin yläreunaan. Vaihda "Panel1" paneelin nimeksi. XCoordinate-muuttuja sisältää vaaka-asennon ja yCoordinate-muuttuja pitää pystysuoran asennon. Lopullinen lausunto näyttää viestiruudun, joka näyttää nämä kaksi arvoa, kun napsautat paneelia.

6.

Lisää seuraava koodi edellisessä vaiheessa luetellun koodin alle:

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

Tämä koodi on lähes identtinen edellisessä vaiheessa esitettyjen neljän viimeisen lausunnon kanssa. Ensimmäinen rivi eroaa, kuten alla on esitetty:

koordinaatit = Me.PointToClient (MousePosition)

Tämä lausunto saa nykyisen hiiren paikan suhteessa lomakkeeseen paneelin sijasta. Viestiruutu näyttää vaaka- ja pystysuorat koordinaatit.

7.

Suorita projekti painamalla F5. Lomake avautuu ja näyttää lomakkeen ja sen sisältämän paneelin. Napsauta lomakkeen sisällä ja viestiruutu näyttää sen pisteen vaakasuorat ja pystysuorat koordinaatit, joita napsautit paneelin yläreunan reunan suhteen.

8.

Paina Enter." Viestiruutu sulkeutuu, koodi jatkuu ja näyttää toisen viestiruudun. Tämä viestiruutu näyttää koordinaatit lomakkeen vasempaan yläreunaan nähden.

Kärki

  • Käytä ohjelmoinnissa suunnittelun tavoitteisiin sopivaa kohdistimen tunnistusmenetelmää. Yhdessä tapauksessa voit huolehtia vain siitä, missä kohdistin sijaitsee kuvassa, paneelissa tai muussa ohjauksessa, joka sijaitsee lomakkeessa. Toisessa tapauksessa sinun on ehkä tiedettävä, missä kohdistin on suhteessa lomakkeen vasempaan yläreunaan.