信息发布软件,b2b软件,广告发布软件

标题: VB.NET不再打扰您了可以最小化托盘不用管了吧 [打印本页]
作者: 信息发布软件    时间: 2017-5-15 23:41
标题: VB.NET不再打扰您了可以最小化托盘不用管了吧
本帖最后由 信息发布软件 于 2017-5-15 23:44 编辑

　本文所使用的编程环境是Microsoft Visual Studio 2005，首先打开Visual Studio。在文件(File)菜单上，单击新建项目(New Project)。在新建项目(New Project)对话框的模板(Templates)窗格中，单击Windows应用程序(WindowsApplication)。单击确定(ok)。
　　想要将窗体图标最小化时自动隐藏到任务栏，我们可以使用一个控件，这个控件的名字叫做NotifyIcon控件，打开左侧的工具箱找到NotifyIcon控件直接将它拖到窗体上。把NotifyIcon的Icon属性设一下，当然ICON属性你可以设置一个好看的图标。
VB.NET不再打扰您了可以最小化托盘不用管了吧 b2b软件
图1
　　接下来单击Form1窗体，进入属性设置。把Form的WindowState设成Minimized；ShowInTaskbar属性设成False。
VB.NET不再打扰您了可以最小化托盘不用管了吧 b2b软件
图2
　　
接下来我们就要输入代码了。在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控件拖到窗体上进入属性设置，输入相应菜单关键字(自己想输入的文字如下图的软件版本等)。

VB.NET不再打扰您了可以最小化托盘不用管了吧 b2b软件
图3

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

VB.NET不再打扰您了可以最小化托盘不用管了吧 b2b软件
图4　　然后按F5运行程序，点击窗体最小化按钮，窗体的图标自动隐藏到状态栏了。点击右键你可以看到精美的右键菜单。

    以前我用的是Form1的SizeChanged事件发生时，判断Me.WindowState是否是Minimized，如果是，就Me.Hide()。然后在托盘图标的菜单单击事件里面Me.Show()  这个是有问题的，show了以后，Form1不显示在最前端，需要鼠标点一下任务栏。今天找到一个办法，效果很好：
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
        Me.Opacity = 0% '全透明，这个状态下即使有鼠标点击事件也会无效，点不到上面去，效果和hide差不多
        Me.ShowInTaskbar = False '不显示在任务栏
    End Sub

    Private Sub 显示窗口ToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles 显示窗口ToolStripMenuItem.Click
        Me.Opacity = 100% '不透明
        Me.ShowInTaskbar = True '在任务栏显示
    End Sub

End Class
VB实现自身窗口最大化、最小化显示，用Me.WindowState来实现。关于WindowState的几种状态：WindowState = 0指正常状态，WindowState = 1是指窗口最小化，WindowState = 2是指窗口最大化显示，用此可实现窗口标题栏右下角最小化、最大化按钮点击后的效果，下面是具体的VB实例代码：
view source
print?

01
VERSION 5.00

02
Begin VB.Form Form1

03
   Caption         =   "Form1"

04
   ClientHeight    =   2310

05
   ClientLeft      =   120

06
   ClientTop       =   450

07
   ClientWidth     =   4560

08
   LinkTopic       =   "Form1"

09
   ScaleHeight     =   2310

10
   ScaleWidth      =   4560

11
   StartUpPosition =   3 '窗口缺省

12
   Begin VB.CommandButton Command4

13
      Caption         =   "正常模式"

14
      Height          =   495

15
      Left            =   2280

16
      TabIndex        =   3

17
      Top             =   120

18
      Width           =   1815

19
   End

20
   Begin VB.CommandButton Command3

21
      Caption         =   "关闭程序"

22
      Height          =   495

23
      Left            =   240

24
      TabIndex        =   2

25
      Top             =   1560

26
      Width           =   1815

27
   End

28
   Begin VB.CommandButton Command2

29
      Caption         =   "最小化"

30
      Height          =   495

31
      Left            =   240

32
      TabIndex        =   1

33
      Top             =   840

34
      Width           =   1815

35
   End

36
   Begin VB.CommandButton Command1

37
      Caption         =   "最大化"

38
      Height          =   495

39
      Left            =   240

40
      TabIndex        =   0

41
      Top             =   120

42
      Width           =   1815

43
   End

44
End

45
Attribute VB_Name = "Form1"

46
Attribute VB_GlobalNameSpace = False

47
Attribute VB_Creatable = False

48
Attribute VB_PredeclaredId = True

49
Attribute VB_Exposed = False

50
Option Explicit

51
Private Sub Command1_Click()

52
    Me.WindowState = 2

53
End Sub

54


55
Private Sub Command2_Click()

56
    Me.WindowState = 1

57
End Sub

58


59
Private Sub Command3_Click()

60
    End

61
End Sub

62


63
Private Sub Command4_Click()

64
    Me.WindowState = 0

65
End Sub






作者: yangjiang1    时间: 2017-5-16 17:46
心不懂就问他就告诉也不嫌弃烦不给好评等啥呢必须好评太给力了好多客人都说我家店铺好看。从来没有碰到过
作者: loverun    时间: 2017-5-18 00:13
公司，没这个技术别吹这个牛B，从6月份给我做网站做到11月份，不是这不行就是那个不行。技术不行就别干这行，就这种服务态度，劳资钱当送给你们
作者: tian001    时间: 2017-5-18 17:43
务很好，设计的宝贝很漂亮我很满意，以后有需要还会合作
作者: 紫逸风    时间: 2017-5-22 02:55
真的买值了，谢谢
作者: mm5216299    时间: 2017-5-22 06:28
搞了，雏形出来了，看起来真不错，还有多谢工作人员耐心指导。
作者: 万能群发    时间: 2017-5-24 16:52
及时做出评价,系统默认好评!
作者: ctbvip    时间: 2017-5-25 01:12
有竞争才有进步嘛
作者: anleeycn    时间: 2017-5-26 02:46
服务耐心
作者: z2340868    时间: 2017-5-27 15:23
耐心技术也很牛逼好评
作者: zxj333    时间: 2017-5-28 10:57
的设计，刚刚开始还有些顾虑，其实不必担心，做的很不错，值得推荐。
作者: yiyi2014    时间: 2017-5-29 09:47
沙发！沙发!
作者: anleey    时间: 2017-6-5 23:43
用的非常好
作者: meng00123    时间: 2017-6-6 14:44
！很棒很专业，值得信任。
作者: z2340868    时间: 2017-6-6 15:56
。值得好评
作者: qiaozong01    时间: 2017-6-10 12:59
，电脑这种高级程序都会处理，认真负责，超出我预料。
作者: bysqb    时间: 2017-6-10 16:02
很快东西很齐全喜欢
作者: qiaozong01    时间: 2017-6-11 10:17
感谢店家悉心整理。再次表示感谢。
作者: c19900420    时间: 2017-6-12 18:54
还没看，不过超大容量，内容应该没差吧
作者: yerface    时间: 2017-6-14 03:34
不错不错，您辛苦了。。。
作者: cjagl520    时间: 2017-6-14 04:55
了，很适合店铺装修的
作者: yerface    时间: 2017-6-14 17:04
垃圾网络公司，没这个技术别吹这个牛B，从6月份给我做网站做到11月份，不是这不行就是那个不行。技术不行就别干这行，就这种服务态度，劳资钱当送给你们



欢迎光临 信息发布软件,b2b软件,广告发布软件 (http://postbbs.com/) Powered by Discuz! X3.2