状态栏文字改变,代码如下:
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,请高手赐教,最好能给出代码模板
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,请高手赐教,最好能给出代码模板
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货