:foxpro实现的几则小功能（文字动画）

来源：百度文库编辑：九乡新闻网时间：2024/04/28 05:01:54

我们可以使用VFP来实现文字动画效果，这里笔者就以让文字逐个从屏幕底部飞入为例，来说明VFP在实现文字动画方面的功能。首先建立一个新的表单（Form1），设置表单的Backcolor属性为RGB（192，192，192），然后在表单上建立四个标签（Label1、Label2、Label3和Label4）和一个定时器（Timer1）。
　　设置四个标签的Caption（标题）属性分别为‘文’、‘字’、‘动’、‘画’，Backstyle属性为0（透明），Fontsize属性为26，Autosize属性为.T.（自动调整大小）；
　　设置定时器的Interval（定时间隔）为100，Enabled属性为.T.（不可用）。我们假设Label1、Label2、Label3和Label4的Autosize属性为.T.，Alignment属性为0（左边）。
　　下面就是实现该功能的部分源代码：
　　Public Top，Num
　　Num = 1
　　Top = Thisform.Label1.Top
　　For I = 1 To 4
　　LabelT = 'Label' + STR(i,1) + '.Top'
　　Thisform.&LabelT = Thisform.Height
　　Endfor
　　Thisform.Timer1.Enabled = .T.
　　LabelT = 'Label' + STR(Num,1) + '.Top'
　　If Thisform.&LabelT <= Top + 20
　　Thisform.&LabelT = Top
　　Num = Num + 1
　　If Num = 5
　　Thisform.Timer1.Enabled = .F.
　　Endif
　　Return
　　Endif
　　Thisform.&LabelT = Thisform.&LabelT – 20

foxpro实现的几则小功能（文字动画） foxpro实现的几则小功能9给程序添加背景音乐） Foxpro?宏替换的应用 Animation动画效果的实现 Linux下NAT功能的实现图片+文字+FLASH动画的制作 MapX地图操基本作功能的实现:MapX开发基础教程（2） MDI窗体的工具栏合并(ToolStrip Merging)的功能实现用DirectShow实现QQ的音视频聊天功能用DirectShow实现QQ的音视频聊天功能2 国家与社会关系框架下共青团功能的实现 Excel中实现金额数据的分列功能 Visual?FoxPro?6.0与大型数据库的无"数据源"连接精选透明的GIF文字问候动画素材（图片图像动画四） [转载]几个去掉图片上文字的技巧（动画演示）用photoshop cs去掉图片中文字的方法（GIF动画）精选透明的GIF文字问候动画素材（图片图像动画四）/ 精选透明的GIF文字问候动画素材（图片图像动画四）在Word中实现文字的镜像翻转打印怎么实现文字环绕图片/多媒体的效果 visual foxpro visual foxpro 摄象头的“另类”功能——文字扫描摄象头的“另类”功能——文字扫描