国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

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

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

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

疑難解答

圖片精選

網友關注

主站蜘蛛池模板：金山区| 建德市| 安陆市| 浦江县| 梅河口市| 宁海县| 岐山县| 兰西县| 巴塘县| 南城县| 德昌县| 黄骅市| 浦东新区| 仙居县| 扎兰屯市| 武陟县| 孝感市| 陵水| 大洼县| 诸暨市| 土默特左旗| 万州区| 观塘区| 赤壁市| 阳曲县| 江源县| 都昌县| 临沧市| 体育| 丰镇市| 拜城县| 马山县| 长阳| 大宁县| 大庆市| 隆林| 正蓝旗| 习水县| 开江县| 托里县| 绍兴市|