烟台开放式小区:commondialog的功能怎么实现不了（更换图标）

来源：百度文库编辑：杭州交通信息网时间：2024/04/30 06:47:54

这是代码
Private Sub mnuTrayChangeIcon_Click()
Dim cdlOpen As Control
On Error GoTo ErrHandler
With cdlOpen
.CancelError = False ' 设置标志
.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

把
Dim cdlOpen As Control 注释掉，commondialog1更名为cdlopen;
如果还有问题就只能是在
With myData
.hIcon = Image1.Picture
.uFlags = NIF_ICON
End With
Shell_NotifyIcon NIM_MODIFY, myData
这几句中了.

实际执行情况怎样？

commondialog的功能怎么实现不了（更换图标） vb中的commondialog提供的对话框不够用怎么办？ VB的CommonDialog组件 vb的CommonDialog控件 vb commondialog的使用方法。 commondialog 的问题 QD的阅读功能怎么实现呢？交换机是怎么实现路由功能的？节育环是怎么实现其功能的？怎么用daemonTools实现starfuck的功能