主题：[求助]状态栏的代码写在什么位置？

为了弥补菜单不能够常高亮，准备在状态栏写入“当前窗口”的信息，请问：状态栏写在全局表事件的什么位置？

这个得看你要显示什么信息。如果你要显示窗口的名称，可以在窗口的AfterLoad事件编写。

只显示当前窗口的名字（主窗口），那么写在全局表的什么位置？

写在每个窗口的AfterLoad事件。

在研发人员信息窗口的afterload时间写了如下代码：

Dim Str1 As String = "今天是" & Date.today() &"    " & "当前窗口: " & Forms("研发人员信息窗口").Name
If StatusBar.Message1 IsNot Nothing Then
   StatusBar.Message1 = Str1
End If

在“返回主页”窗口的afterload事件写了如下代码：

Dim Str1 As String = "今天是" & Date.today() &"    " & "欢迎您研发管理系统"
If StatusBar.Message1 IsNot Nothing Then
  StatusBar.Message1 = Str1
End If

 

但是在两个窗口切换时，始终显示的是前一个窗口的状态栏信息，为何？

代码有误吧？

删除原来的设置，参考这个：
http://www.foxtable.com/help/topics/1958.htm
 
 
在项目的systemIdle事件中：
 
if Forms.ActiveForm IsNot nothing then
end if

能否给个相对完整的代码.我用select case进行编写，好像不行，然后用你if语句，好像也不行啊。

if Forms.ActiveForm IsNot nothing then

     StatusBar.Message1  = “当前窗口：” & Forms.ActiveForm

Else

     StatusBar.Message1  = "就绪"
end if