亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

制作帶有動畫和聲音的屏幕保護程序

2019-11-18 17:28:13

字體：大中小

來源：轉載

供稿：網友

利用VB5.0和WINDOWS95自身所帶的“畫筆”就可以制作出帶有動畫和聲音的屏幕保護程序。畫面是一只蝴蝶在音樂的伴奏下飛動，碰動屏幕的邊緣就會向小球反彈一樣換個方向飛。這里需要兩個bmp文件，采用的是VB自帶的文件（源文件的位置是c:/EndIf
x=x xp'增加移動量
y=y yp
Ifx>=Form1.ScaleWidth-Image1.WidthThen
'右邊界判斷
Image5.Picture=Image3.Picture'換圖像
Image6.Picture=Image4.Picture
x=Form1.ScaleHeight-Image1.Width
xp=(-1)*xp'改變移動量
EndIf
Ifx<=0Then
Image5.Picture=Image1.Picture
Image6.Picture=Imege2.Picture
x=0
xp=(-1)*xp
EndIf
Ify>=Form1.ScaleHeight-Image1.HeightThen
y=Form1.ScaleHeight-Image1.Height
yp=(-1)*yp
EndIf
Ify<=OThen
y=O
yp=(-1)*yp
EndIf
IfImage7.Picture=Image5.PictureThen
'不斷改變圖象以實現翅膀的一張一合。
Image7.Picture=Image6.Picture
Else
Image7.Picture=Image5.Picture
EndIf
Image7.Movex,y'最關鍵的一步蝴蝶的移動
EndSub
模塊中的代碼：
DeclareFunctionShowCursorLib"user32"(ByValbSbowAsLong)AsLong
subendscrnsave()'結束此程序
showmouse
End
EndSub
Subshowmouse()
WhileShowCursor(True)<0
Wend
EndSub
SubHidemouse()'隱藏鼠標
WhileShowCursor(False)>=0
Wend
EndSub
subMain()
IfApp.PrevInstance=TrueThen
ExitSub
EndIf
Form1.Show
EndSub->

上一篇：用VB設計聚焦框程序

下一篇：建立無模式窗口

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注

新聞熱點

榮耀總裁趙明烏鎮演講：榮耀首款5G手機V30下月發布

2019-10-23 09:17:05

搜狐張朝陽：回歸媒體是搜狐重新崛起的關鍵

2019-10-21 09:20:02

華為輪值董事長郭平：虛擬技術創造現實價值

2019-10-21 09:00:12

滴滴英文服務上線兩周年用戶已超200萬

2019-09-26 08:57:12

華為推出全球至快AI訓練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國技術團隊

2019-09-25 08:15:43

疑難解答

圖片精選

網友關注

亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

久久好看免费视频| 欧美在线日韩在线| 亚洲欧美在线第一页| 欧美亚洲成人精品| 国产精品久久久久久久久久免费| 国产精品中文字幕在线观看| 国内精品美女av在线播放| 国产精品成人观看视频国产奇米| 亚洲自拍偷拍视频| 亚洲高清一二三区| 粉嫩av一区二区三区免费野| 91色在线视频| 亚洲网站在线播放| 色www亚洲国产张柏芝| 成人免费观看49www在线观看| 亚洲国产成人久久综合| 91久久精品美女| 亚洲一区美女视频在线观看免费| 欧美性videos高清精品| 一本色道久久88综合亚洲精品ⅰ| 中文字幕成人在线| 高清欧美一区二区三区| 国产午夜精品视频免费不卡69堂| 亚洲国产美女久久久久| 亚洲综合最新在线| 国内精品在线一区| 最近免费中文字幕视频2019| 国产精品免费观看在线| 午夜精品福利视频| 国产精品永久免费观看| 国产精品专区h在线观看| 91精品综合视频| 亚洲国产精品电影| 日韩精品中文字| 国产91成人video| 亚洲免费电影在线观看| 精品国产一区二区三区久久久狼| 成人免费观看49www在线观看| 在线丨暗呦小u女国产精品| 亚洲网站视频福利| 日本精品性网站在线观看| 国产一区二区三区四区福利| 国精产品一区一区三区有限在线| 亚洲成人在线网| 亚洲激情视频在线| 欧洲成人免费aa| 中文字幕日韩在线视频| 久久综合伊人77777| 国产精品福利久久久| 亚洲国内精品在线| 国产啪精品视频网站| 亚洲精品97久久| 精品视频久久久| 国产精品免费网站| 精品国产91久久久久久| 国产精自产拍久久久久久| www.欧美三级电影.com| 亚洲性线免费观看视频成熟| 欧美激情影音先锋| 国产视频亚洲视频| 久久久久久成人精品| 91午夜在线播放| 成人免费视频97| 久久6免费高清热精品| 成人激情免费在线| 91麻豆国产语对白在线观看| 高清欧美性猛交xxxx黑人猛交| 精品偷拍一区二区三区在线看| 性欧美xxxx交| 欧美床上激情在线观看| 日韩美女在线观看| 色爱av美腿丝袜综合粉嫩av| 亚洲美女中文字幕| 成人性教育视频在线观看| 亚洲福利小视频| 成人福利在线观看| 亚洲精品suv精品一区二区| 久久久精品国产网站| 欧美巨乳美女视频| 成人激情视频网| 国产精品91在线观看| 久久久91精品国产| www.亚洲一区| 亚洲福利在线看| 丰满岳妇乱一区二区三区| 国产ts人妖一区二区三区| 亚洲国产97在线精品一区| 国产一区二区av| 午夜剧场成人观在线视频免费观看| 亚洲电影免费观看高清完整版在线观看| 亚洲成人av片在线观看| 久久久91精品国产一区不卡| 国产精品丝袜久久久久久高清| 日韩亚洲精品视频| 国产精品久久久久久久电影| 国产一区玩具在线观看| 亚洲一区二区久久久| 色悠悠久久88| 国产欧美久久久久久| 国产91在线播放九色快色| 欧美精品福利在线| 成人精品一区二区三区电影免费| 国产亚洲免费的视频看| 亚洲在线观看视频网站| 欧美精品久久久久久久久| 亚洲欧美成人一区二区在线电影| 97视频在线播放| 97av视频在线| 久久av在线看| 日韩精品免费电影| 日本中文字幕久久看| 欧美麻豆久久久久久中文| 91免费电影网站| 日韩有码视频在线| 91精品视频免费观看| 亚洲男人7777| 91天堂在线视频| 欧美性69xxxx肥| 欧美精品成人在线| 日韩欧美中文第一页| 国产福利精品视频| 亚洲欧美自拍一区| 欧美视频在线免费| 91久久久久久久一区二区| 亚洲欧美制服中文字幕| 7777kkkk成人观看| 九九综合九九综合| 日韩av免费在线| 日韩中文在线观看| 日韩高清电影好看的电视剧电影| 正在播放国产一区| 欧美视频免费在线观看| 成人中心免费视频| 日韩最新中文字幕电影免费看| 97av在线视频免费播放| 欧洲永久精品大片ww免费漫画| 亚洲欧美激情在线视频| 高跟丝袜欧美一区| 亚洲天堂网站在线观看视频| 亚洲二区中文字幕| 亚洲欧美综合精品久久成人| 久久久久久久久电影| 国产精品成人观看视频国产奇米| 欧美夫妻性视频| 日日噜噜噜夜夜爽亚洲精品| 国产精品视频中文字幕91| 日韩欧美999| 欧美另类高清videos| 国产精品扒开腿做| 久久激情视频免费观看| 亚洲三级黄色在线观看| 日本精品视频在线播放| 性亚洲最疯狂xxxx高清| 欧美成人免费视频| 91国产美女在线观看| 欧美精品午夜视频| 超碰日本道色综合久久综合| 国产精品小说在线| 性色av一区二区三区免费| 成人免费xxxxx在线观看| 国产男女猛烈无遮挡91| 欧美一区深夜视频| 欧美激情中文网| 欧美视频二区36p|