vb屏幕保护程序设计

《vb屏幕保护程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、屏幕保护程序设计屏幕保护程序简单功能实现2.5.1文字单向移动功能实现本屏幕保护程序的主体功能是文字在屏幕左右移动，首先需要在屏幕上显示文字。对于VisualBasic程序而言，在屏幕上显示文字，实际上是显示在某个窗口上。显示文字可以采用两种方法：第一种方法是直接在窗口某个位置输出文字，这种方法需要调用某个函数或窗口对象的方法并指定坐标，如果改变其位置，则需要在新位置重新输出文字，并且将原来位置的文字擦除，这种文字输出在设计时看不到效果，只有运行程序时才能看到效果；第二种方法是采用某个对象显示文字，文字的移动仅仅需要改变该对象的位置即可，并且在设计时就能够看到效果。这

2、里采用第二种方法显示文字，即采用前面介绍的标签对象显示文字。创建一个新的VisualBasic工程，系统自动创建一个窗口对象Form1，并显示Form1的对象设计窗口。向窗口Form1上拖放一个标签对象，系统自动命名为Label1（最后一个字符为数字1，倒数第二个字符为小写字母l。VisualBasic集成开发环境自动以数字后缀对新创建的控件对象命名，对下一个标签命名为Label2），选中该对象，定位到属性窗口，修改Label1对象的属性：lCaption：欢迎使用VisualBasiclFont：宋体，二号字给Cpation赋值的内容实际是一个字符串，在属性窗口内赋

3、值时不能在其前后加上双引号。如果在代码窗口内赋值则需要加上双引号。调整Label1的长度和高度，使得文字正好显示在一行。图2.4标签Label1的设计效果标签对象Label1在窗口Form1上的位置由其Left和Top属性确定，如果需要在水平方向移动，实际就是改变其Left属性。先采用人工移动的方式，即运行时每用鼠标点击一次文字，文字向右移动一定的距离。运行时的鼠标点击变成了Windows系统的消息，并转换成VisualBasic中的事件，在哪个对象上点击，哪个对象就会接收到这个点击事件，VisualBasic自动调用特定的某个子程序。VisualBasic用Clic

4、k表示鼠标点击事件（鼠标的一次点击，也称为单击事件），如果在Label1对象上单击，则Label1对象接收到这个单击事件，并自动调用子程序Label1_Click。 为了编写子程序Label1_Click，需要进入代码窗口，方法有三个：l选择工程资源管理器窗口上方最左侧图标（ViewCode）l选择“View”菜单下“Code”子菜单l双击Form1的对象设计窗口在代码窗口上方的两个组合框中，分别选择对象Label1和事件Click，则自动产生该子程序的框架。由于Click事件是标签对象的默认事件，只要选择了Label1，就会自动产生该子程序框架。另外，如果在对象设计

5、窗口中直接双击Label1对象，进入代码窗口后自动产生该子程序框架。定位到子程序框架内部，输入代码如下：PrivateSubLabel1_Click()Label1.Left=Label1.Left+100EndSub这句代码的含义是每次点击Label1对象，其Left属性在原有基础上增加100，实际效果就是向右移动100，单位就是前面介绍的Twip（1/1440英寸）。选择“Run”菜单下的“Start”子菜单或直接点击工具栏上的小图标，运行该程序。图2.5即为运行开始以及单击文字几次以后的文字位置。图2.5标签Label1的运行效果如果能够在某个特定的时间内自动执

6、行上面这样的子程序，就可以实现文字的自动移动。VisualBasic提供的定时器对象可以实现这样的功能。切换到对象设计窗口，有两种方法：l选择工程资源管理器窗口上方中间图标（ViewObject）l选择“View”菜单下“Object”子菜单向窗口Form1上拖放一个定时器控件，自动命名为Timer1，修改其属性：lInterval：100lEnabled：True双击Timer1对象，进入代码窗口并自动产生子程序框架Timer1_Timer，将Label1_Click子程序中的代码拷贝到子程序Timer1_Timer中。PrivateSubTimer1_Timer(

7、)Label1.Left=Label1.Left+100EndSub重新运行该程序，则文字会自动向右移动，如果需要改变文字移动的速度，可以改变Timer1对象的Interval，也可以修改上述代码中的移动量100。对于上面的两个子程序，都是由系统在接收到相应事件后自动调用的，程序员自己编写的代码中并没有调用它们的地方。这样的事件处理子程序除了由系统自动调用外，也可以由程序员指定调用。例如，上述两个子程序的内容实际是一致的，没有必要重复写两次，完全可以由一个子程序调用另外一个子程序，将上述程序修改如下：PrivateSubLabel1_Click()T