天极传媒：天极网全国分站
您现在的位置： >>
VB6如何在托盘中写入应用程序图标
　　1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False　　2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas　　3、在Module1中写下如下代码：
Option ExplicitPublic Const MAX_TOOLTIP As Integer = 64Public Const NIF_ICON = &H2Public Const NIF_MESSAGE = &H1Public Const NIF_TIP = &H4Public Const NIM_ADD = &H0Public Const NIM_DELETE = &H2Public Const WM_MOUSEMOVE = &H200Public Const WM_LBUTTONDOWN = &H201Public Const WM_LBUTTONUP = &H202Public Const WM_LBUTTONDBLCLK = &H203Public Const WM_RBUTTONDOWN = &H204Public Const WM_RBUTTONUP = &H205Public Const WM_RBUTTONDBLCLK = &H206Public Const SW_RESTORE = 9Public Const SW_HIDE = 0Public nfIconData As NOTIFYICONDATAPublic Type NOTIFYICONDATA　cbSize As Long　hWnd As Long　uID As Long　uFlags As Long　uCallbackMessage As Long　hIcon As Long　szTip As String * MAX_TOOLTIPEnd TypePublic Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As LongPublic Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long　　4、在Form1的Load事件中写下如下代码：
Private Sub Form_Load()　'以下把程序放入System Tray====================================System Tray Begin　With nfIconData　　.hWnd = Me.hWnd　　.uID = Me.Icon　　.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP　　.uCallbackMessage = WM_MOUSEMOVE　　.hIcon = Me.Icon.Handle　　'定义鼠标移动到托盘上时显示的Tip　　.szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar　　.cbSize = Len(nfIconData)　End With　Call Shell_NotifyIcon(NIM_ADD, nfIconData)　'=============================================================System Tray End　Me.HideEnd Sub　　5、在Form1的QueryUnload事件中写入如下代码：
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Call Shell_NotifyIcon(NIM_DELETE, nfIconData)End Sub　　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　　Case WM_LBUTTONUP　　　'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"　　　'单击左键，显示窗体　　　ShowWindow Me.hWnd, SW_RESTORE　　　'下面两句的目的是把窗口显示在窗口最顶层　　　'Me.Show　　　'Me.SetFocus　　　'' Case WM_RBUTTONUP　　　'' PopupMenu MenuTray '如果是在系统Tray图标上点右键，则弹出菜单MenuTray　　　'' Case WM_MOUSEMOVE　　　'' Case WM_LBUTTONDOWN　　　'' Case WM_LBUTTONDBLCLK　　　'' Case WM_RBUTTONDOWN　　　'' Case WM_RBUTTONDBLCLK　　　'' Case Else　End SelectEnd Sub　　7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标，Form1就自动弹出来了。
（作者：责任编辑：方舟）
天极新媒体&最酷科技资讯扫码赢大奖
* 网友发言均非本站立场，本站不在评论栏推荐任何网店、经销商，谨防上当受骗！
笔记本手机数码家电vb6吧-百度贴吧
签到排名：今日本吧第个签到，
本吧因你更精彩，明天继续来努力！
本吧排名：
本吧签到人数：6
可签7级以上的吧50个
本月漏签0次！
成为超级会员，赠送8张补签卡
连续签到：天&&累计签到：天
超级会员单次开通12个月以上，赠送连续签到卡3张
比如，我要把QQ的快捷方式，跟桌面上的QQ快捷方式一样的图标和文字 放到form1窗体上 这样运行程序后，从
求大神帮助！！！！ 价格可以商量
求无毒绿色中文版！
VB6精简版下载 链接：https://pan.baidu.com/s/1ZNt4o8d4SD5lkQ-00Vn_Pg 密码：69j4
各位大佬好，小弟先在这里给各位拜年了！ 只求一个简单问题，如下
闲的无聊就尝试了把，哈哈哈。。不过代码写的比较渣... 不知道怎么发附件。。
有大神吗？！！求助！！！救救孩子吧！！！ 问题：编写一算法在带头结点的单链表结构上实现求线性表
请问winsock控件能否获得对方的计算机名称？非IP地址。就是\\wangwang这样的。
vb是面向对象开发环境的，可以用来开发游戏吗？我想做一款游戏，里面有一个重力系统。想要借用box2d这
都安装到最后一步了，结果他说 注册(中间是所安装位置的链接)失败 求大神
做的是押大小游戏借鉴了别人的程序 有两处看不明白 1. Private Declare Function BitBlt Lib &gdi32& (ByVal hDestDC As Long, ByVal x As
以前没有接触过vb6，现在boss让我用vb6做一个软件界面，就上面这样子的。有没有有空的大神愿意抽出一点
为什么VB常常弹出&用户类型未定义&？有什么办法可以解决？ 总是要去查找什么东西没有定义，好
新编的程序放到一台新电脑上用 ，缺少控件时会报错，运行不了。 有没有办法让程序本身自动下载缺少的
求大神给个vb6学习版，邮箱@qq. com，谢谢啦
我编了一个exe，放在移动磁盘里，来打开移动磁盘里的文件，不同电脑，磁盘符不同，怎么获得exe所在磁
有大神吗，求助
TM谁定义的0.5 mod 0.5 除数为0，谁TM写的mod函数
分享自己制作的VB6游戏“将行天下” ht**tps:*/*/pa*n*.*baidu.*co*m/s/1qY**0Tz1E 把星号都去掉放在地址栏按回车，
目前程序有一个bug，有人知道什么情况吗？就是设定Text1检测到Keydown=13的时候Call command1_click，我看别人好
分享自己制作的VB6游戏攒波防 主要原理就像石头剪刀布 链接地址ht*tps*:/*/p*an.*ba*idu*.c**om/s/1dFI*jECT 把星号
懂图片解码的来看看~~
同一窗体的代码多了之后，总觉得不方便，可不可以分成几个文件的？
用VB6做的邮件收发客户端。用winsock实现的SMTP和POP3协议（简单密码），进行邮件的收发。成品在这里：https
关于VB webbowser 加载不完全的问题，上面的是webbowser打开的网页，部分控件没有显示出，下面的是360浏览器
模仿扫雷做的，源码如下，纯属个人爱好。代码还有好多地方需要优化，大家可以提提意见或借鉴一下 Opti
如题。或者说，怎么取里面的某些字符串？
以下是我连接数据库的代码 Dim Conn As ADODB.Connection '声明连接数据库对象——用来连接数据库文件，并对
中工具栏中已经添加了资源编辑器，然后再资源编辑器中添加文件没反应，是怎么回事？ 或者大神推荐一
现在有每个点对应的颜色的数组，求如何转换成位图？
VBIDE运行报找不到DLL错误，而打包的EXE运行却没错，里面引用了DLL 可以肯定DLL没有其他依赖，为毛？
怎么实现鼠标选中字符，即可复制并替换？ 谢谢！ ---贴吧极速版 For UWP
请问vb用combol如何进行数据筛选？
大神们 易语言的置入代码 VB是哪个命令啊
百度网盘地址：http://pan.baidu.com/s/1pLlEyIR
谁有VB做的小游戏。在线等。急用，万分感谢！
如题，我要做一个杆，有一根线和一个圆角矩形构成。杆会转动，如何绘制使得圆角矩形也跟着转动？要
想把一个彩色的 色深为4、8的图片， 变为色深为1的黑白图片？ 参考了 http://bbs.csdn.net/topics/ 但 GetDIBits hDC, Pic.Handle, 0, Bmp.b
http://www.fffdan.com/cs/ 你可以选择匿名分享或者是注册账号之后分享。 交流板搭建中 网站常年开放
如题，通过各种方法安装，进去都说 外部程序无法加载
放假在家里没事，干脆自学vb，现在刚看到sub过程这一章，穷极无聊之下做了个计算器，请各位帮忙找下bug，如果有不合理的结构也请不吝赐教 链接 http:/
生成.exe是vb总会崩溃，求助
VB6.0吧在沉寂一年后破镜重生，我们的目标是建设和谐的程序猿生态圈，促进VB学者交流，与大家共同进步 吧里有完整和合理的吧规，友善的吧友，大神，小
你可能感兴趣的吧...
发贴红色标题
签到六倍经验
兑换本吧会员
赠送补签卡1张，获得
助攻总额: 43W
贴吧热议榜
发表后自动分享本贴
使用签名档&豆丁微信公众号
君，已阅读到文档的结尾了呢~~
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
如何才能给vb6的text控件加个背景图片？
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://www.docin.com/DocinViewer-.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口