介紹用VB5.0和WINDOWS95自身所帶的“畫筆”就可以制作出帶有動畫和聲音的屏幕保護程序。畫面是一只蝴蝶在音樂的伴奏下飛動，碰動屏幕的邊緣就會向小球反彈一樣換個方向飛。這里需要兩個bmp文件，采

介紹

用VB5.0和WINDOWS95自身所帶的“畫筆”就可以制作出帶有動畫和聲音的屏幕保護程序。畫面是一只蝴蝶在音樂的伴奏下飛動，碰動屏幕的邊緣就會向小球反彈一樣換個方向飛。這里需要兩個bmp文件，采用的是VB自帶的文件1動畫的制作是利用image控件來實現(xiàn)的。改變image的picture屬性可實現(xiàn)畫面的變化，利用move命令可實現(xiàn)畫面的移動。利用MCI控件來實現(xiàn)音樂播放。程序編譯后將生成的exe可執(zhí)行文件，改為以*.scr結(jié)尾的文件名，將其復(fù)制到windowssystem子目錄即可，然后就可以在“控制面板”的“顯示器”中選擇該屏幕保護程序即可使用。

具體做法

首先建立一個新窗體form1，各屬性分別是backcolor選為黑色，borderstyle選為0（黑色不帶邊框）。在form1上加入7個image控件，在格式菜單中將各個image的大小都選為相同，image1-7的stretch屬性都選為true（圖像將隨控件的大小而變化），image1-6的visible的屬性選為false（不可見），image7的visible屬性為true。

制作動畫

Image1.picture 右飛

Image2.picture 右合

Image3.picture 左飛

Image4.picture 左合

在“工程”菜單中選擇“部件”，并從“部件”對話框的“控件”列表中選擇“Microsoft Multimedia Control5.0”加入MCI控件，并將其visible屬性改為false。加入時鐘控件timer1，其interval屬性為200（interval的值與機器的配置有關(guān)，在其他機器上可作適當(dāng)調(diào)整，我的配置是P133，內(nèi)存為32M）。

實現(xiàn)動態(tài)效果

原理如下：image1-4用來存圖形，運行時不可見。Image5用來存蝴蝶翅膀張開時的圖像，Image6用來存蝴蝶翅膀合上時的圖像，運行時都不可見。Image7是唯一運行時可見，利用時鐘控件來改變其圖形，用Image5和Image6來回變換。

```vb

If Image7.Picture Image5.Picture Then

Image7.Picture Image6.Picture

Else

Image7.Picture Image5.Picture

End If

```

實現(xiàn)移動效果

蝴蝶的移動利用image7控件的move方法： xp, yp，4個邊界值：上邊：y0，下邊：y，左邊：x0，右邊：x。

```vb

xp，yp為水平和垂直的移動量。

x，y為image7在窗體中的位置。

左右邊界的判斷：

If x > Then '右邊界

Image5.Picture Image3.Picture '蝴蝶應(yīng)向左飛，翅膀張開的圖形應(yīng)選為左飛

```

通過以上步驟，你可以制作出帶有動畫和聲音的屏幕保護程序。記得將程序編譯后生成的exe可執(zhí)行文件，改為以*.scr結(jié)尾的文件名，并將其復(fù)制到windowssystem子目錄中。然后就可以在“控制面板”的“顯示器”中選擇該屏幕保護程序來使用了。