以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中的菜单  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190378)

--  作者:hbhb
--  发布时间:2024/2/3 11:24:00
--  窗口中的菜单
大师:请问动态增加的窗口中的按钮菜单项目,如何能显示选中状态?通过Checked属性设置无效?
--  作者:有点蓝
--  发布时间:2024/2/3 11:38:00
--  
怎么添加的,具体代码
--  作者:hbhb
--  发布时间:2024/2/4 18:14:00
--  
  Dim Strip As WinForm.Strip = e.Form.Strips("工具栏")
        Strip.Items.Clear
        
        For Each zf As String In dgxmjh
            Strip.Items.Add(zf, zf, "", StripItemTypeEnum.Button)
        Next
        
        For Each sit As WinForm.StripItem In e.Form.Strips("工作底稿工具栏").Items
            sit.Checked = True
            sit.DisplayText = True
        Next

--  作者:有点蓝
--  发布时间:2024/2/4 20:08:00
--  
我测试没有问题,请上传实例说明