Vfp 文档 一些经典编程文章 可供初学者学习编程时使用
源代码在线查看: 淡入淡出.txt
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中运行通过。