请问怎么样让窗口最小化到托盘图标上，像QQ一样！～

liubo.focus

如题！～
" j, P, V- J5 ~1 @% g- u$ }8 h请高手赐教！～

hh749

1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False

  ~3 w! W* Y5 z7 z5 d2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas
1 k% l% d1 {$ J4 ^: s% ~
3、在Module1中写下如下代码：

Option Explicit

Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
6 i8 ?- g; I+ X$ e" V& x" O2 APublic Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
' r" c$ W6 C. Q% _$ wPublic Const WM_MOUSEMOVE = &H200
9 b0 Q# C# J  g/ e, GPublic Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
- ]* c3 O$ t. {. G
- ]' S7 _" ~2 lPublic Const SW_RESTORE = 9
Public Const SW_HIDE = 0

8 a9 b, o! T7 z' {, g, t" EPublic nfIconData As NOTIFYICONDATA
# ^. k4 K& S5 w, V

Public Type NOTIFYICONDATA
) ]) x7 f3 Y' z" e+ DcbSize As Long
0 a5 l# \# u8 }4 rhWnd As Long
uID As Long
uFlags As Long
8 i% l2 o7 [+ b) `' \uCallbackMessage As Long
% u, z3 s; s, Y9 Q+ ^. ghIcon As Long
) [) Y! I. C! k8 E% ZszTip As String * MAX_TOOLTIP
End Type
- L2 c( ~. c+ ]8 d* T" m! E! c/ _
Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

* N$ A" v" c- a5 Q+ M9 f6 `' f# b'4、在Form1的Load事件中写下如下代码：
4 M% E5 v8 Q2 x# c( l8 \8 p
Private Sub Form_Load()

'以下把程序放入System Tray====================================System Tray Begin
With nfIconData
.hWnd = Me.hWnd
.uID = Me.Icon
4 I6 o6 j; o) T.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
8 ~( g) n5 v9 e$ g- L; {.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon.Handle
'定义鼠标移动到托盘上时显示的Tip
: |3 s7 w# G4 P/ `! W3 u( q2 l- U5 l.szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar
.cbSize = Len(nfIconData)
' [& A0 N2 d, @& MEnd With
+ g9 r; b; q; |' t* e" W7 y, B8 fCall Shell_NotifyIcon(NIM_ADD, nfIconData)
' k8 [! m2 X- E  l3 p/ @! ^'=============================================================System Tray End
Me.Hide
End Sub

+ F& i/ n/ n( A$ f2 H& {! w- U6 u'5、在Form1的QueryUnload事件中写入如下代码：

$ Q- D' C6 U( }% N8 w8 s) y0 G- TPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub
0 h8 u7 T( ~& V! |
0 Z* f# H; F0 R) L'6、在Form1的MouseMove事件中写下如下代码：
. \' G$ T. [+ X  P" T4 Z
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lMsg As Single
lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONUP
'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
'单击左键，显示窗体
ShowWindow Me.hWnd, SW_RESTORE
- Z- M+ [& n$ ?/ L% }'下面两句的目的是把窗口显示在窗口最顶层
'Me.Show
# p5 k  Z% B+ A'Me.SetFocus
( A( B, }1 y& X' v( Q'' Case WM_RBUTTONUP
'' PopupMenu MenuTray '如果是在系统Tray图标上点右键，则弹出菜单MenuTray
) x, X2 B  G) u6 p# e'' Case WM_MOUSEMOVE
'' Case WM_LBUTTONDOWN
! @3 @5 g5 e" ]& z  k% P& ^: v'' Case WM_LBUTTONDBLCLK
'' Case WM_RBUTTONDOWN
5 ^. S1 g$ ?5 b4 L3 J'' Case WM_RBUTTONDBLCLK
$ f; U# x! C2 a: B% ^'' Case Else
& w/ H7 j2 m( z: Z# XEnd Select
End Sub
& T! s; i2 E0 C' B
7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标，Form1就自动弹出来了。

liubo.focus

谢谢赐教！～
先试试！～

jujue

学习了 版主

chen_DELCAM

学习中，谢谢

HUHAO210

又学一招了，99999

dazhi518

回来,,继续学习....

依旧

学习了，谢谢