Håller på och skriver en scanner styrning (ingen dator scanner). I den ska man kunna styra X & Y rörelserna. Då hade jag tänkt mej att man har en Picture-box 128px hög & bred, och i den så finns det en liten prick 16px hög & bred.

Den ska man kunna flytta runt i Pictureboxen genom att hålla nere musknappen och flytta musen. Kruxet är att i det övre vänstra hörnet så ska X & Y värdet vara 255 och i det nedre högra hörnet 128.

Nån som har någon bra lösning på detta???


//Magnus

Hej
Principlösning
Picture1.ScaleMode = 0 'User
Picture1.ScaleHeight = -128
Picture1.ScaleLeft = 255
Picture1.ScaleTop = 255
Picture1.ScaleWidth = -128

Private Sub Picture1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Label1 = CLng(X) & " " & CLng(Y)
End Sub

mvh
Sven