VB.NET实现窗体图标最小化到状态栏

2016-02-19 21:45 65 1 收藏

清醒时做事,糊涂时读书,大怒时睡觉,无聊时关注图老师为大家准备的精彩内容。下面为大家推荐VB.NET实现窗体图标最小化到状态栏,无聊中的都看过来。

【 tulaoshi.com - 编程语言 】

  本文所使用的编程环境是Microsoft Visual Studio 2005,首先打开 Visual Studio。在文件 (File) 菜单上,单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中,单击 Windows 应用程序 (Windows Application)。单击确定 (OK)。

  想要将窗体图标最小化时自动隐藏到任务栏,我们可以使用一个控件,这个控件的名字叫做NotifyIcon控件,打开左侧的工具箱找到NotifyIcon控件直接将它拖到窗体上。把NotifyIcon的Icon属性设一下,当然ICON属性你可以设置一个好看的图标。

  将下来单击Form1窗体,进入属性设置把Form的WindowState设成Minimized;ShowInTaskbar属性设成False。图2

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  接下来我们就要输入代码了

  在Form的Resize代码事件中,

  以下是引用片段:
  Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
  If Me.WindowState = FormWindowState.Minimized Then
  Me.Hide()
  End If
  End Sub

  代码的意思是让窗体最小化的时候就自动隐藏到状态栏。

  这样运行的时候窗体就会自动隐藏,出现在状态栏了。

  想双击图标的时候显示窗体的话可以设置NotifyIcon控件的DoubleClick代码

  代码如下:

  以下是引用片段:
  Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
  Me.ShowInTaskbar = True
  Me.Show()
  Me.WindowState = FormWindowState.Normal
  End Sub

  如果我们想创建右键菜单的话,我们可以在窗体上添加一个ContextMenustrip控件,用NotifyIcon的ContextMenu属性进行关联。在工具箱中选择菜单和工具栏,直接将ContextMenu控件拖到窗体上进入属性设置,输入相应菜单关键字(自己想输入的文字如下图的软件版本等)。

  

  图3

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  然后单击窗体的NotifyIcon1控件,设置属性,在contextmenustrip处选择刚才编辑过的右键菜单ContextMenustrip1进行关联请看图4

  然后按F5运行程序,点击窗体最小化按钮,窗体的图标自动隐藏到状态栏了。点击右键你可以看到精美的右键菜单。

来源:http://www.tulaoshi.com/n/20160219/1627070.html

延伸阅读
标签: vb
这个功能在VB6中,需要借助于API函数才能实现。而在VB.NET中,凭自己的功能就能实现。首先设置窗体的FormBorderStyle属性为none以去掉窗体的边框,然后在窗体上添加一个按钮。窗体中的代码如下: Public Class Form1 Inherits System.Windows.Forms.Form Private mouse_offset As Point Private Sub form1_MouseDown(ByVal sende...
MSN怎么最小化到右下角?   其实这个主要是微软自家的Windows Live Messenger也就是MSN没有完好的兼容windows7,所以默认Windows Live  Messenger 的图标不会最小化到托盘区,其实只需要一个小小的修改就可以实现这个功能了 具体操作如下: 如果 Windows Live Messenger 正开着, 先将其关掉; 然后鼠标点击你之前...
一:Try………Catch………finally………end try 捕获错误 把一个可能出错的语句放在try后面,如果出错,执行catch语句,catch可以有多个,第一个catch不能捕获的错误,将被下一个catch语句所捕获。在所有的处理结束后,执行finally语句。 在一个try………end try 过程中可以使用catch与finally两个中的一个,或者两个一起用 ...
关键字: 播放器 示波器 vb.net DirectSound9 作者:董含君 转载请注明来自 http://blog.csdn.net/a11s 作为一个播放器最基本的功能.比如豪杰 winamp mediaplayer real quicktime 等等 都有自己的示波器.某些还提供接口允许plugin 添加更多的图形效果. 很多人做的播放器没有这个基本的功能,大概是因为绝大多数都是直接使用了mediaplayer或者re...
---VB.NET Single & Double---single的精度的问题先简单说明一下:项目里面有个金额的内容,一开始使用的single,后来发现只有金额在(-100000.66,1000000.66)区间中才能真实的储存对应的值,测试了一下代码如下: 小数点后第二位6开始进位,例如100000.66成为100000.7 1 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Obje...

经验教程

64

收藏

89
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部