VB中如何用图片框显示一个指定文件的图标？（任意格式）

来源：百度知道 编辑：UC知道 时间：2024/09/22 18:13:55
如果图片框不行，其他控件也可以
我指的是，任意一个文件所关联程序的文件图标，也就是说先识别这个文件的关联程序，再显示此程序的文件图标，1-3楼全不对

PICTURE1.PICTURE=LOADPICTURE("C:\SASSS.ICO")
EXE文件可以这样提取:
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 Long

Private Sub Command1_Click()
Dim a As Long
a = ExtractIcon(App.hInstance, "H:\.....", 0)
a = DrawIcon(Picture1.hdc, 0, 0, a)
End Sub

LoadPicture 函数
将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。
语法
LoadPicture([filename], [size], [colordepth],[x,y])

示例
Form1.Picture = LoadPicture("Picture..bmp")
Picture1.Picture = LoadPicture("Picture..bmp")
Image1.Picture = LoadPicture("Picture..bmp")

这个函数可以支持位图(.bmp)、图标(.ico)、元文件(.wmf)、增强元文件(.emf)、GIF(.gif) 和 JPEG