如何编写托盘程序？？？

2003-05-11 08:33:17 85 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wenti2003 墨衍会员 · AI 创作全网分发关注 + 加入社区

全志T133-s3（Tina Linux）下RTL8723DS WiFi驱动移植与调试实战本文详细介绍了在全志T133-s3平台（Tina Linux）上移植RTL8723DS WiFi驱动的完整流程，包括硬件连接、驱动源码获取、内核配置、系统适配、设备树配置以及常见问题排查。通过实战案例，帮助开发者快速解决SDIO接口通信、固件加载、电源管理等关键问题，实现稳定的WiFi功能。阅读详情

...全文

用友U8接口开发全攻略：从EAI到OpenAPI的5种方式详解（附避坑指南）本文深度解析了用友U8系统接口开发的五种核心方式：EAI、API、OpenAPI、SQL直连与内部CO组件。文章详细对比了各方式的适用场景、优缺点及实战操作，并提供了清晰的选型决策框架与避坑指南，帮助开发者根据具体业务需求选择最高效、最稳定的集成路径。阅读详情

wenti2003

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

chinawzg 2003-05-11

打赏
举报

用shell_notifyicon 函数就可以实现的
http://www2.baidu.com/chains/chains.php?cn=cwwnet1

欢迎进入

http://www2.baidu.com/chains/chains.php?cn=cwwnet1

踏平扶桑 2003-05-11

打赏
举报

光盘中vb\COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY有个systray.ocx，直接用就行了，很方便，不过功能不是很多

griefforyou 2003-05-11

打赏
举报

http://www.hongen.com/pc/program/apitutor/api0012/api01.htm

LoveBH 2003-05-11

打赏
举报

使用API函数Shell_NotifyIcon在窗体加载时创建托盘图标，在程序退出后删除托盘图标。使用API函数SetWindowLong和CallWindowProc接收托盘图标的消息并进行处理

代码如下
Option Explicit

Public LastState As Integer

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const SC_RESTORE = &HF120&
Private Const SC_SIZE = &HF000&

Private Sub Form_Load()
If WindowState = vbMinimized Then
LastState = vbNormal
Else
LastState = WindowState
End If
'调用添加托盘图标子程序
AddToTray Me, mnuTray
'调用在托盘图标上显示提示的子程序
SetTrayTip "托盘程序"
End Sub

' 使得快捷菜单的菜单项能随窗体的状态自动调整有效性
Private Sub Form_Resize()
Select Case WindowState
Case vbMinimized
mnuTrayMaximize.Enabled = True
mnuTrayMinimize.Enabled = False
mnuTrayMove.Enabled = False
mnuTrayRestore.Enabled = True
mnuTraySize.Enabled = False
Case vbMaximized
mnuTrayMaximize.Enabled = False
mnuTrayMinimize.Enabled = True
mnuTrayMove.Enabled = False
mnuTrayRestore.Enabled = True
mnuTraySize.Enabled = False
Case vbNormal
mnuTrayMaximize.Enabled = True
mnuTrayMinimize.Enabled = True
mnuTrayMove.Enabled = True
mnuTrayRestore.Enabled = False
mnuTraySize.Enabled = True
End Select

If WindowState <> vbMinimized Then
LastState = WindowState
End If
End Sub
'在窗体退出后，删除托盘中的图标
Private Sub Form_Unload(Cancel As Integer)
RemoveFromTray
End Sub

Private Sub mnuFileExit_Click()
Unload Me
End Sub
'单击快捷菜单中的Close菜单项
Private Sub mnuTrayClose_Click()
Unload Me
End Sub

'单击快捷菜单中的Maximize菜单项
Private Sub mnuTrayMaximize_Click()
WindowState = vbMaximized
End Sub

'单击快捷菜单中的Minimize菜单项
Private Sub mnuTrayMinimize_Click()
WindowState = vbMinimized
End Sub

'单击快捷菜单中的Move菜单项
Private Sub mnuTrayMove_Click()
SendMessage hwnd, WM_SYSCOMMAND, SC_MOVE, 0&
End Sub

'单击快捷菜单中的Restore菜单项
Private Sub mnuTrayRestore_Click()
SendMessage hwnd, WM_SYSCOMMAND, SC_RESTORE, 0&
End Sub

'单击快捷菜单中的Size菜单项
Private Sub mnuTraySize_Click()
SendMessage hwnd, WM_SYSCOMMAND, SC_SIZE, 0&
End Sub

欢迎光临电脑爱好者论坛 bbs.cfanclub.net

如何编写托盘程序？？？

相关推荐