UC知道用VB制做屏幕开花
来源：百度知道 编辑：UC知道 时间：2024/06/18 16:46:34
我的朋友过生日，我想用VB制做屏幕开花给她个惊喜。
所谓的屏幕开花就是打开我制做的程序时，屏幕就会出现一朵朵盛开花。然后会出现生日快乐四个大字。
具体就是这样了，哪位会的请教下我。
注：要有具体教程，不能单发代码。
若VB制做不了的话，那别的制做软件也行。
在此我先说谢谢了！
哪位会的，请教教我。
可以给我个具体教程吗？
我没用过Flash
所谓的屏幕开花就是打开我制做的程序时，屏幕就会出现一朵朵盛开花。然后会出现生日快乐四个大字。
具体就是这样了，哪位会的请教下我。
注：要有具体教程，不能单发代码。
若VB制做不了的话，那别的制做软件也行。
在此我先说谢谢了！
哪位会的，请教教我。
可以给我个具体教程吗？
我没用过Flash
同意楼上。Flash更好些。
我随便写了点，不过不怎么符合。主要是那个花该怎么计算不想算，你可以拿来修改一下。
Dim index As Integer
Private Sub Command1_Click()
Me.WindowState = 2
Me.BackColor = vbBlack
Me.AutoRedraw = True
Me.Command1.Visible = False
Me.ForeColor = vbWhite
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
Me.ForeColor = vbRed
x = Rnd * Screen.Width
y = Rnd * Screen.Height
For i = 1 To 20
Me.Circle (x, y), 100 * i
Next
Me.ForeColor = vbWhite
CurrentX = Screen.Width / 3
CurrentY = Screen.Height / 2
Print "生"
Me.ForeColor = vbRed
CurrentX = Screen.Width / 3 + 2000
CurrentY = Screen.Height / 2
Print "日"
Me.ForeColor = vbWhite
CurrentX = Screen.Width / 3 + 4000
CurrentY = Screen.Height / 2
Print "快"
Me.ForeColor = vbRed
CurrentX = Screen.Width / 3 + 6000
CurrentY = Screen.Height / 2
Print "乐"<