主题:实现满天星效果的简单编程。
如果你想用很快的速度搞一个有带有各种随机颜色的满天星出来,不妨试用以下程序,我上机测试通过的:
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
不好的地方,可以给我提一些建议的。