vb 获取可执行文件的图标(如魔兽,CS),并在VB的Form中以显示背景的方式显示

Question

vb 获取可执行文件的图标(如魔兽,CS),并在VB的Form中以显示背景的方式显示
请高手指点.谢了

Answer 1

'1、先加入一个PictureBox，将Visible属性设置为False；
'2输入以下代码?
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As LongPrivate Sub Form_load()
    Dim hIcon As Long    
    hIcon = ExtractIcon(App.hInstance, "c:\test.exe", 0)
    Picture1.AutoRedraw = True
    DrawIcon Picture1.hdc, 0, 0, hIcon
    Me.Picture = Picture1.Image ' 这是技巧
End Sub

Answer 2

Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As LongPrivate Sub Form_load()
    Dim hIcon As Long
    hIcon = ExtractIcon(App.hInstance, "c:\工程人.exe", 0)
    Me.AutoRedraw = True
    DrawIcon Me.hdc, 0, 0, hIcon
End Sub

Answer 3

谢谢
faysky2(出来混，迟早是要还嘀) ( ) 
请问怎样把这个图标提取出来,加入到一个imagelist中呢?

Answer 4

这里有你要的：http://community.csdn.net/Expert/topic/4606/4606302.xml?temp=.8793756

Answer 5

再次谢谢
faysky2(出来混，迟早是要还嘀) ( ) 
请问怎样把获得的图标存成文件的形式,如存成ICO?