MenuItem 对象
菜单对象,包含了对菜单的基本操作支持。该对象与Menu对象一起完成了对自定义菜单的支持操作。
传统的菜单分为很多级的,主要作用是为了划分不同命令类别等,如果你没有多级菜单,那么只要用Menu对象即可完成操作,如果有多级菜单,那么必须要用此对象来进行扩充。
对象标识 "Stock.MenuItem"
属性
Count 菜单项个数
方法
Create 创建一个子菜单,必需要首先调用该函数来完成创建工作,否则该对象的其他函数不起作用。该函数成功返回1,否则返回0
AddMenu 在指定位置添加一个菜单
AddPopupMenu 在指定位置添加一个子菜单
CheckMenuItem 将指定命令ID菜单项打上小勾
GetMenuState 如果指定命令的菜单被小勾选中,那么返回1,否则返回0
GetSafeHmenu 返回该菜单资源的句柄
我在Application.Start中加入以下代码
dim yy
set yy=CreateObject("Stock.MenuItem")
yy.Create
Call yy.AddMenu(1, 1, "新的世界")
结果什么都没有,版主能抽空指点下吗?
请参考Global模块里的部分例子