WinForm设计之状态栏
- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- WinForm设计之状态栏 (http://www.webasp.net/article/28/27984.htm)
-- 发布日期： 2006-11-30
Author：水如烟
效果图：
代码见 应用类代码 和 辅助类代码。下面说说这个的特点：
1、对界面我所学甚浅，也不深究，所以运用方法可能不当。仅只是实现了功能。这也是特点吧。
2、对线程的认识我肤浅得很，没有掌握不能把握，乱用一通。
3、对反射自己倒是常用，但不知所以然，也没有掌握不能把握。
4、以上适用于以后的，即所有的。所以请多指教，不是虚伪般的谦虚。
关于ToolStipItem的命名，有个约束，是 一般名称+其类名。所以代码中有ShortName叫法。这也适用于下一篇菜单类。只关注一般名称即可。
如状态栏需要添加别的ToolStripItem，用代码添加，不要在界面设计时添加，那样位置可能不正确（我偷懒了这部分功能）。
示例代码：
Imports LzmTW.uSystem.uWindows.uForms.uMainForm
Public Class Form4
'界面设置后 置NotifyIcon
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.KeyStatusWatcherStripStatus1.NotifyIcon = New uNotifyIcon(Me)
End Sub
'纯代码
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'移去原界面的
Me.Controls.Remove(Me.KeyStatusWatcherStripStatus1)
Me.KeyStatusWatcherStripStatus1.Dispose()
Dim mKeyStatus As New KeyStatusWatcherStripStatus
mKeyStatus.NotifyIcon = New uNotifyIcon(Me)
Me.Controls.Add(mKeyStatus)
End Sub
End Class
Public Class Form4
'界面设置后 置NotifyIcon
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.KeyStatusWatcherStripStatus1.NotifyIcon = New uNotifyIcon(Me)
End Sub
'纯代码
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'移去原界面的
Me.Controls.Remove(Me.KeyStatusWatcherStripStatus1)
Me.KeyStatusWatcherStripStatus1.Dispose()
Dim mKeyStatus As New KeyStatusWatcherStripStatus
mKeyStatus.NotifyIcon = New uNotifyIcon(Me)
Me.Controls.Add(mKeyStatus)
End Sub
End Class
仅供参考。
体会：为什么它取消了常用的状态栏功能、菜单功能，估计是设计设计设计吧。
其实，很多时候，我们只需要一般的也就是常用的功能就可以了。