VB 如何在代码中更改窗体和托盘的图标 10
如提问题目我有个程序需要动态更改窗体和托盘的图标谁能给我个程序示例代码?object.icon=loadpicture(app.path&"\ICONS\Charge.J...
如提问题目我有个程序需要动态更改窗体和托盘的图标
谁能给我个程序示例代码?
object.icon=loadpicture(app.path & "\ICONS\Charge.JPG")
我试过了,不行.
忘说了,图标文件是JPG的.
如果JPG不能用
那给我一个加载ICO或CUR的代码也行
顺便给我一个JPG转ICO的软件.
谢谢咯 展开
谁能给我个程序示例代码?
object.icon=loadpicture(app.path & "\ICONS\Charge.JPG")
我试过了,不行.
忘说了,图标文件是JPG的.
如果JPG不能用
那给我一个加载ICO或CUR的代码也行
顺便给我一个JPG转ICO的软件.
谢谢咯 展开
3个回答
展开全部
Private Sub Form_Load()
With nfIconData
.cbSize = Len(nfIconData)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_INFO Or NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.hIcon = Me.Icon
.szTip = "123" & vbNullChar
.dwState = 0
.dwStateMask = 0
.uTimeoutOrVersion = 15000
.szInfoTitle = "123" & vbNullChar
.dwInfoFlags = NIIF_INFO
End With
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End
End Sub
具体是这样的。。。
你可以上网搜搜Shell_NotifyIcon这个API
With nfIconData
.cbSize = Len(nfIconData)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_INFO Or NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.hIcon = Me.Icon
.szTip = "123" & vbNullChar
.dwState = 0
.dwStateMask = 0
.uTimeoutOrVersion = 15000
.szInfoTitle = "123" & vbNullChar
.dwInfoFlags = NIIF_INFO
End With
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End
End Sub
具体是这样的。。。
你可以上网搜搜Shell_NotifyIcon这个API
TableDI
2024-07-18 广告
2024-07-18 广告
在上海悉息信息科技有限公司,我们深知Excel在数据处理中的重要作用。在Excel中引用不同工作表(sheet)的数据是常见的操作,这有助于整合和分析跨多个工作表的信息。通过在工作表名称前加上感叹号“!”,您可以轻松地引用其他工作表中的数据...
点击进入详情页
本回答由TableDI提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询