📄 用vb做的动画.txt
字号:
╔-------------------------------------------------╗
┆ 新世纪网安基地(www.520hack.com) ┆
┆ 论坛地址:bbs.520hack.com ┆
┆ 网站宗旨:打造特色第一的黑客安全站点. ┆
╚-------------------------------------------------╝
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
免杀木马公布+ 菜鸟专题动画 +套餐工具包+精品资源公布=天天更新
语音原创+黑客技术总结文章+每日一黑客技巧=每天学一招
新世纪网安基地(www.520hack.com)
论坛地址:bbs.520hack.com
网站宗旨:打造特色第一的黑客安全站点.
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
大家好,我是啊呆,今天给大家做的教程是大家从来没听说过的,用vb来做个模仿flash,这个到目前
为止还没人做过,绝对原创,就算你没有任何播放器也可以看的,就算电脑不装任何软件还是可以观看
呵呵。。。今天这么晚做这个教程,本来是想看球看完再做的,但是没有直播法国队的。。。。
好了,废话少说。。我们来看看我们今天要做的东西。/。。。。。
我先做了一下,我们来看看效果
ok。。。这里因为色的变化太大所以看起来比较大。。。我也只是用了几张图片而已。。。
废话少说,开始吧
我之前已经准备了几张图片了
ok,新建一个
图片和字我已经先搞好了。。。
大家注意看我操作。。。。
不好意思啊,因为我的鼠标不大好。。所以。。。。。
如果有个人送套给我就最好啦。。。。顺便来个mic我就能做语音的了。。
好了,界面基本搞定了。。。我们来看看
这里要设置一下。。。改成100
好啦,我们来输入代码
好了,现在我们来调整一下他们在屏幕中显示的位置
ok了,现在我们来看看效果
时间被我设才了点。。。
这个可以做为教程的开头。。。。。
好了,时间改段了。。。再来看看
刚才是因为那张图片被我弄坏了所以不行。。。
呵呵。。。我们继续来改一下
好了,我们来生成。。。
ok,我们来看看。。。
大家可以自己找比较多的图片去搞。。。。。
因为昨天我做的教程太大了,放不上去,我今天重新做了这个。。。
比较仓促,看不明白的可以问我。。。。
建议我做的这个做为我们动画的开头。。。。
捆绑的就不用我说了。。。。
今天的动化就做到这里了
大家再见!
代码如下:
form1:
Dim dlaytime As Integer
Private Sub Form_Load()
dlaytime = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If dlaytime >= 50 Then
Timer1.Enabled = False
Load Form2
Form2.Show
Unload Me
Else
dlaytime = dlaytime + 1
End If
End Sub
============================================================================
form2:
end
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
免杀木马公布+ 菜鸟专题动画 +套餐工具包+精品资源公布=天天更新
语音原创+黑客技术总结文章+每日一黑客技巧=每天学一招
新世纪网安基地(www.520hack.com)
论坛地址:bbs.520hack.com
网站宗旨:打造特色第一的黑客安全站点.
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
≡≡≡≡≡≡≡≡≡≡≡≡≡【论坛精华精选】≡≡≡≡≡≡≡≡≡≡≡≡
【 免杀精华】 | 【 抓鸡精华】 | 【 木马精华】 | 【 脚本精华】 | 【原创精华】
【 每日软件】 | 【 精彩文章】 | 【 精品动画】 | 【 提问精华】 | 【 QQ 精华】
你们的进步是我们努力的方向,我们提供的是一个你们学习的平台
希望大家多多支持,我们将用我们最好的的努力来回报大家
bbs.520hack.com
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -