电脑资料-学海荡舟 - 电脑乐园

当前位置：学海荡舟 -> 电脑乐园 -> 快学 Visual Basic

一初学VB
　1 从多媒体程序开始
　2 制作一个屏保程序
　3 VB窗体
　4 文本框控件
　5 标签控件
　6 命令按钮
　7 图片和图像
　8 复选框和单选框
　9 容器控件
10 定时器控件
11 使用帮助文件

☆
本教程来源于
《电脑大学》

请您留言
谈谈您的看法

　·制作一个屏保程序

　　上例中的多媒体程序还可以进一步开发，譬如，将它改变成一个你所喜爱的屏幕保护。其制作的过程也非常简单。
　　首先要使我们的这个屏保程序的窗体是全屏的。

　　将Form1的WindowState属性设置为2，它的功能是在程序运行时，使窗体为全屏。
(见图一)

　　将ActiveMovie1的AutoSize属性设置为True，它的功能是在程序运行时，使窗体为原大。

(图一)

　　为使在屏幕保护运行中鼠标不可见，需要改动代码。点击查看代码按钮。关闭工具箱并将代码设计窗口适当放大，以便输入程序代码。
　　在通用＿声明区键入以下代码：
　　Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
　　Option Explicit(见图二)

(图二) 　　在Form_Load 中键入代码：
　　Dim ret
　　On Error Resume Next
　　ActiveMovie1.FileName = App.Path & "\3.mpg"
　　ret = SetCursorPos(2000, 2000)

　　If App.PrevInstance = True Then
　　　　 Unload Me
　　　　Exit Sub
　　End If

　　ActiveMovie1.Left = Screen.Width / 2 - ActiveMovie1.Width / 2
　　ActiveMovie1.Top = Screen.Height / 2 - ActiveMovie1.Height / 2
(见图三)

（图三）
　再键入以下代码：
　这代码的功能是防止屏幕保护程序重复执行。
　　为实现在按任意键或点击以及移动鼠标后退出屏幕保护，我们首先将Form1的KeyPreview设为Ture。
　　为使按任意键后程序退出，我们在Form_KeyDown中添加代码。键入end。
　　为使单击鼠标后程序退出，我们在Form_MouseDown中添加代码。键入end。
　　为使移动鼠标后程序退出，我们在Form_MouseMove中添加代码：
　　Static s_xx, s_yy As Single
　　Dim m_ax, m_ay As Single
　　m_ax=X
　　m_ay=Y

　　　If s_xx=0 And s_yy=0 Then
　　　　s_xx=m_ax
　　　　s_yy=m_ay
　　　　Exit Sub
　　　End If

　　　If Abs(m_ax-s_xx)>1 Or Abs(m_ay-s_yy)>5 Then
　　　　　End
　　　End If
　　为使这段动画能够循环播放，在ActiveMovie1_PositionChange中改变一下代码。将下面两行用'注释掉。
　　'MsgBox ("谢谢观赏！")
　　'End ActiveMovie1.FileName = App.Path & "\3.mpg"
　　
　　下面将这段代码进行编译。注意，为使编译出的文件成为屏幕保护程序，要在”工程1"后加上扩展名“.scr”。(见图四)

(图四) 　　观看了两个程序的制作过程，我只提出一个很简单的要求，熟悉VB开发集成环境的六个主要部件－－工程资源管理器、属性框、窗体布局区、工具箱、窗体编辑器（对象窗口）、代码编辑器（代码窗口）。它们是开发一个应用程序最常用到的。
　　我们可以来回顾一下刚才编程序的过程：
　　首先，程序的外观是在窗体编辑器中设计的，而程序中所用到的各种控件，一般都是通过其左面的工具箱来设计的。对于控件和窗体，可以在界面设计时从右方的属性框中修改它们的样式。对于程序的位置，我们可以通过窗体布局区来进行方便预览及设置。
　　另外，如果一个程序中含有多个窗体或模块，则可以通过右上角的工程资源管理器来对它们进行切换。编程序必定编写代码，所以要清楚，VB程序代码都是在代码编辑器中来完成的。可以说，这六个部件相互联系，贯穿于整个VB程序的开发设计。对于初学者，心中一定要对此有明确的概念。
　　此外，还要补充一点：如果某个部件被关闭，可以通过视图菜单来将它打开。(见图五)

(图五)

请您留言
谈谈您的看法