"skrabe" med musen

bump

bump igen

bump...

Dine Bump hjælper ingenting. Alle spørgsmål ligger i den rækkefølge de bliver oprettet.

Jeg har svært ved at se hvad du skal bruge dette til, men anyway her er et forslag:

Læg følgende kode i en Form, og tryk "a" med cursoren 2 forskellige steder.

Jeg har sat "opløsningen" til 10 pixels, men det kan du jo ændre som du vil.
Jeg har desuden indsat en Sleep, da det ellers ville gå så hurtigt, at man ikke kan se det. Den kan du også ændre som du synes. Vær opmærksom på at du ikke kan bruge musen mens sub'en kører.

Public Punkt1 As Point
    Public Punkt2 As Point
    Public PunktValgt As Boolean

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
        Handles Me.KeyDown

        If e.KeyCode = Keys.A Then
            If PunktValgt = False Then
                Punkt1 = Cursor.Position
                PunktValgt = True
            Else
                Punkt2 = Cursor.Position
                PunktValgt = False
                Call FlytCursor()
            End If
        End If

    End Sub

    Public Sub FlytCursor()

        Dim Delta As Integer = 10
        Dim i, j As Integer
        Cursor.Position = Punkt1
        For j = 0 To CInt((Int(System.Math.Abs(Punkt1.X - Punkt2.X)) / Delta))
            For i = 0 To CInt((Int(System.Math.Abs(Punkt1.Y - Punkt2.Y)) / Delta))
                Cursor.Position = New Point(Punkt1.X + (j * Delta), Punkt1.Y + (i * Delta))
                System.Threading.Thread.Sleep(100)
            Next i
        Next j

    End Sub

PS Du skal lige huske at sætte formens KeyPreview til True

PPS: Det er også forudsat at det første punkt ligger over og til venstre for det andet punkt.

Mange tak for hjælpen, det er præcis som jeg villa have det :D
smider du lige et svar ;)

OK ,-svar

Hvad så Marvind? -Er det ikke lukketid?

Hvis du ikke kunne bruge svaret alligevel, så giver du bare points til dig selv.