以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]StripItemTypeEnum类型对应的ID是什么  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=174317)
--  作者：2900819580
--  发布时间：2022/1/10 22:45:00
--  [求助]StripItemTypeEnum类型对应的ID是什么

  • Dim mnu As Winform.Strip
    Dim     itm As WinForm.StripItem
    mnu     = e.Form.Strips.Add("主菜单",StripTypeEnum.MainMenu)
    mnu    .Items.Add("File","文件(&F)","",StripItemTypeEnum.MenuItem)

 做一个菜单表来统一管理，ItemType列存放着StripTypeEnum.MainMenu，StripTypeEnum.MainItem即没有用，提示“从字符串“StripTypeEnum.MainMenu”到类型“Integer”的转换无效。”
   mnu = e.Form.Strips.Add(cr("ItemName"),cr("ItemType"))

做了个ID的列，但是不知MainMenu、MenuItem、Button、 Label、SplitButton、Separator所对应的ID是什么？
--  作者：有点蓝
--  发布时间：2022/1/10 22:53:00
--  
cr("ItemType")表示的是一个字符串，StripTypeEnum.MainMenu表示的是一个类型，不是一回事。要这样用

select case cr("ItemType")
case "StripTypeEnum.MainItem"
mnu = e.Form.Strips.Add(cr("ItemName"),StripTypeEnum.MainItem)
case "StripTypeEnum.MenuItem"
mnu = e.Form.Strips.Add(cr("ItemName"),StripTypeEnum.MenuItem)
……
--  作者：2900819580
--  发布时间：2022/1/11 8:46:00
--  
老师，我现在的代码是这样，但我觉得很麻烦，想用一行代码去代替它，试过ItemType是数字的就可以，
但是不知MainMenu、MenuItem、Button、 Label、SplitButton、Separator所对应的ID是什么？


新增一列用来保存ID
   mnu = e.Form.Strips.Add(cr("ItemName"),cr("ItemTypeID"))
--  作者：有点蓝
--  发布时间：2022/1/11 9:00:00
--  
执行看结果：msgbox(StripItemTypeEnum.Button)