一个实用的VB屏幕程序

Author: 范明之 Date: 1998年 第32期 13版

  VB5.0具有面向对象的程序设计思想及可视化的编程方式,可开发出各种多媒体应用程序,颇得软件设计者青睐。笔者最近应用VB5.0编制了一程序,成功实现了“图文并茂”的屏幕效果,即:屏幕出现用户选定的一幅赏心悦目的图像,在图像下方有一行字幕缓缓地从屏幕右边向左边移动,全部文字移至左边消失后,从右边又平滑拖出字幕,字幕移动过程中既不影响图像的整体效果又能对图像进行提示、说明,使应用程序界面充满“活性”。
  现将设计的整个过程介绍如下:
  (1)创建一个新目标文件(Project1),并建立一个窗体Form1。
  (2)在Form1上配置一个计时器控件Timer1、标签控件Label1、图像控件Picture1。
  (3)各控件属性设置:
  Timer1的Enabled设置为“True”。
  用Label1的Font设置屏幕下方循环移动的提示信息字体及大小,ForeColor设置字体颜色,AutoSize设置为True,BackStyle设置为“0-transparent”。
  Picture1的AutoSize设置为False,Height设为5435,Width设为8235,Scalemode设置为“3-pixel”。
  (4)程序代码清单:
  Private Sub Form_Load()
  ′设置图像控件Picture1属性,在屏幕显示图像
  Picture1.Picture=LoadPicture(″C:\Pwin95\Setup.bmp″)
  Picture1.ForeColor=RGB(255,10,110)
  Picture1.FontItalic=True
  Picture1.FontBold=True
  Picture1.Top=155
  Picture1.Left=635
  ′将标签控件Label1的Caption属性设置为屏幕下方循环移动的提示信息
  Label1.Caption=″江西省黎川县职业中专电脑室设计″
  Label1.Left=Width
  Label1.Top=5653
  Timer1.Interval=375
  Form1.Windowstate=2
  End Sub
  
  Private Sub Timer1_Timer()
  If Label1.Left< 0-Label1.Width Then
  Label1.Left=Width
  End If
  Label1.Left=Label1.Left-255
  End Sub
  程序中的图像及移动字幕可依自己喜好灵活设计,以达到最佳效果。若屏幕显示多幅图像,需设置好几个图像控件Picture的屏幕显示位置,分别调用函数LoadPicture(″.bmp文件名″)即可。该程序设计也适用VB3.0、VB4.0。