>> 我们从网络和杂志上收集了近100000余篇各类电脑技术、网络技术、软件技术等方面的文章教程,我们的收录原则:不是精华拒不收录!

先飞电脑技术网 → 技术文章

卡拉OK字幕着色动态显示 ［ 作者：佚名    转贴自：本站原创    阅读次数：70    更新时间：2005-11-30 13:18:00   录入：刘光勇 ］   热       本文提供一个卡拉OK字幕着色示例程序，其思路是利用FoxBASE＋的求字串函数SUBSTR在显示的字符串中提取相应的字符进行动态着色，以模拟卡拉OK的字幕着色显示效果。程序在FoxBASE＋2.10下通过。 SET TALK OFF SET STATUS OFF SET SCOREBOARD OFF ? SYS(2002) SET COLOR TO ＋7／1 CLEAR STRING='卡拉OK字幕着色动态显示” @12,24 SAY STRING SET COLOR TO 1／＋7 L=LEN(STRING) I=1 DO WHILE I〈=L CH=SUBSTR(STRING,I,1) IF CH<>' ' @12,23＋I SAY CH ?? CHR(7) J=0 DO WHILE J〈5000 J=J＋1 ENDDO ENDIF I=I＋1 ENDDO SET COLOR TO 7/0 CLEAR ?SYS(200,1) SET SCOREBOARD ON SET STATUS ON SET TALK ON

上一篇:怎样在Visual FoxPro 中增加与去除网络联接  下一篇: 用Foxpro制作Windows输入法码表