VB实现在窗口的标题栏上添加一个按钮的功能实现程序最小化到系统托盘.doc

程序运行窗口 1、复制以下程序段到记事本中另存为文件：Project1.vbp Type=Exe Reference=*\G0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation Module=FormHook; FormHook.bas Module=DrawButton; DrawButton.bas Form=frmMain.frm Module=TrayNotify; TrayNotify.bas Module=ToolTip; ToolTip.bas Startup=frmMain HelpFile= ExeName32=Project1.exe Path32=..\..\..\..\..\..\WINDOWS\Desktop Command32= Name=Project1 HelpContextID=0 CompatibleMode=0 MajorVer=1 MinorVer=0 RevisionVer=0 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName=None CompilationType=0 OptimizationType=0 FavorPentiumPro(tm)=0 CodeViewDebugInfo=0 NoAliasing=0 BoundsCheck=0 OverflowCheck=0 FlPointCheck=0 FDIVCheck=0 UnroundedFP=0 StartMode=0 Unattended=0 Retained=0 ThreadPerObject=0 MaxNumberOfThreads=1 [MS Transaction Server] AutoRefresh=1 2、复制以下程序段到记事本中另存为文件：frmMain.frm VERSION 5.00 Begin VB.Form frmMain AutoRedraw = -1 True Caption = TitleBar Tray Button Demo ClientHeight = 2040 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = Form1 ScaleHeight = 2040 ScaleWidth = 4680 StartUpPosition = 3 窗口缺省 Begin VB.Menu mnuPopUp Caption = Visible = 0 False Begin VB.Menu mnuRestore Caption = Restore End End End Attribute VB_Name = frmMain Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_Load() Print Right Click For Menu Me.Show Me.ScaleMode = vbPixels The API works in pixels Hook Me FormHook Hook() End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then TrayMenu Me TrayNotify TrayMneu() End Sub Private Sub Form_Unload(Cancel As Integer) UnHook FormHook UnHook() End Sub 3、复制以下程序段到记事本中另存为文件：ToolTip.bas Attribute VB_Name = ToolTip Const WS_EX_T