Få inn peker kordinatene fra en box...Hvordan?

[Hayer]

Hei

Tenkte jeg ville prøve en ting...

Jeg vil ha en PictureBox,Image kontroll så når brukeren trykker på en command knapp kan han/henne deretter trykke i PictureBox,image kontrollen(Eller det som er best)

og få inn cordinatene... Litt dårlig forklaring kansje? Si fra så prøver jeg på nytt

[aadnk]

Du kan simpelthen bruke MouseDown-hendelsen:

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

[Hayer]

ER det ikke mer kode?

[aadnk]

Jeg tenkte kanskje X- og Y-paramenterene i den hendelsen ville sette deg på riktig spor. Det er nemlig ikke verre enn å gjøre noe så som dette:

' Variabel som viser hvorvidt vi skal bry oss om musehendelsen

Dim bProcess As Boolean

 

Private Sub picImage_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

 

    ' Se om vi skal utføre hendelsen

    If bProcess Then

   

        ' Det skal vi. X- og Y-koordinatene befinner seg i henholdsvis X og Y.

        MsgBox "Du klikket på punkt (" & X & ", " & Y & ")", vbInformation

   

        ' Vi trenger ikke å bry oss om dette før brukeren igjen har klikket på tasten

        bProcess = False

       

    End If

 

End Sub

 

Private Sub cmdClick_Click()

 

    ' Informer hendelsn ovenfor at brukeren har klikket på knappen

    bProcess = True

 

End Sub

I tillegg kan det muligens være en fordel å sette ScaleMode i bildeboksen til vbPixels.