9.在定时器控件beginTimer的timer过程中加入以下代码: &&把字体颜色从背景色变为绿色 if red >0 red=red-1 endif if blue >0 blue=blue-1 endif if green < 255 green=green+1 else thisform.beginTimer.enabled=.f. &&颜色达到要求之后,关闭beginTimer endif
thisform.学籍管理.forecolor=rgb(red,green,blue) if thisform.学籍管理.fontsize<70 &&字体逐渐变大,直到70为止 thisform.学籍管理.fontsize=thisform.学籍管理.fontsize+1 endif thisform.refresh()
10.在定时器控件stopTimer的timer过程中加入以下代码: &&再把字体颜色变为背景色 if red <> 192 red = red+1 endif if blue <> 192 blue = blue+1 endif if green <> 192 green=green-1 endif
&&变为背景色后,释放窗体Form1,用户软件系统中的其它程序可接着执行 if red=192 and green=192 and blue=192 thisform.stoptimer.enabled=.f. thisform.release endif thisform.学籍管理.forecolor=rgb(red,green,blue) if thisform.学籍管理.fontsize>8 thisform.学籍管理.fontsize=thisform.学籍管理.fontsize-1 endif thisform.refresh()