8 svar · 405 visningar · startad av PsyDonia
Kommer inte på tyvär.
Men hur får man fram vilken x och y kordinater musen är på.
om jag lägger en bild på en form.
och klickar på bilden så vill jag få fram x och y kordinaterna på bilden hur gör jag då.
Ej testad kod men jag tror nog det fungerar :)
Public Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Public Type PointAPI
X As Long
Y As Long
End Type
Private Sub Command1_Click()
GetCursorPos Coords 'getting position
Me.Caption = "Current Mouse Position: " & Coords.X & "," & Coords.Y
End Sub
/Viktor
ska kolla men det ser ut att borde funka..
funkar nästan som jag vill.
Men inte riktigt.
det jag vill är mer att få ut x och y cordinaterna på en bild när jag klickar på den.
detta ger x och y cordinaterna rätt när programmet är i maximerat läge.
eftersom den bara går exakt på var musen är på skärmen.
vill mer veta var musen är i programmet X och y kordinaterna.
Har du inte X,Y för fönstret i App eller Me? Och sedan har du X,Y för bilden i fönstret i bild objektet och om du tar musens X,Y-fönstrets X,Y-bild objektets X,Y så borde du få X,Y för bilden :)
/Viktor
antingen är jag trött eller något annat fel.
Men jag förstår inte riktigt vad du menade.
gjorde inte exakt som din kod men nästan.
Dubbelklicka på kontrollen (im designläget) och leta reda på mousemove, i den kan du direkt använda x och y.
ja.. kom på det... man är lite korkad ibland.
hade skrivit in koden fel bara. så det funkar nu..
Har installerat VB6 nu så att man kan testa lite :)
Om man kör med MouseMove får man också komma ihåg att ta värdet och dela det med 15 för att få det i pixlar,
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = "X: " & (X / 15) & ", Y: " & (Y / 15)
End Sub
/Viktor