主题：如何更新菜单栏中的文本

1、首先设置了一个登录界面，界面有选项：调取数据的“单位名称”“当前年月”，为了在登录后仍然能方便地修改“单位名称”“当前年月”，就在菜单栏中添加了两个组合框

 

2、在项目事件  LoadUserSetting  中设置代码如下：

 

Dim dr As DataRow = DataTables("登录信息").DataRows(0)

If  RibbonTabs.Contains("系统管理") Then     '判断一个[功能区]是否存在

    Dim nd As RibbonMenu.ComboBox = RibbonTabs("系统管理").Groups("更改年月").Items("年度")

    nd.Text = dr("当前年")

    Application.DoEvents()

    Dim yf As RibbonMenu.ComboBox = RibbonTabs("系统管理").Groups("更改年月").Items("月份")

    yf.Text = dr("当前月")

    Application.DoEvents()

End If

If  RibbonTabs.Contains("管理员") Then  '判断一个[功能区]是否存在

    'msgbox("祝贺你,发现【管理员】功能区是存在的!")

    Dim dwdm As RibbonMenu.ComboBox = RibbonTabs("管理员").Groups("更改单位").Items("单位代码")

    dwdm.Text = dr("单位代码")

    Application.DoEvents()

    Dim dwmc As RibbonMenu.ComboBox = RibbonTabs("管理员").Groups("更改单位").Items("单位名称")

    dwmc.Text = dr("单位名称")

    Application.DoEvents()

End If

 

实际运行时，发现并没有及时更新菜单栏中的组合框。

 

敬请老师指导，是不是不应该写在项目事件  LoadUserSetting  中？

 

你在命令窗口那里执行代码，是否报错？是否有效？

 

代码应该写在登陆窗口登陆按钮的click事件。

 

 

代码写在登陆窗口登陆按钮的click事件里，执行时也没问题，但也没效果。

 

会不会是功能区的菜单还没有生成，此时执行就为时过早了一些？

修改了一下，把代码放在AfterOpenProject事件中执行就立即成功了，因为此代码是在项目完全打开后执行的，请问老师对不对？

最后测试没有问题就可以了。

谢谢甜老师、蓝老师！