vfp中菜单中的菜单项要设置运行表单的命令,该怎么设置

vfp中菜单中的菜单项要设置运行表单的命令,该怎么设置,第1张

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.


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/11292579.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-15
下一篇 2023-05-15

发表评论

登录后才能评论

评论列表(0条)

保存