用VB写了一个小程序，想添加一个图标。

往哪儿添加图标，可以细说一下吗？我现给你编一下程序，不知对这位朋友是否有用。

首先在VB中添加一个新的窗体，具体步骤：工程——添加窗体——打开即可。

第二、再在该窗体上添加一个command按钮：命名为cmddj（cmd单击）、caption属性为“打开”.

第三、执行以下 *** 作：工程——部件——选中“microsoft common dialog control6.0”在前面打勾。现在在工具箱中就有了一个新的图标，把该图标画到新建的窗体中。名字不要改。注意该图标在运行时是不可见的，所以可以放到任意位置，该图标的大小也不可改变。

第四、再在窗体上画一个Picture控件。大小适中name属性为Picture1。

然后为cmddj控件添加单击事件，代码如下

Private Sub Command1_Click()

Dim s As String

CommonDialog1.InitDir = "e:"

CommonDialog1.ShowOpen

s = CommonDialog1.FileName

Picture1.Picture = LoadPicture(s)

End Sub

在程序运行时单击“打开”按钮会出现一个对话框，然后找到你要的图标单击“打开”就可以打开了。

不知我说的这个是不是这位朋友想要的。如果不是我这还有一个方法。

如果你是要修改窗体的图标的话，那就修改主个窗体的icon属性即可。在这儿我推荐使用VB的图标库作为图标源。

先就到这儿了，如果不对，再联系。

首先，添加部件“Microsoft

Windows

Common

Controls

6.0”.添加控件Treeview1，Imagelist1.注意，Treeview添加图标必须通过Imagelist控件的辅助来进行。然后右击Imagelist1，选择属性，在里面的对话框中选择Image选项卡，单击Insert

Image

按钮，找到你需要的图标，全部导入。我以VB的Common文件夹中的Graphics\Icons\Comm中的图标为例。代码如下。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Option

Explicit

Private

Sub

Form_Load()

Dim

i

As

Integer

TreeView1.ImageList

=

ImageList1

For

i

=

1

To

ImageList1.ListImages.Count

TreeView1.Nodes.Add

Text:=i,

Image:=i

Next

End

Sub

如果是默认模板，直接去default/common里的footer.php里添加图标即可

如果不是默认模板，去模板里添加即可

添加之前先备份，以免出错，另外替换之后更新缓存

---