Question

vb托盘提示时间，帮解决一下?

托盘提示在VB里面时间能不能设置，时间在10秒以内自动消失，也就是说在无鼠标键盘操作的时候，也能快速提示后消失，帮解决追加10分！
我用的代码：
Public Sub TrayBalloon(ByVal MyForm As Form, ByVal sBaloonText As String, sBallonTitle As String, Optional ByVal bFlag As bFlag)

With ni
.cbSize = Len(ni)
.hwnd = MyForm.hwnd
.uID = vbNull
.uFlags = NIF_INFO
.dwInfoFlags = bFlag
.szInfoTitle = sBallonTitle & vbNullChar '注释掉标题及关闭按钮
.szInfo = sBaloonText & vbNullChar
End With

Shell_NotifyIcon NIM_MODIFY, ni

End Sub

Answer 1

在显示提示的语句后，设置一个10秒的定时器。

定时器事件处理为：
1 修改提示内容为空，这样可以使提示消失。
2 关闭定时器。