精华区文章阅读

发信人: zxfsnow (别怕我伤心), 信区: VB
标题: 用VB自制屏幕保护程序(附音乐)
发信站: 哈工大紫丁香 (2000年05月30日19:46:53 星期二), 转信

你是否已厌倦机上的屏幕保护程序，而又苦于难找到令自己满意的。不急，
“自己动手，丰衣足食”，你自己就可以制作精美的屏幕保护程序，只要你稍有
VB编程知识。下面我们就用VB来编写一个介绍自己家人的屏幕保护程序。
　　1、获取屏保图片：
　　从你家人的相片中，挑出你选定要作为图片的，用扫描仪扫进你的电脑中，保
存为“＊. bmp”格式。如果觉得效果不佳，可以用图片处理软件来加工，在这方
面，Photoshop、iPhtotoExpress等功能都相当强。把加工好的图片编好号（不妨
就保存为pic1.bmp、pic2.bmp等等），保存在C：盘根目录下的PHOTO子目录中。
　　2、图片显示：
　　在该步中，我们使用VB中LoadPicture（）函数来载入图片。其语法：
　　LoadPicture（[stringexpression]）
　　stringexpress参数为待载入的图形文件的路径和名称。
　　我们使用三个控件，其名称、属性及值如下：

　　控件名属性属性值
　　Form Name MyFamily
　　 Back Color 绿色
　　 Caption 空
　　 Control Box False
　　Image Name Photo
　　 Strech False
　　Timer Name Tconpic
　　 Interval 10000
　　其代码如下：
　　Option Explicit
　　 Dim counter as Integer
　　 Dim No as String
　　 Private Sub Form_Load()
　　 Photo.Picture=LoadPicture(“c:\Photo\pic1.bmp")
　　Counter=“1"
　　End Sub
　　Private Sub Tconpic_Timer()
　　Counter=Counter＋1
　　If Counter=15 then
　　Counter=1
　　End If
　　End If
　　No=Trim(str(Counter))
　　Photo.picture=LoadPicture(“c:\photo\pic"＋No＋“.bmp")
　　End Sub
　　说明：
　　第一个子程序的功能是装载第一张图片；
　　第二个子程序的功能是控制图片的转换；
　　3、添加多媒体功能：
　　我们可以应用VB提供的多媒体功能来为屏幕保护程序配上背景音乐。首先把自
己喜欢的音乐转录并以“bjmusic.wav”为名保存在目录PHOTO中，而后用Timer控
件来实现对背景音乐循环播放的控制。
　　该步中所使用的控件，其名称、属性和值如下：
　　控件属性属性值
　　MMControl Name MMConWav
　　Timer Name Tconwav
　　 Interval 150000
　　代码如下：
　　 Private Sub Form_Load()
　　 MMConWav.Visible=False
　　 MMConWav.Notify=False
　　 MMConWav.Wait=True
　　 MMconWav.Shareable=False
　　 MMConWav.DeviceType=“waveaudio"

　　 MMConWav.Filename=“c:\photo\bjmusic.wav"
　　 MMConWav.Command=“open"
　　 MMConWav.Command=“play"
　　 End Sub
　　 Private Sub Tconwav_Timer()
　　 MMConWav.Command=“colse"
　　 MMConWav.Command=“open"
　　 MMConWav.Command=“play"
　　 End Sub
　　说明：第一个子程序是设置控件MMcontrol的属性；
　　第二个子程序是控制该背景音乐的重复播放；
　　注意：选择的背景音乐应该和屏幕保护程序的主题相一致，且其播放的时间应
该是屏幕保护程序运行一周所需的时间的整数倍。
　　4、设置键盘和鼠标的响应：
　　要重新使用计算机，退出屏幕保护程序，就必须设置键盘和鼠标响应。其代码
如下：
　　Private Sub Form_keydown()
　　End
　　End Sub
　　Private Sub Form_Click()
　　End
　　End Sub
Form_MouseMove()
　　Static X1,Y1 As Single
　　Dim X2,Y2 As Single
　　X1=X
　　Y1=Y
　　If X1=0 And Y1=0 Then
　　 X1=X2
　　 Y1=Y2
　　 Exit Sub
　　End If
　　If (X1<>X2) Or (Y1<>Y2) Then
　　 End
　　End If
　　End Sub
　　说明：
　　第一个子程序的功能是按任意键时退出屏幕保护程序；
　　后两个子程序的功能是在单击或移动鼠标时退出屏幕保护程序；
　　5、生成MyFamily.scr程序：
　　就要大功告成了，选择文件菜单中生成“＊.exe”项，生成MyFamily.Scr文件
，保存在c:\windows目录下，然后选择控制面板，在显示器属性中选定你自己制作
的这个屏幕保护程序。搞定！运行看看，如何？看着自己制作的屏幕保护程序，心
里有一种成就感吧！
序，�?
里有一种成就感吧！
　　这里介绍了以个人家庭生活为主题的屏幕保护程序。如果你有心，可以将友人
的相片经过整理，配上优美的音乐或是自己的心情道白，这一定是份极好的礼物；
如果你还有生意头脑，可以和那些需要形象宣传的公司联系，为他们制作些企业宣
你是否已厌倦机上的屏幕保护程序，而又苦于难找到令自己满意的。不急，
“自己动手，丰衣足食”，你自己就可以制作精美的屏幕保护程序，只要你稍有
VB编程知识。下面我们就用VB来编写一个介绍自己家人的屏幕保护程序。
　　1、获取屏保图片：
　　从你家人的相片中，挑出你选定要作为图片的，用扫描仪扫进你的电脑中，保
存为“＊. bmp”格式。如果觉得效果不佳，可以用图片处理软件来加工，在这方
面，Photoshop、iPhtotoExpress等功能都相当强。把加工好的图片编好号（不妨
就保存为pic1.bmp、pic2.bmp等等），保存在C：盘根目录下的PHOTO子目录中。
　　2、图片显示：
　　在该步中，我们使用VB中LoadPicture（）函数来载入图片。其语法：
　　LoadPicture（[stringexpression]）
　　stringexpress参数为待载入的图形文件的路径和名称。
　　我们使用三个控件，其名称、属性及值如下：

　　控件名属性属性值
　　Form Name MyFamily
　　 Back Color 绿色
　　 Caption 空
　　 Control Box False
　　Image Name Photo
　　 Strech False
　　Timer Name Tconpic
　　 Interval 10000
　　其代码如下：
　　Option Explicit
　　 Dim counter as Integer
　　 Dim No as String
　　 Private Sub Form_Load()
　　 Photo.Picture=LoadPicture(“c:\Photo\pic1.bmp")
　　Counter=“1"
　　End Sub
　　Private Sub Tconpic_Timer()
　　Counter=Counter＋1
　　If Counter=15 then
　　Counter=1
　　End If
　　End If
　　No=Trim(str(Counter))
　　Photo.picture=LoadPicture(“c:\photo\pic"＋No＋“.bmp")
　　End Sub
　　说明：
　　第一个子程序的功能是装载第一张图片；
　　第二个子程序的功能是控制图片的转换；
　　3、添加多媒体功能：
　　我们可以应用VB提供的多媒体功能来为屏幕保护程序配上背景音乐。首先把自
己喜欢的音乐转录并以“bjmusic.wav”为名保存在目录PHOTO中，而后用Timer控
件来实现对背景音乐循环播放的控制。
　　该步中所使用的控件，其名称、属性和值如下：
　　控件属性属性值
　　MMControl Name MMConWav
　　Timer Name Tconwav
　　 Interval 150000
　　代码如下：
　　 Private Sub Form_Load()
　　 MMConWav.Visible=False
　　 MMConWav.Notify=False
　　 MMConWav.Wait=True
　　 MMconWav.Shareable=False
　　 MMConWav.DeviceType=“waveaudio"

　　 MMConWav.Filename=“c:\photo\bjmusic.wav"
　　 MMConWav.Command=“open"
　　 MMConWav.Command=“play"
　　 End Sub
　　 Private Sub Tconwav_Timer()
　　 MMConWav.Command=“colse"
　　 MMConWav.Command=“open"
　　 MMConWav.Command=“play"
　　 End Sub
　　说明：第一个子程序是设置控件MMcontrol的属性；
　　第二个子程序是控制该背景音乐的重复播放；
　　注意：选择的背景音乐应该和屏幕保护程序的主题相一致，且其播放的时间应
该是屏幕保护程序运行一周所需的时间的整数倍。
　　4、设置键盘和鼠标的响应：
　　要重新使用计算机，退出屏幕保护程序，就必须设置键盘和鼠标响应。其代码
如下：
　　Private Sub Form_keydown()
　　End
　　End Sub
　　Private Sub Form_Click()
　　End
　　End Sub
Form_MouseMove()
　　Static X1,Y1 As Single
　　Dim X2,Y2 As Single
　　X1=X
　　Y1=Y
　　If X1=0 And Y1=0 Then
　　 X1=X2
　　 Y1=Y2
　　 Exit Sub
　　End If
　　If (X1<>X2) Or (Y1<>Y2) Then
　　 End
　　End If
　　End Sub
　　说明：
　　第一个子程序的功能是按任意键时退出屏幕保护程序；
　　后两个子程序的功能是在单击或移动鼠标时退出屏幕保护程序；
　　5、生成MyFamily.scr程序：
　　就要大功告成了，选择文件菜单中生成“＊.exe”项，生成MyFamily.Scr文件
，保存在c:\windows目录下，然后选择控制面板，在显示器属性中选定你自己制作
的这个屏幕保护程序。搞定！运行看看，如何？看着自己制作的屏幕保护程序，心
里有一种成就感吧！
序，�?
里有一种成就感吧！
　　这里介绍了以个人家庭生活为主题的屏幕保护程序。如果你有心，可以将友人
的相片经过整理，配上优美的音乐或是自己的心情道白，这一定是份极好的礼物；
如果你还有生意头脑，可以和那些需要形象宣传的公司联系，为他们制作些企业宣
传的屏幕保护程序，还能为自己挣点“碎银”。来，试试看，你一定行。

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]

VB 版 (精华区)