Database 版 (精华区)

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: Database
标  题: Visual FoxPro 3.0中移动字幕的实现
发信站: 哈工大紫丁香 (2000年12月13日09:16:02 星期三), 站内信件

Visual FoxPro 3.0中移动字幕的实现

    在电视上我们时常会看到屏幕下方会有一行提示文字或广告信息由右至左移动
，这样既起了提示作用又不会破坏整体屏幕。在Visual FoxPro 3.0中我们同样可
以完成这种设计。

进入Visual FoxPro 3.0系统环境，在命令行窗口中键入Create Form或在‘文件’
菜单中选择‘新建’、‘表单’，即可建立一个新的表单（FORM1），并设置
FORM1的Backcolor属性为一个RGB(192,192,192)。 
鼠标点击“表单控制栏”中的“标签”，并在FORM1上拉出一个矩形方框（LABEL1
）。设置它的属性Caption为“活动字幕演示”，Autosize为 .T.，Backstyle为0
，Forecolor为RGB（128,128,128），Fontname为“隶书体”,Fontbold为 .T.，
Fontsize为36。 
鼠标点击LABEL1，按CTRL + C（拷贝）键，再按CTRL + V（粘贴）键，在FORM1上
创建另一个标题与LABEL1相同的标签（LABEL2），设置它的Forecolor属性为RGB（
255，255，0）。调整LABEL2的位置，使其刚好比LABEL1高一些，使LABEL1看起来
象LABEL2的阴影。 
鼠标点击“表单控制栏”中的“计时器”，再在FORM1上点击一下，即可在FORM1上
创建一个计时器（TIMER1）。设置它的属性Interval为200。 
双击FORM1，编写FORM1的Activate过程如下： 
Thisform.Label1.Left = Thisform.Width + 0.5

Thisform.Label2.Left = Thisform.Width

双击TIMER1，编写TIMER1的Timer过程如下： 
If Thisform.Label1.Left < 0 - Thisform.Label1.Width

    Thisform.Label1.Left = Thisform.Width + 0.5

    Thisform.Label2.Left = Thisform.Width 

    Thisform.Label1.Left = Thisform.Label1.Left - 5

    Thisform.Label2.Left = Thisform.Label2.Left - 5

Else

    Thisform.Label1.Left = Thisform.Label1.Left - 5

    Thisform.Label2.Left = Thisform.Label2.Left - 5

EndIf

按鼠标右键点击FORM1，在弹出菜单中选择“运行”即可见到字幕由屏幕左方出现
，移至屏幕最右方消失。如再加入一个计时器（TIMER2）控制LABEL1、LABEL2的
Visible属性及TIMER1的Enabled属性，还可使LABEL1和LABEL2定时出现。 
   以上程序在Visual FoxPro 3.0及WINDOWS 95中运行通过。

返回

--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]