精彩编程与编程技巧-用VB自制屏幕保护程序...

### 使用VB自制屏幕保护程序的知识点详解 #### 一、获取图像 在使用VB自制屏幕保护程序的过程中，首先需要获取并加载图像。根据文件描述，这里提到的是如何选择合适的图像格式，并将其转换为适合VB使用的格式。 - **图像格式选择**：推荐使用.bmp格式的图像，因为这种格式支持所有颜色并且不会造成质量损失。 - **图像处理**：可以使用如Photoshop或Photo Express等工具来编辑图像，并将它们保存为.bmp格式。例如，将图片命名为`pic1.bmp`、`pic2.bmp`等，并将这些文件存储在项目目录下的`PHOTO`文件夹内。 #### 二、显示图像 为了使屏幕保护程序能够循环显示不同的图像，我们需要利用VB的`LoadPicture`函数来加载图像，并通过计时器定时切换这些图像。 - **`LoadPicture`函数**：该函数用于加载指定路径的图像文件。例如： ```vb Photo.Picture = LoadPicture("c:\Photo\pic1.bmp") ``` - **计时器设置**：通过创建一个计时器（例如`Tconpic`），并在其`Timer`事件中实现图像的循环切换逻辑。例如： ```vb Private Sub Tconpic_Timer() Counter = Counter + 1 If Counter = 15 Then Counter = 1 End If No = Trim(Str(Counter)) Photo.Picture = LoadPicture("c:\photo\pic" & No & ".bmp") End Sub ``` #### 三、音频播放控制 为了让屏幕保护程序更加生动有趣，我们可以添加背景音乐。这需要利用VB提供的多媒体控件（MMControl）来播放音频文件。 - **MMControl配置**：首先需要设置MMControl的一些基本属性，如可见性、是否等待播放结束等。 ```vb MMConWav.Visible = False MMConWav.Wait = True MMConWav.DeviceType = "waveaudio" MMConWav.Filename = "c:\photo\bjmusic.wav" ``` - **播放控制**：同样通过计时器来控制音乐的循环播放。 ```vb Private Sub Tconwav_Timer() MMConWav.Command = "close" MMConWav.Command = "open" MMConWav.Command = "play" End Sub ``` #### 四、用户交互响应 为了增加屏幕保护程序的互动性，可以设置相应的事件处理器来响应用户的键盘输入、鼠标点击和移动等操作。 - **键盘事件**：可以通过`Form_KeyDown`事件来监听用户的键盘输入。 ```vb Private Sub Form_KeyDown() ' 处理键盘输入事件 End Sub ``` - **鼠标事件**：`Form_Click`和`Form_MouseMove`分别用于响应用户的鼠标点击和移动。 ```vb Private Sub Form_Click() ' 处理鼠标点击事件 End Sub Private Sub Form_MouseMove() Static X1, Y1 As Single Dim X2, Y2 As Single X2 = X Y2 = Y If (X1 <> X2) Or (Y1 <> Y2) Then ' 处理鼠标移动事件 End If End Sub ``` #### 五、创建屏幕保护程序文件 最后一步是将整个项目打包成`.scr`格式的文件，以便作为屏幕保护程序使用。 - **创建`.scr`文件**：编译项目后生成的`.exe`文件需要被转换为`.scr`格式。具体步骤是在Windows系统中将生成的`MyFamily.exe`重命名为`MyFamily.scr`，然后将其放置到`C:\Windows`目录下。 - **启用屏幕保护程序**：在系统的屏幕保护程序设置中选择刚刚创建的`MyFamily.scr`文件即可。 通过以上五个步骤，我们不仅可以学习到如何使用VB语言开发简单的屏幕保护程序，还可以了解多媒体控件的基本使用方法以及如何响应用户的交互操作。这对于初学者来说是非常宝贵的学习经验。