◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇
08年红客技术+08年菜鸟专题+08年极品工具+08年精品资源公布=2008新黑旋
原创语音同步教程+每日一动画+每日一工具=每天提高一点
黑色旋风网络安全培训基地(www.hackp.com)
论坛地址:bbs.hackp.com
网站宗旨:打造最大的网络安全培训基地.
◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇

大家好 ， 我是毅毅  论坛ID：wsyq998 
好了 今天给大家做个VB 下雨效果 没什么技术含量 就个代码和
好了开始吧  仔细看操作吧

2个 控件:
窗体:FORM1
时钟:TIMER1,周期:1
加个图片吧  呵呵

代码:
Dim x(100), y(100), pace(100), size(100) As Integer '定义变量

Private Sub Form_Load()
Randomize '随机的
For i = 1 To 100 '为数组循环赋值
X1 = Int(Form1.Width * Rnd)
Y1 = Int(Form1.Height * Rnd)
pace1 = Int(500 - (Int(Rnd * 499)))
size1 = 25 * Rnd
x(i) = X1
y(i) = Y1
pace(i) = pace1
size(i) = size1
Next '退出
End Sub

• ☉ VB制作下雨效果[黑旋动画组]最新动画 | VB制作下雨效果[黑旋动画组]最新版 | VB制作下雨效果[黑旋动画组]免杀
• ☉ VB制作下雨效果[黑旋动画组]破解版本 | VB制作下雨效果[黑旋动画组]注册机 | VB制作下雨效果[黑旋动画组]汉化
• ☉ 教程均为本站原创或者网上经典教程转载，如果侵犯了您的权益，请联系我们。投稿邮箱:hackp2008@126.com