扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:张新华 来源:yesky 2007年10月15日
关键字:
Option Explicit Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_SYSCOMMAND = &H112 Private Const SC_RESTORE = &HF120& Private LastState As Integer '保留原窗口状态 '---------- dwMessage可以是以下NIM_ADD、NIM_DELETE、NIM_MODIFY 标识符之一---------- Private Const NIM_ADD = &H0 '在任务栏中增加一个图标 Private Const NIM_DELETE = &H2 '删除任务栏中的一个图标 Private Const NIM_MODIFY = &H1 '修改任务栏中个图标信息 Private Const NIF_MESSAGE = &H1 'NOTIFYICONDATA结构中uFlags的控制信息 Private Const NIF_ICON = &H2 Private Const NIF_TIP = &H4 Private Const WM_MOUSEMOVE = &H200 '当鼠标指针移至图标上 Private Const WM_LBUTTONUP = &H202 Private Const WM_RBUTTONUP = &H205 Private Type NOTIFYICONDATA cbSize As Long '该数据结构的大小 hwnd As Long '处理任务栏中图标的窗口句柄 uID As Long '定义的任务栏中图标的标识 uFlags As Long '任务栏图标功能控制,可以是以下值的组合(一般全包括) 'NIF_MESSAGE 表示发送控制消息; 'NIF_ICON表示显示控制栏中的图标; 'NIF_TIP表示任务栏中的图标有动态提示。 uCallbackMessage As Long '任务栏图标通过它与用户程序交换消息,处理该消息的窗口由hWnd决定 hIcon As Long '任务栏中的图标的控制句柄 szTip As String * 64 '图标的提示信息 End Type Dim myData As NOTIFYICONDATA Private Sub Form_Load() If WindowState = vbMinimized Then LastState = vbNormal Else LastState = WindowState End If With myData .cbSize = Len(myData) .hwnd = Me.hwnd .uID = 0 .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMOVE .hIcon = Me.Icon.Handle '默认为窗口图标 .szTip = "提示" & vbNullChar End With Shell_NotifyIcon NIM_ADD, myData End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case CLng(X) Case WM_RBUTTONUP '鼠标在图标上右击时弹出菜单 Me.PopupMenu mnuTray Case WM_LBUTTONUP '鼠标在图标上左击时窗口若最小化则恢复窗口位置 If Me.WindowState = vbMinimized Then Me.WindowState = LastState Me.SetFocus End If End Select End Sub Private Sub Form_Unload(Cancel As Integer) Shell_NotifyIcon NIM_DELETE, myData '窗口卸载时,将状态栏中的图标一同卸载 End Sub Private Sub mnuExit_Click() Unload Me End Sub Private Sub mnuTrayChangeIcon_Click() On Error GoTo ErrHandler With cdlOpen .CancelError = True ' 设置标志 .InitDir = App.Path ' 默认的文件夹为当前文件夹 .Flags = cdlOFNHideReadOnly ' 设置过滤器 .Filter = "图标文件 (*.ico)|*.ico" ' 指定缺省的过滤器为图标文件 .ShowOpen ' 显示选定文件的名字 End With Image1.Picture = LoadPicture(cdlOpen.FileName) With myData .hIcon = Image1.Picture .uFlags = NIF_ICON End With Shell_NotifyIcon NIM_MODIFY, myData ErrHandler: ' 用户按了"取消"按钮 Exit Sub End Sub Private Sub mnuTrayClose_Click() Unload Me End Sub Private Sub Form_Resize() Select Case WindowState Case vbMinimized mnuTrayMaximize.Enabled = True mnuTrayMinimize.Enabled = False mnuTrayRestore.Enabled = True Case vbMaximized mnuTrayMaximize.Enabled = False mnuTrayMinimize.Enabled = True mnuTrayRestore.Enabled = True Case vbNormal mnuTrayMaximize.Enabled = True mnuTrayMinimize.Enabled = True mnuTrayRestore.Enabled = False End Select If WindowState <> vbMinimized Then LastState = WindowState End Sub Private Sub mnuTrayMaximize_Click() WindowState = vbMaximized End Sub Private Sub mnuTrayMinimize_Click() WindowState = vbMinimized End Sub Private Sub mnuTrayRestore_Click() SendMessage hwnd, WM_SYSCOMMAND, SC_RESTORE, 0& End Sub |
婵犵數濮烽。浠嬪焵椤掆偓閸熷潡鍩€椤掆偓缂嶅﹪骞冨Ο璇茬窞闁归偊鍓涢悾娲⒑闂堟单鍫ュ疾濠婂嫭鍙忔繝濠傜墛閸嬨劍銇勯弽銊с€掗柟钘夊暣閺岀喖鎮滈埡鍌涚彋閻庤娲樺畝绋跨暦閸洖鐓涢柛灞剧矋濞堟悂姊绘担绛嬪殐闁搞劋鍗冲畷銏ゅ冀椤愩儱小闂佹寧绋戠€氼參宕伴崱妯镐簻闁靛牆鎳庢慨顒€鈹戦埥鍡椾簼婵犮垺锚铻炴俊銈呮噺閸嬪倹绻涢崱妯诲碍閻庢艾顦甸弻宥堫檨闁告挾鍠庨锝夘敆娓氬﹦鐭楁繛鎾村焹閸嬫捇鏌e☉娆愬磳闁哄本绋戦埞鎴﹀川椤曞懏鈻婄紓鍌欑劍椤ㄥ懘鎯岄崒鐐靛祦閹兼番鍔岄悞鍨亜閹烘垵顏╅悗姘槹閵囧嫰寮介妸褎鍣ョ紓浣筋嚙濡繈寮婚悢纰辨晣鐟滃秹鎮橀懠顒傜<閺夊牄鍔庣粻鐐烘煛鐏炶姤鍠橀柡浣瑰姍瀹曠喖顢橀悩铏钒闂備浇宕垫慨鎶芥⒔瀹ュ鍨傞柦妯猴級閿濆绀嬫い鏍ㄧ☉濞堟粓姊虹涵鍛【妞ゎ偅娲熼崺鈧い鎺嗗亾闁挎洩濡囧Σ鎰板籍閸繄顓洪梺缁樺姇瀵剙螖閸涱喚鍘搁梺鍓插亽閸嬪嫰鎮橀敃鍌涚厱閻庯綆鍋嗘晶顒傜磼閸屾稑绗ч柟鐟板閹煎湱鎲撮崟闈涙櫏闂傚倷绀侀幖顐も偓姘卞厴瀹曞綊鏌嗗鍛紱閻庡箍鍎遍ˇ浼村磿瀹ュ鐓曢柡鍥ュ妼婢ь垰霉閻樿秮顏堟箒闂佹寧绻傚Λ妤呭煝閺囥垺鐓冪憸婊堝礈濮樿泛钃熼柕濞у嫷鍋ㄩ梺缁樺姇椤曨參鍩㈤弴銏″€甸柨婵嗗€瑰▍鍥ㄣ亜韫囨稐鎲鹃柡灞炬礋瀹曢亶顢橀悢濂変紦
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者