VB托盘控件

Question

我是一个VB的新手 现在想用VB写一个托盘控件
具体是这样的
我们在HTA嵌了一个网页用来查看股票（用来本地化），现在客户要求能最小化到托盘在线等待高手，先谢谢大家 了！

Answer 1

送你一个托盘类模块,不需要增加一个控件:http://www.m5home.com/blog2/blogview.asp?logID=217&cateID=2

Answer 2

' 为托盘中的图标加上浮动提示（也就是鼠标移上去时出现的提示字条）
' *********************************************
Public Sub SetTrayTip(tip As String)
With TheData
.SzTip = tip & vbNullChar
.UFlags = NIF_TIP '指明要对浮动提示进行设置
End With
Shell_NotifyIcon NIM_MODIFY, TheData '根据前面定义NIM_MODIFY，设置为“修改模式”
End Sub
' *********************************************
' 设置托盘的图标（在本例中没有用到，如果要动态改变托盘内显示的图标，它非常有用）
' 例如：1、显示动画图标（方法你一定猜到了，对！使用Timer控件，不断调用此过程，注意把动画放在pic数组中）
' 2、程序处于不同状态时，显示不同的图标，方法是类似的
' 有兴趣的话试一试吧。
' *********************************************
Public Sub SetTrayIcon(pic As Picture)
'判断一下pic中存放的是不是图标
If pic.Type <> vbPicTypeIcon Then Exit Sub'更换图标为pic中存放的图标
With TheData
.HIcon = pic.Handle
.UFlags = NIF_ICON
End With
Shell_NotifyIcon NIM_MODIFY, TheData
End Sub 

Answer 3

非常感谢楼上朋友的解答和支持
老马的那个程序我仔细看了，可是还是不知道怎么实现我上说的那样的功能我找到其中的一个方法，就是显示和隐藏的那段，它应该是使用的自己本身的窗口Private Function ShowHideMe()
    If Me.WindowState = vbNormal Then
        Me.WindowState = vbMinimized
        Me.Hide
    Else
        Me.WindowState = vbNormal
        Me.Show
    End If
End Function可是我是想用来隐藏或显示是一个外部的HTA程序，
比如：
我点击这个组件它就打开那个指定的HTA程序，同时也出现托盘图标，当HTA最小化时隐藏到托盘，右键或双击托盘图标再显示并最大化HTA程序
（这个功能貌似有点难，还请各位帮帮忙！
如果能在外边写一个Config来配置就更好了，呵呵）

Answer 4

那我再给你个:http://www.vbgood.com/viewthread.php?tid=76199这个总行了吧?