主题：StatusBar.Message2的问题

在另一个项目中用的好好的语句“StatusBar.Message2= "当前用户:" & User.Name ”，但是我直接拷到我现在的项目的AfterOpenProject项下，却出现启动项目大约5秒后，项目状态栏中的信息消失，恢复到只有“就绪”两字。检查程序中也没有用到StatusBar.Reset()。不知问题出在哪里，求指点。

甜版，输出代码后，用word的查找功能，也没有发现StatusBar.Reset()。

麻烦甜版了，请帮我看看代码哪里有问题？

怎么附件传不上去？

AfterOpenProject

StatusBar.Message2= "当前用户:" & User.Name &"              程序开发:***    QQ:1234567 "   

Forms("导航").open()

If User.Type <> UserTypeEnum.Developer '隐藏表标题(普通登录者不显示表标题,但开发者登录时显示)

    TableCaptionVisible = False

End If

主窗口_AfterLoad

 

'e.Form.TimerInterval = 250

'Dim lbl As WinForm.Label

'Dim d As Date = Date.Today

'lbl = e.Form.Controls("Label2")

'lbl.Text = "今天是" & d & "/周" & d.DayOfWeek & ",欢迎使用监造信息管理系统,祝您工作愉快! "

 

Dim Today As Date = Date.Today

Dim Names As String = "日一二三四五六"

Dim Result As String

Result = "星期" & Names.Chars(Today.DayOfWeek)

e.Form.Controls("Label2").text="今天是:" & Date.Today.Year & "年"& Date.Today.month & "月" & Date.Today.day & "日,星期" & Names.Chars(Today.DayOfWeek) & ",欢迎使用监造信息管理系统,祝您工作愉快! "

 

主窗口_MouseEnter

 

e.Form.TimerEnabled = False

 

主窗口_MouseLeave

 

e.Form.TimerEnabled = True

 

主窗口_TimerTick

 

Dim lab1 As WinForm.Label = e.Form.Controls("Label1")

'e.Form.StopRedraw

If lab1.height + lab1.Top <= 0 Then

    lab1.Top = e.Form.height

Else

    lab1.Top = lab1.Top -2

End If

'e.Form.ResumeRedraw

For i As Integer  = 0 To 4

    Dim pix As WinForm.PictureBox = e.Form.Controls("PictureBox" & i)

    Dim l As Integer = pix.Left - 4

    If  l + pix.Width <= 4 Then

        pix.left = e.Form.Width

    Else

        pix.left = l

    End If

Next

 由于附件发布了，就摘了部分代码传上来了