Net真是个好东西二

小子在VB6版块泡时间长了，觉得无聊的很，就打开Net来看看。嗨，好东西还真不少，比如NotifyIcon控件，可以让自己的程序在系统托盘区（屏幕右下脚显示输入法、时间等的地方）占有一席之地。这在VB6里实现，一种办法是要API，俺们菜鸟们头大；另一种办法是用vb安装盘上的一个控件，但还是没有Net的NotifyIcon简单。下边的例子当窗体最小化时会缩小到系统托盘区；当单击系统托盘区的图标时，窗体又恢复到原来状态。代码只有三两句，原理也很简单。你也来试一试吧？

1.建立一Windows应用程序项目；
2.在窗体设计器中放入一个NotifyIcon控件，设置Icon属性给他加载一个图标，设置Visible属性值为False，其他属性取默认值；
3.拷贝以下代码到窗体的代码设计窗口，按下F5键运行。
    Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged
        If MyBase.WindowState = FormWindowState.Minimized Then
            MyBase.Visible = False
            NotifyIcon1.Visible = True
        End If
    End Sub

    Private Sub NotifyIcon1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.Click
        MyBase.Visible = True
        MyBase.WindowState = FormWindowState.Normal
        NotifyIcon1.Visible = False
    End Sub

5 个解决方案

#1

不错不错

#2

so cool!

#3

地球人都知道啊...

#4

纯净水吗？

#5

试过了，很好！谢谢

#1