Database 版 (精华区)

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: Database
标  题: Visual FoxPro 3.0中标题的淡入淡出
发信站: 哈工大紫丁香 (2000年12月13日09:17:24 星期三), 站内信件

　
Visual FoxPro 3.0中标题的淡入淡出

    很多游戏的开始时的解说字幕和爆机后的创作人员表都使用了字符的淡入淡出
方式，在Visual FoxPro 3.0中我们也可以制作有淡入淡出效果的标题。

进入Visual FoxPro 3.0系统环境，在命令行窗口中键入Create Form或在‘文件’
菜单中选择‘新建’、‘表单’，即可建立一个新的表单（FORM1），并设置
FORM1的Backcolor属性为一个RGB(0,128,128)。 
鼠标点击“表单控制栏”中的“标签”，并在FORM1上拉出一个矩形方框（LABEL1
）。设置它的属性Caption为“淡入淡出效果演示”，Autosize为 .T.，
Backstyle为0，Forecolor为RGB（0,128,128），Fontname为“隶书体”,
Fontbold为 .T.，Fontsize为28。 
鼠标点击“表单控制栏”中的“计时器”，再在FORM1上点击一下，即可在FORM1上
创建一个计时器（TIMER1）。设置它的属性Interval为100，Enabled属性为 .F.。
 
鼠标点击“表单控制栏”中的“命令按钮”，并在FORM1上拉出一个矩形方框（
COMMAND1）。设置它的属性Caption为“开始”。 
双击COMMAND1，编写COMMAND1的Click过程如下： 
If Thisform.Timer1.Enabled = .F.

Thisform.Timer1.Enabled = .T.

EndIf

双击FORM1，编写FORM1的Activate过程如下： 
Public I

I = 0

双击TIMER1，编写TIMER1的Timer过程如下： 
I = I + 10

If I >= 255 * 2

    Thisform.Timer1.Enabled = .F.

    I = 0

EndIf

If I >= 255

    Thisform.Label1.Forecolor = RGB(255 * 2 - I,128,128)

Else

    ThisForm.Label1.Forecolor = RGB(I,128,128)

EndIf

按鼠标右键点击FORM1，在弹出菜单中选择“运行”。用鼠标点“开始”按钮，可
以看到标题由背景色渐变为红色，然后由红色渐变为背景色。 
以上程序在Visual FoxPro 3.0及WINDOWS 95中运行通过。
 

--

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

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