以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]状态栏的代码写在什么位置？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65829)
--  作者：liuxianjie1980
--  发布时间：2015/3/24 10:05:00
--  [求助]状态栏的代码写在什么位置？
为了弥补菜单不能够常高亮，准备在状态栏写入“当前窗口”的信息，请问：状态栏写在全局表事件的什么位置？
--  作者：狐狸爸爸
--  发布时间：2015/3/24 10:07:00
--  
这个得看你要显示什么信息。如果你要显示窗口的名称，可以在窗口的AfterLoad事件编写。
--  作者：liuxianjie1980
--  发布时间：2015/3/24 10:11:00
--  
只显示当前窗口的名字（主窗口），那么写在全局表的什么位置？
[此贴子已经被作者于2015/3/24 10:12:25编辑过]
--  作者：狐狸爸爸
--  发布时间：2015/3/24 10:18:00
--  

写在每个窗口的AfterLoad事件。
--  作者：liuxianjie1980
--  发布时间：2015/3/24 10:56:00
--  

在研发人员信息窗口的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

 

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

代码有误吧？
--  作者：狐狸爸爸
--  发布时间：2015/3/24 11:01:00
--  
删除原来的设置，参考这个：
http://www.foxtable.com/help/topics/1958.htm
 
 
在项目的systemIdle事件中：
 
if Forms.ActiveForm IsNot nothing then
end if
--  作者：liuxianjie1980
--  发布时间：2015/3/24 11:23:00
--  
能否给个相对完整的代码.我用select case进行编写，好像不行，然后用你if语句，好像也不行啊。
--  作者：狐狸爸爸
--  发布时间：2015/3/24 11:29:00
--  

if Forms.ActiveForm IsNot nothing then

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

Else

     StatusBar.Message1  = "就绪"
end if