Question

命令按钮组常用属性buttoncount是什么用途

Answer 1

把下面的代码写到表单的init事件中
this.AddObject('CommandGroup1','CommandGroup')
With this.CommandGroup1
.ButtonCount = 15
.left = 0
.top = 0
.Height = 185
.Width = 220
Endwith

m.x = 10
m.y = 10
For i = 1 To 15
lcObject = 'Command' + Transform(i)
With thisform.CommandGroup1.&lcObject
.top = m.y
.left = m.x
.Height = 25
.Width = 60
Endwith
m.x = m.x + 60 + 10

If i % 3 == 0
m.x = 10
m.y = 10 + (25 + 10) * Int(i / 3)
Endif
Next
this.CommandGroup1.visible = .t.