VB如何把表單設置成滿天星...

Question

就是把表單背景改成黑色 然後進去改寫程式...
總共有50個彩色點 大小RND*3+3
幫忙我一下咩

Answer 1

Private Sub Form_Activate()    Dim I As Integer        AutoRedraw = True    BackColor = 0    Randomize Timer    For I = 1 To 50        DrawWidth = Int(Rnd * 3 + 3)        PSet (Int(Rnd * ScaleWidth + 1), Int(Rnd * ScaleHeight + 1)), _        RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))    Next    AutoRedraw = FalseEnd Sub