Visual FoxPro 3.0中移動字幕的實現(xiàn)

    在電視上我們時常會看到屏幕下方會有一行提示文字或廣告信息由右至左移動，這樣既起了提示作用又不會破壞整體屏幕。在Visual FoxPro 3.0中我們同樣可以完成這種設(shè)計。

進(jìn)入Visual FoxPro 3.0系統(tǒng)環(huán)境，在命令行窗口中鍵入Create Form或在‘文件’菜單中選擇‘新建’、‘表單’，即可建立一個新的表單（FORM1），并設(shè)置FORM1的Backcolor屬性為一個RGB(192,192,192)。 
鼠標(biāo)點擊“表單控制欄”中的“標(biāo)簽”，并在FORM1上拉出一個矩形方框（LABEL1）。設(shè)置它的屬性Caption為“活動字幕演示”，Autosize為 .T.，Backstyle為0，F(xiàn)orecolor為RGB（128,128,128），F(xiàn)ontname為“隸書體”,Fontbold為 .T.，F(xiàn)ontsize為36。 
鼠標(biāo)點擊LABEL1，按CTRL + C（拷貝）鍵，再按CTRL + V（粘貼）鍵，在FORM1上創(chuàng)建另一個標(biāo)題與LABEL1相同的標(biāo)簽（LABEL2），設(shè)置它的Forecolor屬性為RGB（255，255，0）。調(diào)整LABEL2的位置，使其剛好比LABEL1高一些，使LABEL1看起來象LABEL2的陰影。 
鼠標(biāo)點擊“表單控制欄”中的“計時器”，再在FORM1上點擊一下，即可在FORM1上創(chuàng)建一個計時器（TIMER1）。設(shè)置它的屬性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

按鼠標(biāo)右鍵點擊FORM1，在彈出菜單中選擇“運行”即可見到字幕由屏幕左方出現(xiàn)，移至屏幕最右方消失。如再加入一個計時器（TIMER2）控制LABEL1、LABEL2的Visible屬性及TIMER1的Enabled屬性，還可使LABEL1和LABEL2定時出現(xiàn)。 
   以上程序在Visual FoxPro 3.0及WINDOWS 95中運行通過。

返回