vb6.0实现系统托盘 源代码

时间: 2023-08-21 13:00:45 浏览: 46
在VB6.0中,要实现系统托盘的功能,可以使用Shell_NotifyIcon API来操作系统托盘。以下是一个基本的示例代码: 首先,在窗体的General Declarations部分添加如下代码: Private Const NIM_ADD As Long = &H0 Private Const NIM_DELETE As Long = &H2 Private Const NIF_MESSAGE As Long = &H1 Private Const NIF_ICON As Long = &H2 Private Const NIF_TIP As Long = &H4 Private Const WM_MOUSEMOVE As Long = &H200 Private Const WM_LBUTTONUP As Long = &H202 Private Type NOTIFYICONDATA cbSize As Long hwnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean Private Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As Long) As Long 接下来,在窗体的Load事件中添加如下代码: Private Sub Form_Load() Dim nid As NOTIFYICONDATA nid.cbSize = Len(nid) nid.hwnd = Me.hwnd nid.uID = vbNull nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE nid.uCallbackMessage = WM_MOUSEMOVE nid.hIcon = LoadIcon(0, ByVal IDI_APPLICATION) nid.szTip = "系统托盘" Shell_NotifyIcon NIM_ADD, nid End Sub 然后,在窗体的QueryUnload事件中添加如下代码,实现点击关闭按钮时隐藏窗体到系统托盘: Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormControlMenu Then Cancel = 1 Me.Hide End If End Sub 最后,在窗体的MouseDown事件中添加如下代码,实现双击系统托盘图标显示窗体: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Me.Show Me.WindowState = vbNormal End If End Sub 通过以上代码,我们就可以实现在VB6.0中添加系统托盘的功能了。当程序运行时,窗体会自动隐藏到系统托盘图标中,双击图标即可显示窗体。

相关推荐

最新推荐

vb学籍管理系统源代码.rarvb学籍管理系统源代码.rar

vb学籍管理系统源代码.rarvb学籍管理系统源代码.rarvb学籍管理系统源代码.rarvb学籍管理系统源代码.rarvb学籍管理系统源代码.rarvb学籍管理系统源代码.rarvb学籍管理系统源代码.rarvb学籍管理系统源代码.rarvb学籍...

房屋租赁管理系统vb源代码

这是一篇关于房屋租赁管理系统vb开发系统下的源代码,有兴趣的可以看看哦。

边用边学vb6.0教程程序代码

最全的vb程序代码及代码相关解释应用,沈林兴老师讲解的vb程序有很多看不清楚,本人经过反复验证,最全最好的程序代码全篇,并且伴有详细的代码解释,适合初学vb的人进行学习编程应用

scikit_learn-1.2.1-cp38-cp38-macosx_10_9_x86_64.whl

py依赖包

springboot-headline.rar 微头条后端代码

微头条后端代码

数据仓库数据挖掘综述.ppt

数据仓库数据挖掘综述.ppt

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire

springboot新闻信息管理系统开发技术文档更新

# 1. 系统概述 ## 1.1 项目背景 在当今信息爆炸的时代,新闻信息是人们获取信息的重要渠道之一。为了满足用户对新闻阅读的需求,我们决定开发一个新闻信息管理系统,该系统旨在提供便捷的新闻发布、浏览与管理功能,同时也要保证系统的性能和安全防护。 ## 1.2 系统目标与功能需求 系统的目标是构建一个高效、稳定、安全的新闻信息管理平台,主要包括但不限于以下功能需求: - 新闻信息的增加、修改、删除、查询 - 用户的注册、登录与权限控制 - 数据库性能优化与缓存机制实现 - 安全防护措施的设计与漏洞修复 ## 1.3 技术选型与架构设计 在系统设计中,我们选择采用Java

hive 分区字段获取10天账期数据

假设你的 Hive 表名为 `my_table`,分区字段为 `account_date`,需要获取最近 10 天的数据,可以按照以下步骤操作: 1. 首先,获取当前日期并减去 10 天,得到起始日期,比如: ``` start_date=$(date -d "10 days ago" +"%Y-%m-%d") ``` 2. 接下来,使用 Hive 查询语句从分区中筛选出符合条件的数据。查询语句如下: ``` SELECT * FROM my_table WHERE account_date >= '${start_date}' ```

生活垃圾卫生填埋场运营管理手册.pdf

生活垃圾卫生填埋场运营管理手册.pdf