hur.cn - 华软网

 热门搜索

如何做一个抽奖程序?

  作者:未知    来源:网络    更新时间:2018/3/3
我想在一个数据窗口中滚动用户资料,然后用点击按纽或按回车键抽取用户,直到达到抽取的人数为止。谢谢!
------华软网友回答------
在外部定义一个实例变量.
数据窗口总滚动
boolean ib_continue = FALSE
stop 按钮: ib_continue = False

开始按钮:
ib_continue = TRUE
long ll_currow,ll_rowcnt
ll_rowcnt = dw_data.Rowcount()
if ll_rowcount = 0 then Return
DO WHILD ll_currow <= ll_rowcnt
   DO WHILE ib_continue
      dw_data.scrolltorow(ll_currow)
      dw_data.selectrow(0,false)
      dw_data.selectrow(ll_currow,true)
   LOOP
  ll_currow ++
  if ll_currow > ll_rowcnt then  ll_currow = 1
LOOP

//优化一下,就这个处理思路.
------华软网友回复------
在外部定义一个实例变量.
数据窗口总滚动
boolean ib_continue = FALSE
stop 按钮: ib_continue = False

开始按钮:
ib_continue = TRUE
long ll_currow,ll_rowcnt
ll_rowcnt = dw_data.Rowcount()
if ll_rowcount = 0 then Return
DO WHILD ll_currow <= ll_rowcnt
   yield() //////可能需要加上这个函数.
   DO WHILE ib_continue
      dw_data.scrolltorow(ll_currow)
      dw_data.selectrow(0,false)
      dw_data.selectrow(ll_currow,true)
   LOOP
  ll_currow ++
  if ll_currow > ll_rowcnt then  ll_currow = 1
LOOP

//优化一下,就这个处理思路.

------华软网友回复------
要不用timer()事件
按键触发和中止timer()事件,每隔0.***秒滚动一行
------华软网友回复------
我用timer()事件已经搞定,谢谢两位
     
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。