commandgroup 里commandbutton的排列方向
上次有人说可以简便设置commandgroup的commandbutton的排列方向的,我找不到贴子了,麻烦再说一下?系统默认是纵向的,我要横向。
thisform.AddObject("cmdgp", "commandgroup") WITH thisform.cmdgp .buttoncount = 10 .visible = .T. nleft = 2 ntop = 2 nheight = 25 nwidth = 60 njg = 2 FOR i = 1 TO 10 WITH .buttons(i) .top = ntop .height = nheight .width = nwidth .left = nleft nleft = nleft + nwidth + njg .caption = TRANSFORM(i) *******BINDEVENT(thisform.cmdgp.Buttons(i),"click",thisform,"cmdclick") &&可以不用 ENDWITH ENDFOR .autosize = .T. ENDWITH