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

源代码在线查看: 淡入淡出.txt

软件大小: 265 K
上传用户: xiao11tian
关键词: Vfp 编程 文档 初学者
下载地址: 免注册下载 普通下载 VIP

相关代码

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

相关资源