当前位置:主页   - 电脑 - 程序设计 - VB
一个实用的VB屏幕程序
来源:网络转载   作者:未知   更新时间:2009-03-03
收藏此页】    【字号    】    【打印】    【关闭
在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)程序代码清单:
PrivateSubForm_Load()
′设置图像控件Picture1属性,在屏幕显示图像Picture1盤icture=LoadPicture(″C:\Pwin95\Setup.bmp″)Picture1盕oreColor=RGB(255,10,110)Picture1盕ontItalic=TruePicture1盕ontBold=TruePicture1盩op=155Picture1盠eft=635′将标签控件Label1的Caption属性设置为屏幕下方循环移动的提示信息Label1盋aption=″江西省黎川县职业中专电脑室设计″Label1盠eft=WidthLabel1盩op=5653Timer1盜nterval=375Form1盬indowstate=2EndSubPrivateSubTimer1_Timer()IfLabel1盠eft<0-Label1盬idthThenLabel1盠eft=WidthEndIfLabel1盠eft=Label1盠eft-255EndSub程序中的图像及移动字幕可依自己喜好灵活设计,以达到最佳效果。若屏幕显示多幅图像,需设置好几个图像控件Picture的屏幕显示位置,分别调用函数LoadPicture(″.bmp文件名″)即可。该程序设计也适用VB3.0、VB4.0。->


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明