关于化圆Circle (CurrentX, CurrentY), 1000

来源:百度知道 编辑:UC知道 时间:2024/06/09 16:44:06
Private Sub Form_Click()
ForeColor = 255: DrawMode = 7
Circle (CurrentX, CurrentY), 1000
CurrentX = CurrentX + 2000
CurrentY = CurrentY + 2000
Circle (CurrentX, CurrentY), 1000
End Sub

Private Sub Form_Click()
ForeColor = 255: DrawMode = 7
Circle (CurrentX, CurrentY), 1000
CurrentX = CurrentX + 2000
CurrentY = CurrentY + 2000

End Sub

这两个程序差一个Circle (CurrentX, CurrentY), 1000 为什么少了这个,2个会有差别, 第一个是一个会动的圆,并且之前化的圆会消失,第2个程序画了圆但是圆不会消失,N多圆啊

除了楼上说的外,会动还跟你设的DrawMode=7有关.
你把DrawMode=7删掉,两个的效果就完全一样了.(DrawMode默认是13)

第一个程序一次画两个圆,不会消失,因为你没有使第一个圆消失的程序,程序运行时差太小,所以看到同时画两个,后者CurrentX = CurrentX + 2000
CurrentY = CurrentY + 2000 没有用