请教:电脑中的内置图标(FaceID)能在显示在窗体中的Commandbutton控件上吗?

lbw5 · 发表于 2005-5-7 09:20

我想使用VBE中的窗体(userform)做些事情,窗体中常会使用按钮控件(Commandbutton),如果能将电脑中的内置图标(FaceID)放在这个控件上就可以使它更好看些.但我不知代码怎样写,请教各位老师,先在这里感谢了!!!!

henterwu · 发表于 2005-5-7 17:18

.Controls("Name").Faceid = faceidNO

lbw5 · 发表于 2005-5-9 12:48

userform1.Controls("Commandbutton1").Faceid = 66

我这样写,电脑说"对象不支持该属性和方法",请指点,谢谢!!

henterwu · 发表于 2005-5-9 18:51

按钮只能用picture属性

.picture = loadpicture (path)

chijanzen · 发表于 2005-5-9 20:03

你好:

應該可以的，請參考

Private Sub UserForm_Initialize() On Error Resume Next Application.CommandBars.Add "test" Application.CommandBars("test").Controls.Add.FaceId = 25 Set Me.CommandButton1.Picture = Application.CommandBars("test").Controls(1).Picture End Sub

Private Sub UserForm_Terminate() Application.CommandBars("test").Delete End Sub

82DjvGO6.rar (7.58 KB, 下载次数: 441)

foshan · 发表于 2005-5-10 08:16

chijanzen 大师的作品很好，收藏了!

lbw5 · 发表于 2005-5-10 13:32

我运行5楼的代码,窗体"Userform1"中的按钮"Commandbutton1"却没有图标出现,检查代码发现:

Set Me.CommandButton1.Picture = Application.CommandBars("test").Controls(1).Picture

这条代码的 Controls(1) 后面应该没有"Picture"的属性,是这个问题吗?请指教,谢谢楼上各位!

lbw5 · 发表于 2005-5-11 13:28

5楼的代码得不到效果

foshan · 发表于 2005-5-11 15:16

我在 win-xp + office 2003 中测试通过，请看录像和上传附件：

Y6hcVb6S.rar (9.67 KB, 下载次数: 225)

plxmm · 发表于 2005-5-11 15:28

foshan 的代码更好用。[em04]

		自动登录	找回密码
密码			免费注册

[求助] 请教:电脑中的内置图标(FaceID)能在显示在窗体中的Commandbutton控件上吗?

最新热点 /1