VB窗體如何縮小到系統(tǒng)任務(wù)欄

1、豆瓣QQ 空間百度收藏網(wǎng)易微博搜狐微博51社區(qū)CSDN網(wǎng)摘Live 收.關(guān)注Win7關(guān)注Offi.如何使用直接從 Visual Basic 系統(tǒng)任務(wù)欄本文演示了如何充分利用 Windows 系統(tǒng)送紙器或使用 Visual Basic 的任務(wù)欄通知區(qū)域。它將您選擇的圖標(biāo)放入任務(wù)欄通知區(qū)域時(shí)鼠標(biāo) rested 通過(guò)它，將還原應(yīng)用程序時(shí)單擊了，并將顯示一個(gè)彈出式菜單將顯示您選擇的工具提示的時(shí)用鼠標(biāo)右鍵單擊。 這是所有可能引起的直接處理回調(diào)的 Visual Basic 的能力，因此利用完全 Shell_NotifyIcon 函數(shù)的 Shell32.dll 由被導(dǎo)出。 可以向任何可視的基本項(xiàng)目具有至少一

2、個(gè)窗體和標(biāo)準(zhǔn)模塊添加下面的示例。 分步示例將下面的代碼添加到項(xiàng)目中的標(biāo)準(zhǔn)模塊的聲明部分： 1. 'user defined type required by Shell_NotifyIcon API call2. Public Type NOTIFYICONDATA3. cbSize As Long4. hwnd As Long5. uId As Long6. uFlags As Long7. uCallBackMessage As Long8. hIcon As Long9. szTip As String * 6410. End Type11.12. 'constants

3、required by Shell_NotifyIcon API call:13. Public Const NIM_ADD = &H014. Public Const NIM_MODIFY = &H115. Public Const NIM_DELETE = &H216. Public Const NIF_MESSAGE = &H117. Public Const NIF_ICON = &H218. Public Const NIF_TIP = &H419. Public Const WM_MOUSEMOVE = &H20020. Pu

4、blic Const WM_LBUTTONDOWN = &H201 'Button down21. Public Const WM_LBUTTONUP = &H202 'Button up22. Public Const WM_LBUTTONDBLCLK = &H203 'Double-click23. Public Const WM_RBUTTONDOWN = &H204 'Button down24. Public Const WM_RBUTTONUP = &H205 'Button up25. Public

5、Const WM_RBUTTONDBLCLK = &H206 'Double-click26.27. Public Declare Function SetForegroundWindow Lib "user32" _28. (ByVal hwnd As Long) As Long29. Public Declare Function Shell_NotifyIcon Lib "shell32" _30. Alias "Shell_NotifyIconA" _31. (ByVal dwMessage As Long,

6、pnid As NOTIFYICONDATA) As Boolean32.33. Public nid As NOTIFYICONDATA34. 下面的代碼添加到您要為您的應(yīng)用程序響應(yīng)系統(tǒng)任務(wù)欄圖標(biāo)或通知圖標(biāo)在項(xiàng)目中的任何窗體： 35. Private Sub Form_Load()36. 'the form must be fully visible before calling Shell_NotifyIcon37. Me.Show38. Me.Refresh39. With nid40. .cbSize = Len(nid)41. .hwnd = Me.hwnd42. .uId

7、= vbNull43. .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE44. .uCallBackMessage = WM_MOUSEMOVE45. .hIcon = Me.Icon46. .szTip = "Your ToolTip" & vbNullChar47. End With48. Shell_NotifyIcon NIM_ADD, nid49. End Sub50.51. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Si

8、ngle, Y As Single)52. 'this procedure receives the callbacks from the System Tray icon.53. Dim Result As Long54. Dim msg As Long55. 'the value of X will vary depending upon the scalemode setting56. If Me.ScaleMode = vbPixels Then57. msg = X58. Else59. msg = X / Screen.TwipsPerPixelX60. End I

9、f61. Select Case msg62. Case WM_LBUTTONUP '514 restore form window63. Me.WindowState = vbNormal64. Result = SetForegroundWindow(Me.hwnd)65. Me.Show66. Case WM_LBUTTONDBLCLK '515 restore form window67. Me.WindowState = vbNormal68. Result = SetForegroundWindow(Me.hwnd)69. Me.Show70. Case WM_RB

10、UTTONUP '517 display popup menu71. Result = SetForegroundWindow(Me.hwnd)72. Me.PopupMenu Me.mPopupSys73. End Select74. End Sub75.76. Private Sub Form_Resize()77. 'this is necessary to assure that the minimized window is hidden78. If Me.WindowState = vbMinimized Then Me.Hide79. End Sub80.81.

11、Private Sub Form_Unload(Cancel As Integer)82. 'this removes the icon from the system tray83. Shell_NotifyIcon NIM_DELETE, nid84. End Sub85.86. Private Sub mPopExit_Click()87. 'called when user clicks the popup menu Exit command88. Unload Me89. End Sub90.91. Private Sub mPopRestore_Click()92.

12、 'called when the user clicks the popup menu Restore command93. Dim Result As Long94. Me.WindowState = vbNormal95. Result = SetForegroundWindow(Me.hwnd)96. Me.Show97. End Sub98. 使上面的代碼添加到同一窗體上的以下屬性設(shè)置： 99. Property Required Setting for Taskbar Notification Area example100. -101. Icon = The icon y

13、ou want to appear in the system tray.102. Minbutton = True103. ShownInTaskbar = False104. 將下面的菜單項(xiàng)添加到同一窗體使用菜單編輯器： 105. Caption Name Enabled Visible Position106. -107. &SysTray mPopupSys True False Main Level108. &Restore mPopRestore True True Inset one109. &Exit mPopExit True True Inset o

14、ne您可以根據(jù)需要添加更多菜單項(xiàng)。 任務(wù)欄通知區(qū)域靈活性您可以修改的通知中會(huì)顯示工具提示通過(guò)更改以下行在 Form_Load 過(guò)程中的圖標(biāo)： .szTip = "Your ToolTip" & vbNullChar替換為想要顯示的文本的"您工具提示"。您可以修改通過(guò)更改以下行在 Form_Load 過(guò)程中的出現(xiàn)在任務(wù)欄通知區(qū)域中的圖標(biāo)： .hIcon = Me.Icon替換 Me.Icon 與您的項(xiàng)目中的任何圖標(biāo)。您可以更改任務(wù)欄通知區(qū)域設(shè)置的任何 NIM_ADD 常數(shù)的使用后的任何時(shí)候重新分配在 nid 變量值，然后使用在以下的變體 Shell

15、_NotifyIcon API 調(diào)用的： Shell_NotifyIcon NIM_MODIFY, nid.但是，如果您希望不同的窗體接收回調(diào)，然后您將需要首先刪除當(dāng)前圖標(biāo) NIM_Modify 函數(shù)將不接受新的 Hwnd，或您使用"Shell_NotifyIcon NIM_Delete，nid"將需要將其他圖標(biāo)添加到新的窗體使用的系統(tǒng)托盤"Shell_NotifyIcon NIM_ADD，nid"后重填物料 nid 類型使用新窗體的 Hwnd。對(duì)于您希望 Windows 系統(tǒng)托盤中顯示的圖標(biāo)，并在每個(gè)窗體中進(jìn)行更改的每個(gè)窗體的激活使用 NIM_DELETE 和 NIM_ADD 序列的事件，也可以聲明 nid 類型的不同副本。 有關(guān)使用系統(tǒng)任務(wù)欄，或使用任務(wù)欄通知區(qū)域中，Visual Basic 4.0 或較早版本的詳細(xì)信息請(qǐng)單擊下面的文章編號(hào)，以查看 Microsoft 知識(shí)庫(kù)中相應(yīng)的文章： 149276  ( ) 如何使用 Windows 95/98/me 任務(wù)欄通知區(qū)域圖標(biāo) 這篇文章中的信息適用于:· Microsoft Visual Basic 6.0 學(xué)習(xí)版 · Microsoft Visua