📄 20182.html
字号:
<html> <head> <title>Re: 请问在VB中，如何使程式缩小至系统时间的小ICON...</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 请问在VB中，如何使程式缩小至系统时间的小ICON...</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:aina@my.netvigator.com.tw">South Wind</a> on October 15, 1999 at 11:57:53:<p>In Reply to: <a href="20178.html">请问在VB中，如何使程式缩小至系统时间的小ICON...</a> posted by 长空 on October 15, 1999 at 11:15:21:<p>: 各位高手，请问一下如何将自已设计的程式，在执行中，缩小至时间<br>: 工作列的小图示。是否有何属性或是工具等等方法吗？？<p>要用到API - Shell_NotifyIcon<p>Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long<br>Public Const NIF_ICON = &H2 '指定Icon<br>Public Const NIF_MESSAGE = &H1 '接收Message<br>Public Const NIF_TIP = &H4 '显示Tip<br>Public Const NIM_ADD = &H0 '新增Icon<br>Public Const NIM_DELETE = &H2 '删除Icon<br>Public Const NIM_MODIFY = &H1 '变更Icon<p>Public Type NOTIFYICONDATA<br> cbSize As Long<br> hwnd As Long<br> uID As Long<br> uFlags As Long<br> uCallBackMessage As Long<br> hIcon As Long<br> szTip As String * 64<br>End Type<p>Dim nid As NOTIFYICONDATA<p><br>nid.cbSize = Len(nid)<br>nid.hwnd = Me.hwnd<br>nid.uID = 9999<br>nid.uFlags = NIF_ICON + NIF_TIP + NIF_MESSAGE<br>nid.hIcon = Me.Icon<br>nid.szTip = "ABCDE" & Chr(0)<br>nid.uCallBackMessage = WM_USER + 100<br> <br>Shell_NotifyIcon NIM_ADD, nid<p>更详细的说明可以找王国荣的Windows API讲座一书<br>有详细范例<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20182--></ul><!--end: 20182--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -