● 一个实用的VB屏幕程序 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: lingling (别时茫茫江浸月), 信区: Program
标  题: 一个实用的VB屏幕程序
发信站: BBS 荔园晨风站 (Sun Nov  8 02:29:48 1998), 站内信件

一个实用的VB屏幕程序

　　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。
　(江西　范明之)

--

           * 月如眸，如我，如心，如无桨之舟，始也漂泊，终也流浪。

※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 172.24.13.80]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店