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

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

这么简单?

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

更改窗体图标文件下载

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

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

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

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

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

binbow_z · 发表于 2002-5-8 00:06:00

API函数我也看不懂,照抄就是了

binbow_z · 发表于 2002-5-8 00:17:00

Private Sub cmdformico_Click()
Dim flag As Boolean, strpicpath As String
'调用API函数打开文件浏览对话框
strpicpath = ap_GetFileDialog(False, CurrentProject.Path & "\ico\*.ico", "选择指定的图片", "图标文件 (*. ico)" & Chr(0) & "*.ico" & Chr(0))
MsgBox strpicpath
'将当前要更改图标的窗体的句柄和图标路径和文件名作为参数传递SETFORMICON函数
SetFormIcon Me.hWnd, strpicpath
Application.RefreshTitleBar
End Sub

具体的一些原理只有问TONY兄,我也看不懂

binbow_z · 发表于 2002-5-8 04:51:00

我的也是WIN98+ACCESS2K

有没有按ZHUYIWEN版主的提示更改这句:
SetFormIcon Me.hWnd, strpicpath

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

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

主题相关群

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

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

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