commandgroup 里commandbutton的排列方向 - 编程论坛

#2

吹水佬2023-04-16 22:03

top、left

#3

sdta2023-04-16 22:07

表单INIT事件代码

程序代码：

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

#4

sam_jiang2023-04-16 22:16

回复 2楼吹水佬

可以具体一点吗？

#5

sam_jiang2023-04-16 22:17

回复 3楼 sdta

谢谢，除了代码，没有哪个属性设置一下就可以的吗？

我就是自己写代码，感觉太费劲啊。。。

#6

csyx2023-04-16 22:26

按住 ctrl 键一直点鼠标，直到按钮组里面的按钮被选中，然后拖到想要的位置不行吗？

#7

gs25367856782023-04-17 15:14

初学者自己手动操作，想怎么移动，就怎么移动