| 发表于:2007-04-17 20:17:101楼 得分:0 |
初始画面上只有command(0) option explicit dim i as integer private sub command2_click() for i =0 to n load command1(i) '增加控件 j=i mod 5 k=fix (i/5) command1(i).visible = true command1(i).left = (j - 1) * 1000 command1(i).top = k*500 next end sub 没调试看行吗? | | |
|