UINT ExtractIconEx(
LPCTSTR lpszFile,
int nIconIndex,
HICON FAR *phiconLarge,
HICON FAR *phiconSmall,
UINT nIcons
);
see msdn
LPCTSTR lpszFile,
int nIconIndex,
HICON FAR *phiconLarge,
HICON FAR *phiconSmall,
UINT nIcons
);
see msdn
解决方案 »
- vb中如何修改照片的尺寸
- 送所有分,帮忙解释下计算库存的代码
- <TO:fvflove >关于"怎样实现数据的保存?"帖子的后续问题!
- 北大青鸟ACCP4.0
- 如何获得MS的安全补丁下在地址?有啥规律吗?
- 关于Adodc1与数据库问题?
- 求教adodb中问题,分少可以继续加
- (当前日期+月数)然后保存到数据库的日期字段中去?????????????
- 请问怎么在IE添加任务栏按钮改注册表后的图片格式是怎样的?具体怎么制作啊。
- 新人求助 !VB+ACCESS SQL计算库存代码
- Adodc1.Recordset.RecordCount问题!?急!!1
- activereport控件在vb components 中选择什幺?
HINSTANCE hInst, // instance handle
LPCTSTR lpszExeFileName, // filename of file with icon
UINT nIconIndex // index of icon to extract
);
http://www.wzjcw.net/vbgood/taishan/index.html
此处下载原代码http://507www.go.163.com/file/tqtb.zip
绝对好看易懂
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Sub Command1_Click()
Dim total As Long
Dim p(50) As Long
Dim i As Integer
Me.Picture1.Cls
Me.CommonDialog1.Filter = "图标|*.Exe;*.Ico;*.Dll"
Me.CommonDialog1.ShowOpen
If Dir(Me.CommonDialog1.filename) <> "" Then
If ExtractIcon(App.hInstance, Me.CommonDialog1.filename, -1) = 0 Then '如果没有图标
MsgBox "No Icon!"
Else
total = ExtractIcon(App.hInstance, Me.CommonDialog1.filename, -1)
'取得总图标数
For i = 0 To total - 1
p(i) = ExtractIcon(App.hInstance, Me.CommonDialog1.filename, i) '读取每个图标
Next i
For i = 0 To total - 1 '依次显示每个图标
DrawIcon Picture1.hdc, 34 * i, 0, p(i)
Next i
End If
End If
End Sub