将程序放入托盘中

原创 2006年05月17日 08:18:00

'以下是一个完整的托盘程序代码****************************************************************************
'************************************************************************************************************
'以下中模块代码
Public Type NOTIFYICONDATA '托盘结构
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 128
    dwState As Long
    dwStateMask As Long
    szInfo As String * 256
    uTimeoutAndVersion As Long
    szInfoTitle As String * 64
    dwInfoFlags As Long
End Type

Const niif_info = &H1

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const NIF_INFO = &H10


Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONUP = &H205
Public Const WM_MOUSEMOVE As Long = &H200

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean '托盘函数
Public Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long

Public TrayI As NOTIFYICONDATA
Public Title_tray As String
'*****************************************************************************************************************

Option Explicit
'以下是窗体代码
Private Sub Form_Load()
On Error Resume Next
    Title_tray = "你好,这是一个托盘程序演示"
    With TrayI
       .cbSize = Len(TrayI)
       .hwnd = Form1.hwnd
       .uID = vbNull
       .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
       .uCallbackMessage = WM_MOUSEMOVE
       .hIcon = Form1.Icon
       .szTip = Title_tray & vbNullChar
    End With
    Call Shell_NotifyIcon(NIM_ADD, TrayI)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     If Button = 1 Then
       Me.WindowState = vbNormal
       Me.Visible = True
       SetForegroundWindow Me.hwnd
       Form1.PopupMenu Form1.bb '弹出菜单
     End If
     If Button = 2 Then
     '右键
       
     End If
End Sub

linux将程序放在后台运行

  • danssion
  • danssion
  • 2014年06月25日 12:10
  • 3813

在PV操作中会有一个经典的例子就是爸爸妈妈儿子女儿吃水果问题,爸爸妈妈向盘子里放入水果,儿子女儿向盘子取水果。然而爸爸只向盘子放苹果,妈妈只向盘子放橘子,女儿只能吃苹果,儿子只能吃橘子。并且盘子里只能

在PV操作中会有一个经典的例子就是爸爸妈妈儿子女儿吃水果问题,爸爸妈妈向盘子里放入水果,儿子女儿向盘子取水果。然而爸爸只向盘子放苹果,妈妈只向盘子放橘子,女儿只能吃苹果,儿子只能吃橘子。并且盘子里只能...
  • a771948524
  • a771948524
  • 2013年05月14日 16:31
  • 3542

实现将程序图标显示在系统托盘

长久以来,一直很好奇类似QQ等软件的图标是如何显示在系统托盘的,这次有个项目正好用到,所以就研究了一下。具体方法如下:1、首先我们需要在工具栏找到NotifyIcon这个控件,找到后将其拖到Form中...
  • dragonpeng2008
  • dragonpeng2008
  • 2011年07月25日 11:03
  • 1862

天天入托记(二)

入托两个月了,断断续续病了一个半月。请了5天假。学了不少儿歌,表达更干脆更有逻辑性了。 1、树地震,幼儿园号召捐款。天天前一天就拿了自己的一盒硬币去捐,结果没捐成,带回家了。阿姨告诉他...
  • yiyunstone
  • yiyunstone
  • 2010年04月27日 20:21
  • 211

将数组中奇数都放前面,偶数都放在后面

 void adjust(int *arr,int left,int right) {  int temp;  while(left  {   if(1==left%2)    le...
  • ranxiaoxu123
  • ranxiaoxu123
  • 2015年09月28日 14:23
  • 844

天天入托记(一)

第一天:          天天带着报名时对托儿所的记忆,兴冲冲的来到幼儿园。问了老师好之后就进玩具室里,自己玩的不亦乐乎。爸爸妈妈走了,他头也不抬。          在园第一天,尿了一次裤子,阿姨...
  • yiyunstone
  • yiyunstone
  • 2010年03月03日 08:50
  • 297

程序放后台运行

#import "AppDelegate.h" @interface AppDelegate () @end @implementation AppDelegate /** * 使用blo...
  • u012701023
  • u012701023
  • 2016年05月10日 20:22
  • 1040

Linux中如何将程序放置后台运行

经常会碰到这样的问题,用 telnet/ssh 登录了远程的 Linux 服务器,运行了一些耗时较长的任务, 结果却由于网络的不稳定导致任务中途失败。如何让命令提交后不受本地关闭终端窗口/网络断开连接...
  • nuoline
  • nuoline
  • 2013年02月25日 18:39
  • 2023

2N皇后问题

问题描述   给定一个n*n的棋盘,棋盘中有一些位置不能放皇后。现在要向棋盘中放入n个黑皇后和n个白皇后,使任意的两个黑皇后都不在同一行、同一列或同一条对角线上,任意的两个白皇后都不在同一行、同一列或...
  • acm_JL
  • acm_JL
  • 2016年03月09日 00:49
  • 2818

关于父亲放水果pv原语的题目

【例2】桌上有一空盘,允许存放一只水果。爸爸可向盘中放苹果,也可向盘中放桔子,儿子专等吃盘中的桔子,女儿专等吃盘中的苹果。规定当盘空时一次只能放一只水果供吃者取用,请用P、V原语实现爸爸、儿子、女儿三...
  • hy2011034628
  • hy2011034628
  • 2013年06月28日 23:55
  • 2007
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将程序放入托盘中
举报原因:
原因补充:

(最多只允许输入30个字)