[VB.NET]在系统栏显示图标

在系统栏显示图标

实例说明

在本实例中，我们将制作一个能够在系统栏显示图标的应用程序。运行程序后，可以选择是显示还是隐藏任务栏的图标。程序运行界面如图98-1所示。

图98-1 运行结果

技术要点

l 使用NotifyIcon控件

l 显示/隐藏图标

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

l 图标提示信息

实现过程

■ 新建项目

打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"ShowIcon"，然后选择保存路径。单击"确认"。

■ 添加控件

向当前窗体上添加一个NotifyIcon控件，两个Button控件和一个ContextMenu控件。并为ContextMenu控件添加两个菜单。

■ 设置属性

选中控件，切换到属性栏，对窗体上的控件设置属性，详细的属性设置见表93-1。

表93-1 窗体及控件的属性值

控件 属性 值

Form1 Text 在系统栏显示图标

（续表）

控件 属性 值

NotifyIcon1 Icon C:/download/towner.ico

ContextMenu ContextMenu1

Text 设定文本

Button1 Text 显示

Button2 Text 隐藏

■ 添加代码

'设定最小化大小

Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click

Me.MinimumSize = New Size(200, 200)

End Sub

'显示工具栏图标

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

NotifyIcon1.Visible = True

End Sub

'隐藏工具栏图标

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

NotifyIcon1.Visible = False

End Sub

■ 运行程序

单击菜单"调试|启动"或单击 图标运行程序。

小结

通过本实例可以看出，我们使用NotifyIcon控件可以很方便地在系统栏设置图标。我们只需要设置两个属性就可以实现这个目的。比起在VB6中我们使用API函数方便了很多。