寻高手

2007-11-14 01:33:47 202 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于单片机的智能寻光小车设计随着物联网技术的飞速发展和逐渐成熟，以单片机为主的智能小车在巡查、仓储、探险及国防等领域得到广泛应用。本文设计了一种基于单片机的智能寻光小车，该小车以STC89C52RC 芯片为设计核心，结合光敏传感器和超声波传感器等多种传感器实现了具有追光寻光及自动避障和距离显示等功能、能用手机蓝牙控制的智能寻光小车。实验结果表明，本设计运行正常，能稳定可靠地完成预期目标，可以为智能控制领域及无人驾驶领域提供理论支持，在自动驾驶、辅助救援等领域有着广阔前景。阅读详情

我想把我的应用程序最小化后，图标不放在任务栏，而是放在最右下角，像芊芊静听，或QQ那样！谢谢大家！

...全文

二维“能量源”（电场、磁场、功率）入射边界设置方法 comsol光学仿真设计相关学习笔记和经验 1. 二维“能量源”（电场、磁场、功率）入射边界设置方法 2.边界条件设置薄膜材料阅读详情

杰子

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

xray2005 2007-11-14

打赏
举报

VS05 notifyicon控件

kbryant 2007-11-14

打赏
举报

用VB实现窗口图标最小化到通知栏

添加收藏
系统管理
联系方式

首页文学作品网页设计平面设计程序设计考试认证基础办公在线影视在线FLASH 网站运营资源架设 QQ资源

汉南在线 → 程序设计 → VB程序

用VB实现窗口图标最小化到通知栏
作者：匿名
关键字：VB示例

怎样判断发生Resize事件时窗口是最小化状态呢？VB里没有现成的做法，我们可以用非富的API函数。API函数库里有一个函数IsIconic（ByVal hwnd As Long），它就是专门判断窗口是否已最小化的。这样当Form产生Resize事件时，用IsIconic函数判断一下窗口是否为最小化状态，就可知道是否用户按了最小化按钮。

　　最关键的一步就是将图标显示在通知栏里，VB里没有现成的做法，我们还得用API函数。API函数库里有一个函数Shell_NotifyIcon(ByVal dwMessage As Long, lpData As NOTIFYICONDATA)，是专门操作（包括添加、修改、删除）通知栏里图标的。

　　点一下通知栏图标，会出现一些诸如"退出"、"显示窗口"的弹出菜单，怎样实现弹出菜单呢？这个很容易实现，因为点击图标会触发图标所在窗口的MouseDown事件，我们把弹出菜单触发过程写入Form1_MouseDown事件即可。具体例程如下：

　　第一步、为了增强程序的可移植性，我们新建一个模块，取名为：NoticeIcon，在此模块中定义一些常量、自定义类型、所需的API函数说明及操作通知栏图标的三个自定义函数（添加、修改、删除），模块NoticeIcon具体代码如下所示：

Public Const DefaultIconIndex = 1 图标缺省索引
Public Const WM_LBUTTONDOWN = &H201 按鼠标左键
Public Const WM_RBUTTONDOWN = &H204 按鼠标右键

Public Const NIM_ADD = 0 添加图标
Public Const NIM_MODIFY = 1 修改图标
Public Const NIM_DELETE = 2 删除图标

Public Const NIF_MESSAGE = 1 message 有效
Public Const NIF_ICON = 2 图标操作（添加、修改、删除）有效
Public Const NIF_TIP = 4 ToolTip(提示）有效

API函数声明
图标操作
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
判断窗口是否最小化
Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

设置窗口位置和状态（position）的功能
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

定义类型
通知栏图标状态
Public 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

函数定义
添加图标至通知栏
Public Function Icon_Add(iHwnd As Long, sTips As String, hIcon As Long, IconID As Long) As Long
　参数说明：iHwnd：窗口句柄，sTips：当鼠标移到通知栏图标上时显示的提示内容
　hIcon：图标句柄，IconID：图标Id号
　Dim IconVa As NOTIFYICONDATA
　With IconVa
　　.hwnd = iHwnd
　　.szTip = sTips + Chr$(0)
　　.hIcon = hIcon
　　.uID = IconID
　　.uCallbackMessage = WM_LBUTTONDOWN
　　.cbSize = Len(IconVa)
　　.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
　　Icon_Add = Shell_NotifyIcon(NIM_ADD, IconVa)
　End With
End Function
删除通知栏图标(参数说明同Icon_Add)
Function Icon_Del(iHwnd As Long, lIndex As Long) As Long
　Dim IconVa As NOTIFYICONDATA
　Dim L As Long
　With IconVa
　　.hwnd = iHwnd
　　.uID = lIndex
　　.cbSize = Len(IconVa)
　End With
　Icon_Del = Shell_NotifyIcon(NIM_DELETE, IconVa)
End Function
修改通知栏图标(参数说明同Icon_Add)
Public Function Icon_Modify(iHwnd As Long, sTips As String, hIcon As Long, IconID As Long) As Long
　Dim IconVa As NOTIFYICONDATA
　With IconVa
　　.hwnd = iHwnd
　　.szTip = sTips + Chr$(0)
　　.hIcon = hIcon
　　.uID = IconID
　　.uCallbackMessage = WM_LBUTTONDOWN
　　.cbSize = Len(IconVa)
　　.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
　　Icon_Modify = Shell_NotifyIcon(NIM_MODIFY, IconVa)
　End With
End Function

nuey1985 2007-11-14

打赏
举报

步骤:
1.找一个.ico文件.
2.在你的窗口上面拖一个notifyicon控件,并将其icon属性设置为你找的.ico文件路径,visible属性设置为false
3.代码中,最小化事件用Me.Hide(),notifyicon控件的visible属性设置为true.
3.运行你的程序,下面托盘就可以显示了.

nuey1985 2007-11-14

打赏
举报

用拖盘控件

杰子 2007-11-14

打赏
举报

任务栏是没有了，但是图标也没有到最右下角阿？？？？

kbryant 2007-11-14

打赏
举报

Me.Hide()貌似可以的

寻高手

相关推荐