麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

<menuitem id="o8fhs"><center id="o8fhs"><del id="o8fhs"></del></center></menuitem>

<small id="o8fhs"></small>

<menuitem id="o8fhs"></menuitem>

首頁(yè) > 學(xué)院 > 開(kāi)發(fā)設(shè)計(jì) > 正文

制作帶有動(dòng)畫(huà)和聲音的屏幕保護(hù)程序

2019-11-18 17:28:13

字體：大中小

來(lái)源：轉(zhuǎn)載

供稿：網(wǎng)友

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

上一篇：用VB設(shè)計(jì)聚焦框程序

下一篇：建立無(wú)模式窗口

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛(ài)...

熱門(mén)圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注

新聞熱點(diǎn)

榮耀總裁趙明烏鎮(zhèn)演講：榮耀首款5G手機(jī)V30下月發(fā)布

2019-10-23 09:17:05

搜狐張朝陽(yáng)：回歸媒體是搜狐重新崛起的關(guān)鍵

2019-10-21 09:20:02

華為輪值董事長(zhǎng)郭平：虛擬技術(shù)創(chuàng)造現(xiàn)實(shí)價(jià)值

2019-10-21 09:00:12

滴滴英文服務(wù)上線兩周年用戶(hù)已超200萬(wàn)

2019-09-26 08:57:12

華為推出全球至快AI訓(xùn)練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國(guó)技術(shù)團(tuán)隊(duì)

2019-09-25 08:15:43

疑難解答

圖片精選

網(wǎng)友關(guān)注

主站蜘蛛池模板：亚洲天堂成人在线 | 国产伦精品一区二区三区 | 爱爱插插视频 | 在线播放黄色片 | 91精品国产一区二区三区动漫 | 国产精品成人一区 | 亚洲综合无码一区二区 | 久久精品网站视频 | 亚洲少妇诱惑 | 毛片免费视频播放 | 黄色免费小网站 | 久草在线播放视频 | 日本一区二区不卡在线观看 | 337p日本欧洲亚洲大胆精蜜臀 | 综合国产一区 | 国产乱乱视频 | 日韩黄在线观看 | 久久免费综合视频 | 一区二区三区视频在线 | 日本s级毛片免费观看 | 香蕉黄色网 | 久久91精品国产91久久yfo | 国产一区二区三区高清 | 好吊色37pao在线观看 | 欧美精品久久久久久久久老牛影院 | 色婷婷久久久 | 91香蕉影视 | 国产91大片 | 欧美视频99| 一级黄色国产视频 | 欧美一页 | 亚洲小视频在线观看,com | 成人激情综合网 | 中文字幕www. | 亚洲国产精品一区二区三区 | 久久综合综合久久 | 欧美成人午夜一区二区三区 | 免费黄色入口 | 日本欧美一区二区三区视频麻豆 | 羞羞视频2023 | 99影视电影电视剧在线播放 |

<menuitem id="qfffi"><center id="qfffi"></center></menuitem>