移动字幕的实现.txt

Vfp 文档 一些经典编程文章 可供初学者学习编程时使用

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中运行通过。

返回