Keskustelu: Ohjelmointikysymykset: VB6: vb:n kursori

Miten saan sillain että kun klikkaa johonkin niin se ei otakkaa sitä ylä nurkasta vaan keskeltä, mieluiten SetPixel apinaa käyttäen.

Selitä hieman tarkemmin. Mikä on 'se'? Entä 'sitä'?

Tässäpä esimerkki, en käyttänyt apinaa, vaan VB:n omaa PSET komentoa...

Private Sub Form1Load()
Dim xkeski, ykeski
xkeski = form1.width / 2
ykeski = form1.height / 2
' Nyt on otettu keskikohdat muuttujiin.
PutPixelKeskelta -10, 20, RGB(255, 0, 0)

End Sub

Public Sub PutPixelKeskelta(x, y, c)
pset xkeski+x, ykeski+y , c
End Sub

Ennoo pitkään aikaan tehny mitään VB:llä, enkä muista miten psettiä käytettiin VB:ssä Muitakin virheitä voi olla, mutta ne on helppo muuttaa toimiviksi...

Kannattaa isonnella tota esimerkki kutsun koordinaati lukuja, unohdin, että VB:n yksikkö on twipeissä...

Tai sitten vaihtaa ScaleMode Pixeliksi.

ööh, eihän toi ole sellanen...
Kun klikkaat esim tohon "Lähetä vastaus" -nappiin niin se klikkaus tapahtuu sillä kursorin nupilla, miten saan esim. tähtäimen ja se nappaa keskeltä vaikka ampuu kuvaa niin se tekee vaikka msgBoxin... nooh MITÄ MÄÄ HÖPÖTIN. jotain SetPixelistä mutta eihän sitä kai voi käyttää tossa olin vähän sekava...

No sitten MousePointeriksi numero 2 - Cross. Jokaisella kursorilla on oma "hotspot"-kohta, ja Crossissa se on keskellä.

Voit myös tehdä oman kursorin vaikka Microangelolla ja määrittää sen hotspotiksi minkä tahansa kohdan. Visual Basiciin sen taas saat laittamalla MousePointer-arvoksi 99 - Custom ja valitsemalla tekemäsi kursorin MouseIconiksi.

Pitääpäs tästä sitten hakea toi microankelon kokoversio...