trayicon.bas

来自「还可以的一个程序；还可以的一个程序还可以的一个程序；还可以的一个程序」· BAS 代码 · 共 59 行

Attribute VB_Name = "TrayIcon"
'****************************************************************************
'人人为我，我为人人
'发布日期：2006/11/04
'描    述：流星键盘锁定
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
 
 '在任务栏显示小图标
 Option Explicit
 Const MAX_TOOLTIP As Integer = 64
 Const NIF_ICON = &H2                          '删除图标
 Const NIF_MESSAGE = &H1
 Const NIF_TIP = &H4
 Const NIM_ADD = &H0                          '添加图标到任务栏提示区
 Const NIM_DELETE = &H2
 Const WM_MOUSEMOVE = &H200
 Const WM_LBUTTONDOWN = &H201
 Const WM_LBUTTONUP = &H202
 Const WM_LBUTTONDBLCLK = &H203
 Const WM_RBUTTONDOWN = &H204
 Const WM_RBUTTONUP = &H205
 Const WM_RBUTTONDBLCLK = &H206
 Const SW_RESTORE = 9
 Const SW_HIDE = 0
 Private Type NOTIFYICONDATA
    cbSize           As Long
    hwnd             As Long
    uId              As Long
    uFlags           As Long
    ucallbackMessage As Long
    hIcon            As Long
    szTip            As String * MAX_TOOLTIP
End Type
    
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Private nfIconData As NOTIFYICONDATA

Sub AddIcon()
 nfIconData.hwnd = frmMain.hwnd
  nfIconData.uId = frmMain.Icon
  nfIconData.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
  nfIconData.ucallbackMessage = WM_MOUSEMOVE
  nfIconData.hIcon = frmMain.Icon.Handle
  nfIconData.szTip = "流星键盘锁定" & vbNullChar
  nfIconData.cbSize = Len(nfIconData)
  Call Shell_NotifyIcon(NIM_ADD, nfIconData)
End Sub

Sub DelIcon()
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub