在研发人员信息窗口的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
但是在两个窗口切换时,始终显示的是前一个窗口的状态栏信息,为何?
代码有误吧?