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

liubo.focus

如题！～
- G$ p# ^2 K. y5 u请高手赐教！～

hh749

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

9 O3 n' _6 T$ k9 n% C2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas
1 r7 p% [" O% e; M
+ _/ ]2 m( R1 O, Q8 |! D; p/ ~3、在Module1中写下如下代码：
* d" q9 E' v8 L' p( A0 S5 x
Option Explicit

Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
/ b3 g& i# K" \% ~% l8 [& }/ }1 KPublic Const NIF_MESSAGE = &H1
' A: f. a) m+ L" hPublic Const NIF_TIP = &H4
& M7 z9 D& D; d' R! SPublic Const NIM_ADD = &H0
( X9 H. C8 W; y7 o! @4 j- EPublic Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
& n% f7 X/ n/ G2 j6 n2 vPublic Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
3 M4 z2 }1 _, ?* @Public Const WM_LBUTTONDBLCLK = &H203
  O, G. d1 {  T" K% xPublic Const WM_RBUTTONDOWN = &H204
( g4 P* e  x3 o9 Y  vPublic Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
+ P5 N8 L  A8 R  y4 w2 o0 {+ [
Public Const SW_RESTORE = 9
Public Const SW_HIDE = 0
5 V* M# T" U5 |! b
Public nfIconData As NOTIFYICONDATA


* }# E. Q, ^0 }0 ]( L) s7 JPublic Type NOTIFYICONDATA
9 H" A! ^# {% V' d3 ]cbSize As Long
hWnd As Long
. @  P; B7 K: W; m4 y0 s. ~/ {* EuID As Long
uFlags As Long
& |- C2 G4 n0 s: _8 P+ w# ?$ R1 }6 K  tuCallbackMessage As Long
hIcon As Long
9 {. w% g! a5 f/ yszTip As String * MAX_TOOLTIP
End Type

Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
$ b, G" z0 k' I. S9 JPublic Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
! v/ b9 u7 P2 S) ?# Z
) ~0 p% ]8 n+ A'4、在Form1的Load事件中写下如下代码：

% S  T  Q# u5 ^# S! f" N2 oPrivate Sub Form_Load()
) O8 g2 _6 s: C. Y, j; j- s! `
'以下把程序放入System Tray====================================System Tray Begin
: B' P, V1 {) ~2 `2 c( ~With nfIconData
.hWnd = Me.hWnd
$ s% u1 I! n- y.uID = Me.Icon
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
# p  B% B' ^: N. b# N- S.hIcon = Me.Icon.Handle
'定义鼠标移动到托盘上时显示的Tip
.szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar
* V: q. }+ x# a9 z8 _.cbSize = Len(nfIconData)
End With
9 z# d: w( J6 h0 |. hCall Shell_NotifyIcon(NIM_ADD, nfIconData)
$ ^7 Z8 F+ E  W5 s5 e. V* f'=============================================================System Tray End
Me.Hide
9 H3 r' g6 B3 Z( _0 LEnd Sub

7 G% c5 e0 z! L) Z$ k5 b+ N'5、在Form1的QueryUnload事件中写入如下代码：

' H$ A! e4 J6 C9 G) A4 p$ l0 CPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub
, n* k3 I. C* A; i- s0 ]# W3 t
0 y9 L; ]: Z( E1 l! T. ['6、在Form1的MouseMove事件中写下如下代码：

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
# t- k3 t6 X8 VCase WM_LBUTTONUP
'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
6 Z* }! T& l" V" c% F'单击左键，显示窗体
9 D" {  `) j, g3 _9 D. N( V, iShowWindow Me.hWnd, SW_RESTORE
'下面两句的目的是把窗口显示在窗口最顶层
'Me.Show
'Me.SetFocus
'' Case WM_RBUTTONUP
'' PopupMenu MenuTray '如果是在系统Tray图标上点右键，则弹出菜单MenuTray
! O, T; Y6 e, ^; W! t'' Case WM_MOUSEMOVE
* [- ]3 L. _8 _' z1 K'' Case WM_LBUTTONDOWN
'' Case WM_LBUTTONDBLCLK
'' Case WM_RBUTTONDOWN
'' Case WM_RBUTTONDBLCLK
# X: q9 {8 r. J. |9 v'' Case Else
) S  h- t4 M/ L* W5 h& QEnd Select
% x% ^/ O" N0 @- \8 L  Z: NEnd Sub
( E, U, u5 Y) @. H( s2 ~, G2 s/ A2 n
) c& f* P7 a5 w+ H/ P7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标，Form1就自动弹出来了。

liubo.focus

谢谢赐教！～
  s% y1 h' N+ B# u先试试！～

jujue

学习了 版主

chen_DELCAM

学习中，谢谢

HUHAO210

又学一招了，99999

dazhi518

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

依旧

学习了，谢谢