主题：状态栏无显示

全局代码

Public _UserName As String
Public _UserGroup As String

 

systemidle 代码

With CurrentTable
    Dim Str1 As String = "用户: " & _username
StatusBar.Message3 = Str1
End With

 

状态栏无显示是怎么回事呢？

你是没应用从模板生成菜单，也没做自定义菜单，而是直接放到系统菜单中吧？

开始以为在菜单里设置，从模板应用了系统菜单，后来发现是在项目属性里，该如何改呢

试试项目LoadUserSetting事件：

 

StatusBar.Message3 = "用户: " & User.Name

还是不行

因为系统菜单会覆盖设置的提示信息，系统菜单用Message3显示选定区域的计算结果：

http://www.foxtable.com/help/topics/0176.htm

 

你还是在ConfigBar中加一个Label，用来显示用户名吧，看看这个贴：

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=14588

 

 

楼主要自定义一个菜单,并应用自定义菜单,然后用CZY版主的方法,做好后,保存文件退出后再进文件,文件会自动应用自定义菜单,这样就能看到效果了.