13518219792
'在窗体上添加一个按钮测试
成都创新互联公司是一家专业提供甘泉企业网站建设,专注与网站设计、成都做网站、H5高端网站建设、小程序制作等业务。10年已为甘泉众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。
Private
m_PlayFlag
As
Boolean
=
False
'是否正在播放
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
If
m_PlayFlag
=
False
Then
Button1.Image
=
Image.FromFile("d:\play.jpg")
'更换为播放图标
m_PlayFlag
=
True
'改变标志
Else
Button1.Image
=
Image.FromFile("d:\pause.jpg")
'更换为暂停图标
m_PlayFlag
=
False
'改变标志
End
If
End
Sub
Private
Sub
Form1_Load(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
MyBase.Load
'窗体加载时使用暂停图标
Button1.Image
=
Image.FromFile("d:\pause.jpg")
End
Sub
我现在改VB程序图标用的是两个软件:
IconWorkshop:一款图标编辑软件,不管什么格式图片,只要能打开,就能转成ico图标.
ResHacker:替换VB生成的应用程序的图标.
_____________________________________
方法:
一、先到网上下载N个图标，随便PNG格式还是ico格式。
二、用IconWorkshop打开一个图标，点上方工具栏的“编辑”，“来自此图像的Windows图标项目”，然后弹出一个窗口让你选择图标的大小和颜色位数。（这里你要注意：如果想直接通过窗体的Icon属性添加图标，图标只能选择16色的，最大选择32*32尺寸），为了节省图标大小，请不要选太多。
三、你选择生成16色32*32的图标，然后确定，然后保存图标到桌面上直接给VB使用了。
四、生成应用程序，下一步然后我们再给应用程序替换为分辨率更高的图标。
五、用ResHacker打开我们之前生成的，改过窗体图标的VB程序。找到图标组，右键替换资源，选择一个用IconWorkshop生成的分辨率更高颜色更好的图标，资源名称打进去1，然后直接确定。再保存一下。
一个应用程序完成了，图标随便怎么改。我自己弄了好久才找出来的方法，不给你太可惜了。
你需要先准备一个.ico格式的图标文件，（百度一下，现在很多网站都有提供将各种格式的图片转换成.ico格式的）。有2种方法来更改程序图标。第一种：如果你想在程序运行的时候通过代码来改变程序的图标，即可以使用LoadPicture函数，例如，form1.icon=LoadPicture(App.Path + “\你的图标名称.ico”)。需要注意的是这里通过App.Path引用了相对路径，需要你事先将用到图标文件添加到你的程序所在的文件夹中，使用相对路径的好处就是，不论你的程序安装在哪个位置，只要这个图标文件与程序文件处在一个文件夹中，则都能够正常运行。另外如果你不想用这个图标了，可以将LoadPicture函数置空（直接使用LoadPicture()即可）。另一种方法就是在设计时在窗体属性中找Icon属性，单击右边的小块，在打开的对话框中指定图标文件即可，这种方式使用的是绝对路径，图标文件可以放置在任何文件夹里而不与程序文件处在一个位置。但是这样一来，当你将程序放到别的电脑上运行时，则会提示找不到这个图标文件。因为在你电脑上的这个图标文件的位置与目标机器上的位置不一样。
你首先要明确你是要修改的什么图标?
1
.如果你是要修改你编写的程序在生成的EXE的图标那么,你需要到工程属性下面去修改,VB
默认的生成后的EXE的图标为启动窗口的图标,而默认启动窗口为form1
.你可以修改FORM1的图标达到修改生成EXE后的图标.
也可以到
"工程"-"工程1(假定你现在的工程为它)属性"
--"生成(选项卡)"--"应用程序下的图标中选择其它窗体的图标作为EXE的图标"
2.
你要修改的是窗体的图标那么,在窗体属性中(默认在工作平台的右边)找到"Icon"
当鼠标点到它的时候
会出现"..."的按钮,选择你要作为图标的图标文件,就可以了.
