'怎样把QQ在任务栏右下角的图标给换掉,或者控制隐藏/显示。

zhjin2000 2001-11-30 10:25:10
'怎样把QQ在任务栏右下角的图标给换掉,或者控制隐藏/显示。
'不让别人发现我在聊天,哈哈
...全文
878 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhjin2000 2001-11-30
  • 打赏
  • 举报
回复
看来只能这样了,赠分了。
dbcontrols 2001-11-30
  • 打赏
  • 举报
回复
定义一个热键用于切换
zhjin2000 2001-11-30
  • 打赏
  • 举报
回复
怎么灵活控制呢?谁有更好的方法。
可不可以通过找到QQ的句柄,然后用Shell_NotifyIcon(Shell_NotifyIconA)实现呢!

同志们不要急,下午5:00,准时给分。
dbcontrols 2001-11-30
  • 打赏
  • 举报
回复
既然告诉你了,不给拉倒。
zhjin2000 2001-11-30
  • 打赏
  • 举报
回复
晚一点都给分
masterz 2001-11-30
  • 打赏
  • 举报
回复
http://www.csdn.net/expert/topic/375/375372.shtm
dbcontrols 2001-11-30
  • 打赏
  • 举报
回复
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpclassname As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const sTrayWindow = "Shell_TrayWnd"
Const sTrayNotify = "TrayNotifyWnd"
Const sStartButton = "Button"
Const sAppSwitchBar = "ReBarWindow32"
Const sAppSwitch = "MSTaskSwWClass"
Const sAppIcon = "ToolbarWindow32"
Const sTrayClock = "TrayClockWClass"
Const sDesktopIcon = "ShellDll_DefView"
Const sProgman = "Progman"

Const SW_SHOW = 5
Const SW_HIDE = 0

Public Function HideTray() As Boolean
wnd = FindWindow(sTrayWindow, vbNullString)
wnd = FindWindowEx(wnd, 0, sTrayNotify, vbNullString)
ShowWindow wnd, SW_HIDE
Public Function ShowTray() As Boolean
wnd = FindWindow(sTrayWindow, vbNullString)
wnd = FindWindowEx(wnd, 0, sTrayNotify, vbNullString)
ShowWindow wnd, SW_SHOW
zhjin2000 2001-11-30
  • 打赏
  • 举报
回复
要,给15分
dbcontrols 2001-11-30
  • 打赏
  • 举报
回复
可以控制隐藏/显示整个托盘,要吗?给分吗?

7,765

社区成员

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

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