状态栏文字改变,代码如下:
    Private Sub FileSelected(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem2.Select, OpenFileItem.Select, MenuItem11.Select, Save_MenuItem.Select, MenuItem14.Select
        If sender Is MenuItem2 Then
            Me.Panel1.ToolTipText = "重新建立一个文件"
            Me.Panel1.Text = "重新建立一个文件"
            Timer2.Start()
        Else
            If sender Is OpenFileItem Then
                Me.Panel1.ToolTipText = "打开一个文件"
                Me.Panel1.Text = "打开一个文件"
            Else
                If sender Is MenuItem11 Then
                    Me.Panel1.ToolTipText = "关闭文件"
                    Me.Panel1.Text = "关闭文件"
                Else
                    If sender Is Save_MenuItem Then
                        Me.Panel1.ToolTipText = "保存为txt文件"
                        Me.Panel1.Text = "保存为txt文件"
                    Else
                        If sender Is MenuItem14 Then
                            Me.Panel1.ToolTipText = "保存为rtf文件"
                            Me.Panel1.Text = "保存为rtf文件"
                        Else
                            Me.Panel1.ToolTipText = "就绪"
                            Me.Panel1.Text = "就绪"
                        End If
                    End If
                End If
            End If
        End If
    End SubPanel1的初始值是"就绪",上面的代码运行后虽然可以在鼠标指向相应菜单项时状态栏内容发生改变,但是移出后,无法改回初始值,即"就绪"使用的工具是VB.net,请高手赐教,最好能给出代码模板