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

来源:互联网 发布:wince系统导航软件 编辑:程序博客网 时间:2024/03/29 21:04
在系统栏显示图标

实例说明

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

图98-1 运行结果

技术要点

l 使用NotifyIcon控件

l 显示/隐藏图标

<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></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函数方便了很多。

原创粉丝点击