# 堆叠........

Posted by totoro on March 24, 1999 at 23:28:08:

Private Static Function f(b1)
f = -((((x1 - x2) / (y1 - y2)) * (y1 - b1)) - x1)
End Function
Private Sub Form_Paint()
Scale (0, 0)-(100, 100)
x1 = 50: y1 = 0: x2 = 25: y2 = 50: x3 = 75: y3 = 50
Line (x1, y1)-(x2, y2): Line (x2, y2)-(x3, y3): Line (x3, y3)-(x1, y1)
For b1 = 0 To 50 Step 1
Call f(b1)
Image1.Move f(b1),b1
Next b1
End Sub

在 run 的时候出现堆叠的问题,要如何的改善它
请各位帮帮忙,谢谢.

Follow Ups:

- Image1 造成错误 小吴 16:37:08 3/25/99 (0)