最小化托盘问题

2008-12-21 01:06:39 254 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

泛微Ecology9接口调用全流程：从配置到实战Java代码解析本文详细解析了泛微Ecology9系统接口的完整调用流程，涵盖安全架构、服务端配置与客户端Java实战代码。重点阐述了基于RSA加密的认证机制、Token管理策略，并提供了企业级集成的核心代码示例与生产环境调优建议，帮助开发者安全、高效地实现系统对接。阅读详情

我用VB做一个东西，但是最小化托盘不知道怎么回事不起作用

我是要点击一个图片就最小化到托盘

代码如下

Private Sub CsysTray1_MouseDown(Button As Integer, Id As Long)

Me.WindowState = 0 '程序回复到Normal状态

Me.Visible = True '从任务栏中清除图标

cSysTray1.InTray = False '令程序界面可见

End Sub



Private Sub Image1_Click()

If Me.WindowState = 1 Then '如程序为最小化则——

cSysTray1.InTray = True '隐藏到任务栏

Me.Visible = False '让程序界面不可见

End If

End Sub

是用cSysTray控件做的，FORM的BorderStyle是0

...全文

AI医疗影像诊断工具2025 完整教程本教程所述工具均为辅助诊断设备，不可替代执业医师判断。部署使用需遵守当地医疗器械管理法规。推荐开源框架组合：代码太多打包上传网盘了自行下载。2025年的AI医疗影像诊断工具将以。阅读详情

蔡志远

领域专家: 产品设计技术领域

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

hbwhwc 2008-12-21

打赏
举报

友情up

qap22 2008-12-21

打赏
举报

友情up

klj123 2008-12-21

打赏
举报

Private Sub Exit_Click()
End
End Sub

lc19890326 2008-12-21

打赏
举报

游民居然有空学VB了？帮顶

SYSSZ 2008-12-21

打赏
举报

“退出”用End 结束程序就行了

蔡志远 2008-12-21

打赏
举报

补充一下问题，最小托盘知道怎么做了，但是现在最小托盘上的“退出”不能完全退出程序，只能清除状态栏中的托盘图标。

代码是这样写的

主窗口：

Private Sub CsysTray1_MouseDblClick(Button As Integer, Id As Long)

If Button = 1 Then



    Me.WindowState = 0 '程序回复到Normal状态

    Me.Visible = True '从任务栏中清除图标

    cSysTray1.InTray = False '令程序界面可见

    End If

    End Sub



Private Sub Button1_Click(Index As Integer)

Select Case Index

       Case 3   '最小化到任务栏

       cSysTray1.InTray = True '隐藏到任务栏

       Me.Visible = False '让程序界面不可见

       Case 4   ' 最小化窗体

        Me.WindowState = vbMinimized

       Case 5  '关闭播放器

       Unload Me

End Select

End Sub

菜单窗口

Private Sub YingCang_Click() '最小化 到状态栏

   Yingcang.Checked = Not (Yingcang.Checked)

If Yingcang.Checked Then

    Mian.cSysTray1.InTray = True '隐藏到任务栏

    Mian.Visible = False '让程序界面不可见

Else

    Mian.WindowState = 0 '程序回复到Normal状态

    Mian.Visible = True '从任务栏中清除图标

    Mian.cSysTray1.InTray = False '令程序界面可见

End If

End Sub





Private Sub Exit_Click()

        Unload Mian

End Sub



Private Sub Form_Load()



End Sub

嗷嗷叫的老马 2008-12-21

打赏
举报

有多个窗体时要注意都卸载掉.

建议专门写一个类似下面的卸载过程在一个标准模块内:

'以下代码保存为ModQuit.bas:

Option Explicit

'*************************************************************************

'**模 块 名：ModQuit

'**说    明：退出程序时自动卸载所有窗口

'**创 建 人：嗷嗷叫的老马

'**日    期：2003年10月26日

'*************************************************************************



Public Sub Quit()

    Dim X As Form

    For Each X In Forms

        Unload X

    Next

End Sub

主窗体退出时调用一下这个过程,即可把已经载入的窗体都卸载.

另外就是,托盘使用代码也比较简单,个人认为没必要使用控件....你可以参考一下这个类模块:

http://www.m5home.com/blog2/blogview.asp?logID=217&cateID=2

goosen 2008-12-21

打赏
举报

Private Sub Image1_Click()       '最小化到盘托

tray.cbSize = Len(tray)

tray.uId = vbNull

tray.hWnd = Me.hWnd

tray.uFlags = NIF_TIP Or NIF_MESSAGE Or NIF_ICON

tray.uCallBackMessage = WM_MOUSEMOVE

tray.hIcon = Me.Icon

tray.szTip = "最小化图标--7℃" & vbNullChar

Shell_NotifyIcon NIM_ADD, tray

Me.Hide

End Sub



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim msg As Long

msg = X / 15

If msg = WM_LBUTTONDBLCLK Then

Me.Show

Shell_NotifyIcon NIM_DELETE, tray

End If





End sub

Private Sub Exit_Click()   '退出程序

        End 

End Sub

最小化托盘问题

相关推荐