1、首先点击打开左上角文件中的“新建”选项。
2、在d出的新界面,依次 *** 作:勾选【项目】选项,点击【新建】按钮;
3、在d出的新窗口,选择保存路径,设置项目文件名称,回车确定。
4、在出现的界面中,点击打开“其他”设置选项。
5、然后在d出来的界面中,打开菜单级,选择新建一个菜单级。
6、然后在d出来的界面中,对菜单名称、结果、选项进行编辑,运行表单在选型中填写Do form 表单路径\表单名.scx,保存表单设计,按下enter键确定,这样就完成了。
把下面的代码写到表单的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.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)