QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3871|回复: 12
收起左侧

[已解决] 如何在VB开发中增加"小化到托盘"功能

[复制链接]
发表于 2008-11-28 11:23:24 | 显示全部楼层 |阅读模式 来自: 中国广东深圳

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
求助各位老大,如何在做好的PM二次中添加"小化到托盘"功能,就象QQ一样
发表于 2008-11-28 11:29:01 | 显示全部楼层 来自: 中国广东东莞
VB实现将程序最小化到托盘区
& m0 W% Z. G# v% k' s1 c5 ^) a
2 o# X2 B1 A- A( @9 C
$ H$ c* g7 U( ~' E) r; R; R& K: N
  l' U7 q6 Q% y* y* Z, p" ?) ~1、新建立一个VB6工程,将Form1的ShowInTaskBar属性设置为False
1 u% x  w" Q' c6 r' c: d; @, v: y. K4 F/ g. T2 {' [
2、菜单:工程--添加模块 按“打开”这样就添加了一个新模块,名为Module1,保存为Module1.bas 0 N' s; I# }, m. P+ \, A4 m
$ E+ L- P% S. G( e
3、在Module1中写下如下代码: 4 u3 @, ?) [) L( S6 p$ l' g, M

! o: q& A$ F! T& Z+ ?Option Explicit / i( k& b+ K$ I9 {8 d! ^6 F% @

' V- ]4 K  u$ [: M7 aPublic Const MAX_TOOLTIP As Integer = 64 : T8 w$ A& v, n6 |  L" l* c
Public Const NIF_ICON = &H2
, n$ G6 Q% V& B8 k0 uPublic Const NIF_MESSAGE = &H1 4 B0 U; n( a$ S9 I( `+ K
Public Const NIF_TIP = &H4 ) S8 N5 ]( Z2 ~* P) j
Public Const NIM_ADD = &H0
" z9 w; J: p" f6 o4 U: Z( C2 gPublic Const NIM_DELETE = &H2
4 q  Z  @: F5 K# APublic Const WM_MOUSEMOVE = &H200 ! k: x( m1 ?* U8 O) `
Public Const WM_LBUTTONDOWN = &H201
! g3 x0 d+ E8 f" r7 WPublic Const WM_LBUTTONUP = &H202
) [/ ]: m' ]. J" P9 J+ W+ P, ^5 z5 t5 JPublic Const WM_LBUTTONDBLCLK = &H203
' V$ t: b) i0 j$ b! l) ^/ m: s# f! c. _Public Const WM_RBUTTONDOWN = &H204 % V' V$ }; R1 k
Public Const WM_RBUTTONUP = &H205
4 V1 J  s( V* U5 ?Public Const WM_RBUTTONDBLCLK = &H206
! |2 Y( i2 n0 {; u/ n. A0 W& r4 V  r! `8 Y9 [( N- d0 E+ ~
Public Const SW_RESTORE = 9
1 i6 ^* K7 V5 `* HPublic Const SW_HIDE = 0   J; J- z  z" @- C/ P. c/ [6 R

- p$ Y: B, K. b0 c; Z! b* FPublic nfIconData As NOTIFYICONDATA
. U/ u, a0 p. ~6 x- ^3 [9 ?) r6 V- D6 T" Q
/ V4 _4 ]6 t) R2 a
Public Type NOTIFYICONDATA
; {6 {  L0 B3 [9 g9 d4 AcbSize As Long
; T% m8 a; S, b) O% g2 w# ?hWnd As Long
1 n3 f" u8 g1 [5 }' @5 K$ ]0 DuID As Long 4 R" b( ^0 Q3 ^- d
uFlags As Long * U2 b; ~+ x7 F
uCallbackMessage As Long 4 N3 v  F% ]& Z3 o5 \
hIcon As Long
4 {; ?0 [- d9 t$ QszTip As String * MAX_TOOLTIP
5 w$ ~7 B, M" Y& l, X* MEnd Type
8 f! L, D7 l5 z
/ j! u! i! Z  |  I0 M% ~Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long % `8 h+ P% |! N2 z$ z6 t0 l
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
1 U6 S$ a3 x5 {& @' y: g5 M2 v  d
'4、在Form1的Load事件中写下如下代码:
* m# g  u$ V) b4 `
  ~% X, ^$ x9 U) J! GPrivate Sub Form_Load()
7 @- a/ z! G- h% L! E* D: o% p) Q: |' u1 @( W' S+ E  `
'以下把程序放入System Tray====================================System Tray Begin : Y- Z" t% C9 Z$ T
With nfIconData 3 K- k: P! b, f. a/ E6 _+ @
.hWnd = Me.hWnd
  u0 ]4 a. d& F7 z0 d5 v.uID = Me.Icon
% }6 ~' b) n* W% [.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
/ g- O- x( `! R: z/ y( @.uCallbackMessage = WM_MOUSEMOVE 2 i# s, e) G/ `& t$ M' u$ P
.hIcon = Me.Icon.Handle 9 }, ^, M6 l( {% X4 D6 D6 B, ~
'定义鼠标移动到托盘上时显示的Tip $ S7 u+ N% Q( s) x
.szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar
* g) i: g) l, g, L4 {! Z1 o7 O.cbSize = Len(nfIconData) ; d) A9 {- J- w% O
End With
! S4 a5 N$ z% P. J: h, kCall Shell_NotifyIcon(NIM_ADD, nfIconData) ' M+ D, W% P# B9 F5 L$ p4 r+ k$ N7 o) ?
'=============================================================System Tray End
0 l# C" p7 }0 I  O: gMe.Hide
3 F1 P7 K$ V1 P- I4 @! O- M6 PEnd Sub 5 A  ~* r; E5 c  S6 L2 K; p6 z
' {. L9 A- V$ J- q& `0 ~6 A/ u
'5、在Form1的QueryUnload事件中写入如下代码:
5 A0 r8 Q1 L3 V% ~! ]6 V4 m) J2 Q: w: o  q4 m* c
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
! K. G8 N/ Q2 x# ~Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
! c+ B4 A) y4 ]& v4 Z& \) CEnd Sub & I" T' Z: w- @
) ^  X8 h' l; [; Z/ q
'6、在Form1的MouseMove事件中写下如下代码: / ^, ^/ C  T, S5 K7 \  P3 g6 ~

. b  d9 |9 E& @5 E0 L; }6 c# F2 HPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
) y- `2 t8 H, W" z/ ODim lMsg As Single
0 U0 U+ \' d- F% D, {; hlMsg = X / Screen.TwipsPerPixelX $ B( {, r) g' z+ M4 f1 w5 S
Select Case lMsg
: `6 g1 S6 L8 N" f( J; ACase WM_LBUTTONUP
$ g0 g4 N( C& n; p9 R* m'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家" , A/ A9 W7 _# y: B
'单击左键,显示窗体
& j9 l+ x7 m) ?5 p4 |ShowWindow Me.hWnd, SW_RESTORE
; u/ O- }4 A/ d4 Y% z: N" p  Y'下面两句的目的是把窗口显示在窗口最顶层 7 R% X7 l$ z- B- d( c' j- R# ?- u
'Me.Show - T" q% Q" }' `  ?9 I. x
'Me.SetFocus
+ a2 @  r- O$ E4 |7 A7 e'' Case WM_RBUTTONUP
  s( X1 i$ |) {' H'' PopupMenu MenuTray '如果是在系统Tray图标上点右键,则弹出菜单MenuTray
8 v9 K" g6 k5 \/ ?! v- ['' Case WM_MOUSEMOVE
. z  k; A  [+ H; w4 T4 K'' Case WM_LBUTTONDOWN 8 t* S$ I2 ?; s8 r5 C5 l) Z4 p4 K+ a
'' Case WM_LBUTTONDBLCLK * l* Q+ C4 n% L
'' Case WM_RBUTTONDOWN
- k$ d5 {& l( i5 l2 q' Y'' Case WM_RBUTTONDBLCLK # D4 Z% H! z& v1 X! {. v
'' Case Else
2 v! j2 V4 t- e5 k- ~" hEnd Select 8 g7 s4 i8 q1 F5 b/ k
End Sub
- G! b( u- S/ V; y' E% |- N+ F/ B, X5 ~: D+ r: {4 {
7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标,Form1就自动弹出来了。
发表于 2008-11-28 11:30:03 | 显示全部楼层 来自: 中国广东东莞
在最小化之后才显示托盘图标??
; C6 L/ S3 R* d$ BPrivate Sub Form_Resize()
: E4 `, u. x, ^9 R( L* WIf Me.WindowState = 1 Then
6 }3 b) y  x* H! O, E: E'添加系统托盘图标的代码
$ p) O1 v& t: a) T: CEnd If & y3 D: A; B3 n' f1 h7 {
End Sub
# ~7 A+ ~8 K/ l& Y9 f0 \'不要在Form_Load里面添加系统托盘图标。
 楼主| 发表于 2008-11-28 11:37:35 | 显示全部楼层 来自: 中国广东深圳
感谢吉米老大
 楼主| 发表于 2008-11-28 12:07:38 | 显示全部楼层 来自: 中国广东深圳
还得请吉米老大看看...
BVC%DOUL$ZYC10HYWQCM2L3.jpg
 楼主| 发表于 2008-11-28 13:08:43 | 显示全部楼层 来自: 中国广东深圳
搞不定...# P) N1 v2 \; I; M. h9 J' |' A
偶刚学VB,我把他传上来,会整的帮我整下吧... 加开机自动运行和小化到脱盘功能....先谢谢师傅们

PM集合.rar

2.97 KB, 下载次数: 53

发表于 2008-11-28 13:27:15 | 显示全部楼层 来自: 中国广东东莞
原帖由 380557319 于 2008-11-28 13:08 发表 http://www.3dportal.cn/discuz/images/common/back.gif- E; E# g( Y" g% S0 P
搞不定...
2 z2 b0 t. r8 x) H偶刚学VB,我把他传上来,会整的帮我整下吧... 加开机自动运行和小化到脱盘功能....先谢谢师傅们
" D. F8 x5 B* K* Z/ E' ~- z

7 E' x$ z6 U( @3 _已改好

PM集合_小化到托盘.rar

4.24 KB, 下载次数: 156

 楼主| 发表于 2008-11-28 13:31:11 | 显示全部楼层 来自: 中国广东深圳
原帖由 jimmycnc 于 2008-11-28 13:27 发表 http://www.3dportal.cn/discuz/images/common/back.gif+ g, P% D8 C1 R! N+ t2 c

) g  S& V- z& ?4 d9 G+ p% u+ w5 ]' A: \5 S1 s% ^( q
已改好

( E/ V, p9 i$ ?2 ]& V% j谢谢吉米老大,可能是代码的格式我还没掌握好      看来还得努力学习
发表于 2008-11-29 10:22:01 | 显示全部楼层 来自: 中国吉林长春
永远支持吉米老大
发表于 2008-11-29 12:38:45 | 显示全部楼层 来自: 中国广东中山
厉害啊。。
发表于 2009-3-3 09:14:26 | 显示全部楼层 来自: 中国广东东莞
吉米老大, 可不可让它自动隐藏 鼠标一碰又出来  我见你做有个外挂是这样的 赐教 2 D4 n. \( d) a$ f
还有一个问提可能除你没人可帮我了 POWER8.0 有时图档打不开 有解决的办法不 赐教
发表于 2009-3-3 09:15:20 | 显示全部楼层 来自: 中国广东东莞
是这样的   。。。。。。
123.JPG
发表于 2009-3-12 22:31:23 | 显示全部楼层 来自: LAN

先下了,我找这个都一个月了

先顶下这个,我都找过好多网站了.找的好象就是这个.先多谢楼上的无私奉献.
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表