binbow_z上传的更改窗体图标的例程

binbow_z · 发表于 2002-5-6 01:58:00

更改窗体图标文件下载

[此贴子已经被tmtony于2002-5-5 17:57:34编辑过]

tmtony · 发表于 2002-4-30 05:29:00

更改后加上这句
Application.RefreshTitleBar

binbow_z · 发表于 2002-4-30 05:35:00

这么简单?

tmtony · 发表于 2002-4-30 06:15:00

我试过后可以了

zhuyiwen · 发表于 2002-5-4 22:29:00

补充：

Private Sub cmdformico_Click()
Dim flag As Boolean, strpicpath As String
strpicpath = ap_GetFileDialog(False, CurrentProject.Path & "\ico\*.ico", "选择指定的图片", "图标文件 (*. ico)" & Chr(0) & "*.ico" & Chr(0))
MsgBox strpicpath
SetFormIcon 0&, strpicpath
End Sub

改为

Private Sub cmdformico_Click()
Dim flag As Boolean, strpicpath As String
strpicpath = ap_GetFileDialog(False, CurrentProject.Path & "\ico\*.ico", "选择指定的图片", "图标文件 (*. ico)" & Chr(0) & "*.ico" & Chr(0))
MsgBox strpicpath
SetFormIcon Me.hWnd, strpicpath
End Sub

[em26][em26][em26]

binbow_z · 发表于 2002-5-6 03:37:00

我正想问这个问题呢，搞了老半天也不对，谢谢ZHUYIWEN版主

zhuyiwen · 发表于 2002-5-6 03:48:00

不用谢，不用谢！

我用了你那一段程序，反要谢你！

[em05]

binbow_z · 发表于 2002-5-6 03:56:00

程序是抄的,请求TONY版主翻译成中文,不过我从来就没有看懂过

竹笛 · 发表于 2002-5-6 05:13:00

今天始知如何更改窗体图标，五一节最后一天假收到了第三个好礼物。多谢楼上的兄弟们！

make · 发表于 2002-5-7 18:17:00

binbow_z版主，能不能给我讲讲程序的原理，我老看不懂呢

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] binbow_z上传的更改窗体图标的例程

群介绍
主题无相 (随机显示版	同地区群块其他地区)