ett form och en knapp är allt som finns.
Den säger att det är fel på frmDraw men jag kan inte hitta felet. Kan du?



Option Explicit

Private Sub Command1_Click()
End
End Sub

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

frmDraw.CurrentX = X
frmDraw.CurrentY = Y

End Sub


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

If Button = 1 Then
Line (frmDraw.CurrentX, frmDraw.CurrentY)-(X, Y), QBColor(0)

End If

End Sub

Kan vara så att koden avser att du kallar formuläret frmDraw. Men Me är att föredra eftersom det fungar oavsett vad du kallar formuläret.

<code>
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbLeftButton Then
Me.PSet (X, Y), QBColor(0)
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbLeftButton Then
Me.Line Step(0, 0)-(X, Y), QBColor(0)
End If
End Sub
</code>
Använder mig av relativ kordinater

Tack det hjälpte en hel del. Satt i ett par timmar och letade fel och kollade efter om jag kunnde hitta liknade program.=) så tacksam jag är.

William