vb改变游戏在任务栏图标隐藏软件的图标用vb怎么写

来源：蜘蛛抓取(WebSpider) 时间：2017-11-11 10:01 标签： vb最小化到任务栏
当前位置： &
& VB6如何在托盘中写入应用程序图标
VB6如何在托盘中写入应用程序图标
类别：&&大小：2.81MB语言：简体中文&&授权：免费软件
第一页：VB6如何在托盘中写入应用程序图标
第二页：VB6如何在托盘中写入应用程序图标
　　1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False　　2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas　　3、在Module1中写下如下代码：　　Option Explicit　　Public Const MAX_TOOLTIP As Integer = 64　　Public Const NIF_ICON = &H2　　Public Const NIF_MESSAGE = &H1　　Public Const NIF_TIP = &H4　　Public Const NIM_ADD = &H0　　Public Const NIM_DELETE = &H2　　Public Const WM_MOUSEMOVE = &H200　　Public Const WM_LBUTTONDOWN = &H201　　Public Const WM_LBUTTONUP = &H202　　Public Const WM_LBUTTONDBLCLK = &H203　　Public Const WM_RBUTTONDOWN = &H204　　Public Const WM_RBUTTONUP = &H205　　Public Const WM_RBUTTONDBLCLK = &H206　　Public Const SW_RESTORE = 9　　Public Const SW_HIDE = 0　　Public nfIconData As NOTIFYICONDATA　　Public Type NOTIFYICONDATA　　cbSize As Long　　hWnd As Long　　uID As Long　　uFlags As Long　　uCallbackMessage As Long　　hIcon As Long　　szTip As String * MAX_TOOLTIP　　End Type　　Public Declare Function ShowWindow Lib &user32& (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long　　Public 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.Hide　　End 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, &实时播音专家&
上一篇 &：
下一篇 &：
文章链接：///tutorials/45149.html
(转载时请注明本文出处及文章链接)欢迎加入我们，一同切磋技术。 &
用户名： &&&
密　码： &
共有 1786 人关注过本帖
标题：怎么把VB生成的可执行程序的图标改成别的啊
来　自：邯郸
等　级：论坛游侠
帖　子：158
专家分：125
结帖率：75%
&&已结贴√
&&问题点数：10&&回复次数：3&&&
怎么把VB生成的可执行程序的图标改成别的啊
我自己做了一些小程序，心里美滋滋的，可我希望更完美一些，想把生成的可执行程序的图标改了，改成自己喜欢的，不知道可不可以啊?
搜索更多相关主题的帖子:
来　自：毅华
等　级：火箭侠
帖　子：720
专家分：3300
你问到C栏目这边了。不过也可以跟你说一下。
VB窗体的属性模块里找到Icon项，选择你喜欢的图标就可以了。生成应该程序就是你选的图标，在任务栏下显示的也是这个图标。
努力—前进—变老—退休—入土
来　自：邯郸
等　级：论坛游侠
帖　子：158
专家分：125
图片什么格式都行吗？我怎麽用你这种方法找不到我电脑上存的图片呢？
来　自：毅华
等　级：火箭侠
帖　子：720
专家分：3300
要后缀名ico或cur的图标文件。
[ 本帖最后由 UserYuH 于
21:41 编辑 ]
努力—前进—变老—退休—入土
版权所有，并保留所有权利。
Powered by , Processed in 0.063830 second(s), 7 queries.
Copyright&, BCCN.NET, All Rights ReservedVB 任务栏显示图标-VB系统源代码
如果有其他问题：
可以点击这里反馈给我们
《VB》--源代码内容本帖子已过去太久远了，不再提供回复功能。

我要回帖

更多关于 vb最小化到任务栏 的文章

 

随机推荐