ccidnet????

出版日期:1998-12-16 总期号:298 本年期号:48

本期导读
市场与产品
初学入门
网络文化
经验技巧
软件天地
硬件与编程
校园电脑
娱乐沙龙
“图文并茂”的应用程序界面

范明之

  visual basic具有面向对象的程序设计思想及可视化的编程方式,可开发出各种多媒体应用程序,颇得软件设计者青睐。笔者最近编制了一程序实现了“图文并茂"的屏幕效果,即:屏幕出现用户选定的一幅赏心悦目的图像,在图像下方有一行字幕缓缓地从屏幕右边向左边移动,全部文字移至左边消失后,从右边又平滑拖出字幕,字幕移动过程中既不影响图像的整体效果又能对图像进行提示、说明,使应用程序界面充满活动。

  程序设计的过程如下:

  (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.