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
