使用OCX进行4GL/Openedge移动整数

Question

如何使用OCX创建一个模块，使FILL-IN (INT)像彩票一样移动。我试着在网上搜索如何做，但没有成功。

Answer 1

您已经过度复杂化了。不需要OCX或多个填充：

define variable r as integer no-undo.
define variable z as integer no-undo format "999999".
define variable k as integer no-undo.
do k = 6 to 1 by -1:
    etime( true ).
    do while etime < 1000: /* spend 1000ms on each random digit */
      r = random( 0, exp( 10, k ) - 1 ).
      display ( z + r ) @ z.
    end.
  z = z + ( random( 0, 9 ) * exp( 10, k - 1 )).
  display z.
  /* pause. */ /* handy for debugging... */
end.