高考问答论文翻译用什么软件:vb中的CLS的用法
来源：百度文库 编辑：高考问答 时间：2024/04/26 12:21:35
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 就会把碰撞过程中的小球删掉而保留最后的一次，但是下一次的循环会把第一次的循环保留最后的一次小球也删掉，请问怎么保留第一次的小球
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 就会把碰撞过程中的小球删掉而保留最后的一次，但是下一次的循环会把第一次的循环保留最后的一次小球也删掉，请问怎么保留第一次的小球
不能用cls。可以用下面的方法：
方法一：
需要显示小球时，设置好FillColor 用circle画园，
需要擦除时，设置FillColor为背景色，在刚才的位置再画一次园。
方法二：用image控件代替circle功能，需要时显示，不需要时隐藏（图象可能闪烁）。
方法三：用图象代替circle功能，结合api函数（或用paintpicture)需要时Paint，不需要时设置好Paint方式为xor，再次Paint（图象不会闪烁）。
其中，下面的2个方法，可以将小球设计的更漂亮。