Foxtable(狐表)用户栏目专家坐堂 → 有没有办法将程序最小化到托盘区


  共有12692人关注过本帖树形打印复制链接

主题:有没有办法将程序最小化到托盘区

帅哥哟,离线,有人找我吗?
唐尸三摆手
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:928 积分:7769 威望:0 精华:13 注册:2008/9/1 11:58:00
有没有办法将程序最小化到托盘区  发帖心情 Post By:2010/6/15 13:47:00 [只看该作者]

在网上找到这样一段话:

 

VB程序最小化到系统托盘

-
-
 可以用API来实现,不过还是采用微软封装好的控件来实现比较方便,不过改控件并不在VB安装目录中,需要找到VB的安装盘的COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY目录,将Systray目录拷到硬盘上面并编译为ocx控件,然后在自己的VB程序中添加改控件。

改控件的属性InTray属性用来设置是否显示在托盘中,True为显示在托盘,False为不显示。

TrayIcon属性是在托盘中显示的图标式样。

TrayTip属性是鼠标移到改控件上面显示的提示文字。

如果要使程序最小化时显示到托盘,如下:

Private Sub Form_Resize()
    If Me.WindowState = vbMinimized Then
        cSysTray1.InTray = True
        Me.Visible = False
    End If
End Sub

点击托盘图标后让程序显示出来,如下:

Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)
    Me.WindowState = vbNormal
    Me.Visible = True
    cSysTray1.InTray = False
    Me.SetFocus
End Sub


 

 

不知foxtable能否实现这种功能

 


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57590 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2010/6/15 15:28:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:ha_trayit-v4.6.5.5.rar

 

 

  这个软件可以做到.


 回到顶部
帅哥哟,离线,有人找我吗?
唐尸三摆手
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:928 积分:7769 威望:0 精华:13 注册:2008/9/1 11:58:00
  发帖心情 Post By:2010/6/15 17:27:00 [只看该作者]

程序本身不知能否实现


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/6/15 17:37:00 [只看该作者]

软件本身没有提供

 回到顶部