您所在位置：主题：实现满天星效果的简单编程。
大灰狼的窝 [专家分：20] 发布于 2002-10-10 23:52:00
如果你想用很快的速度搞一个有带有各种随机颜色的满天星出来，不妨试用以下程序，我上机测试通过的：
Private Sub Form_Click()
ScaleWidth = 100
ScaleHeight = 100
DrawWidth = 20
m_x = Rnd * 100
m_y = Rnd * 100
m_red = Rnd * 255
m_green = Rnd * 255
m_blue = Rnd * 255
PSet (m_x, m_y), RGB(m_red, m_green, m_blue)
End Sub
不好的地方，可以给我提一些建议的。
Private Sub Form_Click()
ScaleWidth = 100
ScaleHeight = 100
DrawWidth = 20
m_x = Rnd * 100
m_y = Rnd * 100
m_red = Rnd * 255
m_green = Rnd * 255
m_blue = Rnd * 255
PSet (m_x, m_y), RGB(m_red, m_green, m_blue)
End Sub
不好的地方，可以给我提一些建议的。
