VFP表单设计摇奖程序

比如是对学生表抽奖：

在数据环境添加"学生.dbf"

计时器timer1 的interval属性设为100（当然可以换成1000等也可以，随便设）

form1的init事件代码：

thisform.timer1.enabled=.f.

thisform.text1.value=“幸运者姓名”

按钮“开始滚动”的click事件

thisform.timer1.enabled=.t.

thisform.text1.value=姓名

按钮“停止”的click事件

thisform.timer1.enabled=.f.

timer1的timer事件代码

sele 学生

skip

if eof()

go top

endif

thisform.text1.value=姓名

不用Timer 控件 用INKEY() 检测到空格键就跳出循环输出当时指针所在的记录

DO WHILE .T.

IF INKEY()=32 &&按下空格键退出

EXIT

ENDIF

IF EOF()

GO TOP

ELSE

SKIP

ENDIF

ENDWHILE

---