function.bas

利用VB＋MAPX 制作浮点图标

Attribute VB_Name = "function"
Option Explicit
'#########右边显示小图标
Public Type NOTIFYICONDATA
    cbSize As Long
    hWnd As Long                'picture的句柄
    uId As Long
    uFlags As Long
    ucallbackMessage As Long
    hIcon As Long               '在输入法那里显示的图标
    szTip As String * 64        '鼠标停顿的帮助文本
End Type

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Public t As NOTIFYICONDATA
'###############