如何制作Vista格式的图标？

下载VB

.打开文件的时候可以显示图标在窗体上
2.显示出来的图标可以保存为一个图标（实在不行图片也可以）
3.可以用外部图标替换打开文件中的图标
4.当点那个图标的时候提示是不是替换那个图标
5.凡是有图标的文件尽量做到都能替换和提取

添加Label1,Label2,Image1,Image2,Image3,公共对话框控件Cdl1,Command1,Command2,Command3,Command4
不用排列

Private Sub Command1_Click()
CDL1.DialogTitle = "选择一个图标文件"
CDL1.FileName = ""
CDL1.Filter = "ICO文件(.ico)|*.ico"
CDL1.ShowOpen
If CDL1.FileName = "" Then Exit Sub
On Error Resume Next
Image1.Picture = LoadPicture(CDL1.FileName)
End Sub
Private Sub Command3_Click()
CDL1.DialogTitle = "选择一个图标文件"
CDL1.FileName = ""
CDL1.Filter = "ICO文件(.ico)|*.ico"
CDL1.ShowOpen
If CDL1.FileName = "" Then Exit Sub
On Error Resume Next
Image3.Picture = LoadPicture(CDL1.FileName)
End Sub
Private Sub Command2_Click()
If MsgBox("确定要替换吗？", vbYesNo, Me.Caption) = vbYes Then Me.Icon = Image1.Picture
Image2.Picture = Me.Icon
End Sub
Private Sub Command4_Click()
If MsgBox("确定要替换吗？", vbYesNo, Me.Caption) = vbYes Then Me.Icon = Image3.Picture
Image2.Picture = Me.Icon
End Sub
Private Sub Form_Load()
Me.Caption = "图标替换小程序"
Label1.Caption = "当前图标："
Label1.Top = 120
Label1.Left = 240
Label2.Caption = "可替换的图标："
Label2.Top = 1320
Image2.Picture = Me.Icon
Image2.Left = 720
Image2.Top = 360
Image1.Picture = Me.Icon
Image1.Left = 240
Image1.Top = 1680
Image3.Picture = Me.Icon
Image3.Left = 1800
Image3.Top = 1680
Command1.Caption = "更改"
Command3.Caption = "更改"
Command2.Caption = "使用"
Command4.Caption = "使用"
Command1.Left = 0
Command1.Top = 2640
Command2.Left = 600
Command2.Top = 2640
Command3.Left = 1440
Command3.Top = 2640
Command4.Left = 2040
Command4.Top = 2640
Me.Height = 3630
Me.Width = 2700
End Sub

简单的图标替换程序

你试试

上格调网，一定有，主题，指针，图标等。网址： http://bbs.dzart.net/