Keskustelu: Koodit: VB6: Kursorin koordinaatit

No tämä näyttää kursorin koordinaatit Label1 ja Label2 labeleissa.
Eli tee Label1 ja Label2 nimiset Labelit. =)

Option Explicit

Type POINTAPI
    x As Long
    y As Long
End Type

Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long ' Declare API

Private Sub Timer1_Timer()
GetCursorPos z 'Lisää koordinaatit
Label1 = "x: " & z.x 'Labeliin koordinaatti
Label2 = "y: " & z.y 'Labeliin koordinaatti
End Sub

Kai ton nyt sitten tajuaa että Timerikin piti tehä =) Niii ja toi piti pistää formiin =) heti ekassa virheitä tusinalla arvasin tän ei ois pitänyt tehä =)

Ei toi toimi.. tulee heti virhettä... "ByRef Argument type mismatch" Tollasta iskee...

ilmeisesti tossa jotain vikaaa highlight tulee tohon zetaan GetCursorPos z 'Lisää koordinaatit

Niin, tuota vähän ihmettelen, mikäköhän on vikana? Vastatkaa ny joku!

Muuttuja z pitää määritellä:

Dim z As POINTAPI

Roger that..Och tack.

joo kerropas näyttääkö tuo myös formin ulkopuolelle viedyn osoittimen koordit ? Siihenkin olisi kiva saada helppiä, kun en itse ole saanut oikee toimiin.

Tässä tulee yksinkertaisin mun tietämä tapa ilmoittaa kursorin formin sisällä olevat koordinaatit:( tee label1- ja label2- labelit)

Sub Form_MouseMove (Button As Integer, Shift As Integer, x As Single, y As Single)
    label1.caption = x
    label2.caption = y
End Sub

mää sain toimiin ton TIC:n tekemän lisäämällä Dim z As POINTAPI tohon koodiin

ihan hieno ohjelma

vielä yksinkertaisempi tapa tehdä tämä formin sisällä olevan kursorin koordinaatit on:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
Print X
Print Y
End Sub

VB.NET:ssä seuraava tapahtuisi näin:

Imports System.Windows.Forms.Cursor

Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
        Label1.Text = System.Windows.Forms.Cursor.Position.X
        Label2.Text = System.Windows.Forms.Cursor.Position.Y
    End Sub

Eli formille Label1 ja label2

lainaus:

Ei toi toimi.. tulee heti virhettä... "ByRef Argument type mismatch" Tollasta iskee...<br><br>ilmeisesti tossa jotain vikaaa highlight tulee tohon zetaan GetCursorPos z 'Lisää koordinaatit

Ota OPtion Explicit pois...

Hyvä vinkki!