Question

vb中的CLS的用法

Private Sub Command1_Click()
Me.Scale (0, 100)-(150, 0)
v1 = 0.01
m1 = 10
m2 = 10
For i = 1 To 50 Step v1
Cls
FillColor = vbBlack
FillStyle = 0
Circle (i, 50), 3 ‘画一个小球
Next i
Me.Scale (0, 100)-(150, 0)
Circle (50, 50), 3, vbRed

v2 = 0.02
Circle (50, 50), 3
For j = 1 To 50 Step v2
Cls
Circle (j + 50, 50), 3

Next j
Circle (50, 50), 3
End Sub

这是代码，我想做一个碰撞的小球
第一次的循环用cls 就会把碰撞过程中的小球删掉而保留最后的一次，但是下一次的循环会把第一次的循环保留最后的一次小球也删掉，请问怎么保留第一次的小球

Answer 1

不能用cls。可以用下面的方法：
方法一：
需要显示小球时，设置好FillColor 用circle画园，
需要擦除时，设置FillColor为背景色，在刚才的位置再画一次园。
方法二：用image控件代替circle功能，需要时显示，不需要时隐藏（图象可能闪烁）。
方法三：用图象代替circle功能，结合api函数（或用paintpicture)需要时Paint，不需要时设置好Paint方式为xor，再次Paint（图象不会闪烁）。
其中，下面的2个方法，可以将小球设计的更漂亮。

Answer 2

CLS是清除控件上显示的内容（不是控件内包含的控件）。
如：PICTURE1.CLS用来清除PICTURE1中绘制的图形，但不能清除PICTURE1做为容器所包含的其它控件。
同理Form1.Cls也一样。在Form1中的控件不能用它清除，但它可以清除在Form1中绘制的图形（如用line方法绘的直线、Circle方法绘的圆、Print写的字等）