private sub command1_click()
form1.scale (0,8)-(18,-8)
form1.cls----------------------删除这一行后，再运行时就发现，多了一条直线
for i=0 to 15 step 0.001
x=i
y=sin(i)
form1.line -(x,y)
next i
form1.cls---------------------增加这一行后，在单击按钮后，直线就没有
end sub
还有一个问题，单击按钮后，开始绘图，再单击另一个暂停按钮，绘图暂停，刚画的
图形保持，再单击“继续绘图”，继续刚才的绘图
谢谢
......................没看明白
private sub command1_click()
form1.scale (0,8)-(18,-8)
form1.cls
for i=0 to 15 step 0.001
x=i
y=sin(i)
form1.line -(x,y)
next i
end sub
运行后出现一条多余的直线
private sub command1_click()
form1.scale (0,8)-(18,-8)
for i=0 to 15 step 0.001
x=i
y=sin(i)
form1.line -(x,y)
next i
end sub
运行后出现一条多余的直线
private sub command1_click()
form1.scale (0,8)-(18,-8)
form1.cls
for i=0 to 15 step 0.001
x=i
y=sin(i)
form1.line -(x,y)
next i
end sub
这样就正常了
|
