关于vb窗口的问题,

huangjw 2003-11-28 04:06:34
我想点击窗体的最小化按钮,窗体的图标添加到托盘里,如何实现,点击最小化按钮,触发什么事件。
...全文
32 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
paz 2003-12-06
  • 打赏
  • 举报
回复
可以自己添加button.
触发Form_Resize 事件
踏平扶桑 2003-11-29
  • 打赏
  • 举报
回复
http://expert.csdn.net/Expert/topic/2189/2189149.xml?temp=.6506769
zkzhang 2003-11-29
  • 打赏
  • 举报
回复
If Me.WindowState = vbMaximized Then
With nidProgramData
.cbSize = Len(nidProgramData)
.hwnd = Form1.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.hIcon
.szTip = "Please don't close me" & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nidProgramData
End If
试试看
ball 2003-11-28
  • 打赏
  • 举报
回复
If Me.WindowState = vbMaximized Then
With nidProgramData
.cbSize = Len(nidProgramData)
.hwnd = Form1.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.hIcon
.szTip = "Please don't close me" & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nidProgramData
End If
模块部没有写出来!自己写吧!
shwen 2003-11-28
  • 打赏
  • 举报
回复
点击最小化,触发 Form_Resize 事件,在事件中检查 me.WindowState 属性就可以知道是不是因为最小化导致得 Resize
SoHo_Andy 2003-11-28
  • 打赏
  • 举报
回复
我做的托盘程序,窗体上的按钮都是我自已添加的button,只是控制它的位置而已

估计别人的托盘最小化按钮也是这样做的,没找到最小化的响应事件

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧