设计WinForm的方法
Author：水如烟
效果图：
代码见 应用类代码 和 辅助类代码。下面说说这个的特点：
1、对界面我所学甚浅，也不深究，所以运用方法可能不当。仅只是实现了功能。这也是特点吧。
2、对线程的认识我肤浅得很，没有掌握不能把握，乱用一通。
3、对反射自己倒是常用，但不知所以然，也没有掌握不能把握。
4、以上适用于以后的，即所有的。所以请多指教，不是虚伪般的谦虚。
关于ToolStipItem的命名，有个约束，是 一般名称+其类名。所以代码中有ShortName叫法。这也适用于下一篇菜单类。只关注一般名称即可。
如状态栏需要添加别的ToolStripItem，用代码添加，不要在界面设计时添加，那样位置可能不正确（我偷懒了这部分功能）。
示例代码：
ImportsLzmTW.uSystem.uWindows.uForms.uMainForm
PublicClassForm4
'界面设置后置NotifyIcon
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Me.KeyStatusWatcherStripStatus1.NotifyIcon=NewuNotifyIcon(Me)
EndSub
'纯代码
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
'移去原界面的
Me.Controls.Remove(Me.KeyStatusWatcherStripStatus1)
Me.KeyStatusWatcherStripStatus1.Dispose()
DimmKeyStatusAsNewKeyStatusWatcherStripStatus
mKeyStatus.NotifyIcon=NewuNotifyIcon(Me)
Me.Controls.Add(mKeyStatus)
EndSub
EndClass
PublicClassForm4
'界面设置后置NotifyIcon
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Me.KeyStatusWatcherStripStatus1.NotifyIcon=NewuNotifyIcon(Me)
EndSub
'纯代码
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
'移去原界面的
Me.Controls.Remove(Me.KeyStatusWatcherStripStatus1)
Me.KeyStatusWatcherStripStatus1.Dispose()
DimmKeyStatusAsNewKeyStatusWatcherStripStatus
mKeyStatus.NotifyIcon=NewuNotifyIcon(Me)
Me.Controls.Add(mKeyStatus)
EndSub
EndClass
仅供参考。
体会：为什么它取消了常用的状态栏功能、菜单功能，估计是设计设计设计吧。
其实，很多时候，我们只需要一般的也就是常用的功能就可以了。
本文地址：http://www.45fan.com/dnjc/70954.html