文件夹的图标vb

A. VBA 如何显示文件夹，就是只打开文件夹就可以了

直接使用Shell函数，使用explorer.exe来打开文件夹即可。代码如下：

Subshowdir()
Shell"explorer.exeD:dir",vbNormalFocus
EndSub

效果如下：

Shell 函数说明
运行可执行程序并在成功时返回表示程序的任务 ID 的 Variant (Double)，否则返回零。
语法
Shell(pathname[,windowstyle])
Shell 函数语法具有以下命名参数：
组成部分
说明
pathname
必需；Variant (String)。要执行的程序的名称以及任何必需的参数或命令行开关；可能包括目录或文件夹和驱动器。在 Macintosh 中，可以使用 MacID 函数指定应用程序的签名，而不是名称。以下示例使用 Microsoft Word 的签名：
Shell MacID("MSWD")
windowstyle
可选。与要运行程序的窗口的样式对应的 Variant (Integer)。如果省略 windowstyle，程序将启动并最小化，但会获得焦点。在 Macintosh（System 7.0 或更高版本）中，windowstyle 只确定应用程序在运行时是否获得焦点。
windowstyle 命名参数具有以下值：
常量 值 说明
vbHide 0 隐藏窗口并将焦点传递给隐藏的窗口。vbHide 常量在 Macintosh 平台中不适用。
vbNormalFocus 1 窗口获得焦点，并还原到其原始尺寸和位置。
vbMinimizedFocus 2 窗口显示为具有焦点的图标。
vbMaximizedFocus 3 窗口最大化并具有焦点。
vbNormalNoFocus 4 窗口还原到最近的尺寸和位置。当前活动的窗口仍保持活动状态。
vbMinimizedNoFocus 6 窗口显示为图标。当前活动的窗口仍保持活动状态。
注释
如果 Shell 函数成功执行命名文件，它将返回已启动程序的任务 ID。任务 ID 是标识正在运行的程序的唯一编号。如果 Shell 函数无法启动指定的程序，则会发生错误。
在 Macintosh 中，vbNormalFocus、vbMinimizedFocus 和 vbMaximizedFocus 都将应用程序放在前台；vbHide、vbNoFocus、vbMinimizeFocus 都将应用程序放在后台。

B. VB怎么修改应用程序的图标

1、打开Visual Basic 6.0软件，新建一个exe的工程，点击form1，打开其属性Icon的输入框，打开要使用的图标文件(xxx.ico).

C. VB图标问题

1.与大小无关，与显示的分辨率无关。一个图标文件中含有多张图片，一般有16*16,32*32的（单位：象素）。XP下的图标比较特殊，颜色丰富且大多是48*48的。而VB只支持256色的图标，所以如果一个图标中不含256色格式的图片，则不能在VB中使用。
2.必须用程序中某一个窗体图标。具体步骤：菜单“工程”－“XX属性”,xx是指你的工程名，在弹出的属性窗口上点“生成”项，找到“图标”对应的下拉列表，列表中是所有的窗体，选择其中一个既可。
3.首先双击某个窗体，如果属性窗口已打开，则在属性窗口中找到“Icon”一项，点击，可看到“...”这样的按钮，点按钮，就弹出打开文件按钮，选择所要的图标既可。如果属性窗口没打开，可在此打开：菜单“视图”－“属性窗口”。
满意请采纳。

D. vb获取文件图标

我以前用过一个提取指定文件图标的代码，要用到API函数，你可以参考一下

'模块中的代码

Option Explicit
Public Const SHGFI_DISPLAYNAME = &H200
Public Const SHGFI_EXETYPE = &H2000
Public Const SHGFI_LARGEICON = &H0
Public Const SHGFI_SHELLICONSIZE = &H4
Public Const SHGFI_SMALLICON = &H1
Public Const SHGFI_SYSICONINDEX = &H4000
Public Const SHGFI_TYPENAME = &H400
Public Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Public Const MAX_PATH = 260
Public Const ILD_TRANSPARENT = &H1
Public Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH
szTypeName As String * 80
End Type
Public Declare Function SHGetFileInfo Lib _
"shell32.dll" Alias "SHGetFileInfoA" _
(ByVal pszPath As String, _
ByVal dwFileAttributes As Long, _
psfi As SHFILEINFO, _
ByVal cbSizeFileInfo As Long, _
ByVal uFlags As Long) As Long
Public Declare Function ImageList_Draw Lib "comctl32.dll" _
(ByVal himl As Long, ByVal i As Long, _
ByVal hDCDest As Long, ByVal x As Long, _
ByVal y As Long, ByVal flags As Long) As Long
Public shinfo As SHFILEINFO
Public Const SHGFI_USEFILEATTRIBUTES = &H10
Public Const SHGFI_ICON = &H100
'===================================================
'新建一个窗体，在窗体上添加一个TextBox用来输入文件路径
'和两个picturebox用来显示提取到的图标
'以下是窗体中的代码
Private Sub Picture2_Click()
VB.SavePicture Picture2, App.Path & "\ico.ico"
End Sub

Private Sub Text1_Change() '要显示的图标路径
Dim hImgSmall As Long
Dim fName As String '驱动器号、文件夹名、文件名
Dim r As Long
Dim hImgLarge As Long
Dim Info1 As String, Info2 As String
fName = Text1.Text
hImgSmall& = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), SHGFI_ICON Or SHGFI_SMALLICON Or SHGFI_SYSICONINDEX Or SHGFI_USEFILEATTRIBUTES)
hImgLarge& = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), SHGFI_ICON Or BASIC_SHGFI_FLAGS Or SHGFI_SYSICONINDEX Or SHGFI_USEFILEATTRIBUTES)
Info1 = Left$(shinfo.szDisplayName, InStr(shinfo.szDisplayName, Chr$(0)) - 1)
Info2 = Left$(shinfo.szTypeName, InStr(shinfo.szTypeName, Chr$(0)) - 1)
Debug.Print Info1; Info2
Picture1.Picture = LoadPicture()
Picture1.AutoRedraw = True
Picture2.Picture = LoadPicture()
Picture2.AutoRedraw = True
r = ImageList_Draw(hImgSmall&, shinfo.iIcon, Picture1.hDC, 0, 0, ILD_TRANSPARENT)
r = ImageList_Draw(hImgLarge&, shinfo.iIcon, Picture2.hDC, 3, 3, ILD_TRANSPARENT)
Set Picture1.Picture = Picture1.Image
Set Picture2.Picture = Picture2.Image
End Sub

E. 用VB自定义文件夹图标的问题

ChangeFolderInfo sPath '调用 ChangeFolderInfo 过程, 传入参数 sPath

With CommonDialog1 '这是公用对话框控件
.Filter = "(*.ico)|*.ico" '指定公用对话框中的文件类型
.DialogTitle = "查找图标" '指定公用对话框的标题
.ShowOpen '让公用对话框显示常见的"打开文件"对话框
s = .FileName '获取用户在"打开文件"对话框中选择的文件名
End With

F. VB中怎样图标

VB
所需要的是ICO格式的图标..在Form里面的属性里面就有。。
比如你有一张图片..想将他转变为ico格式的..需要转换
给你提供一个在线转换的地址，非常好的。。。我经常用
http://www.html-kit.com/favicon/-/selpic-2/
虽然是英文的..
但一看就会的..还有什么问题的话，看一联系我.

G. 如何用VB打造带图标的DLL文件

专用工具Axialis IconWorkshop
下载
http://www.ote.com/soft/2187.html

用该工具做好ico后，创建一个图标库，把ico拖进去，另存为dll文件就OK。

很快很方便。

介绍：

Axialis IconWorkshop（以前的版本叫 AX-Icons）是一款功能强大的图标设计工具。它被用来创建、提取、转换、管理和发布 Windows(R) 图标。通过它，你能创建、导入和保存所有的 Windows (R) 图标(ICO)和图标库(ICL)。它支持新的带 Alpha 通道图像（a.k.a. 平滑透明度）的 Windows XP 图标。在这个版本中，你甚至可以打开 Macintosh(R) 图标并将其转换为 Windows(R) 格式。 Axialis IconWorkshop 将许多的特殊功能完美的整合在一个工作区中。这些功能随时都方便易用：内置的浏览器可以用缩略图的形式浏览文件，在硬盘上查找包含图标的图像和文件；内置的管理器帮助你有效的管理图标和图标库；通过图像载入和查看器，仅需单击就可以从图像创建图标；编译向导能帮助你用图标库创建可发布的安装软件包（如果需要还可以设激活代码）；它能读取从 16x16 单色到 OS-X 128x128 alpha 通道缩略图格式的 Macintosh(R) 图标，并能导入或导出 Adobe(R) Photoshop(R) PSD 格式和带透明 Alpha 通道的 PNG 和 BMP 图像。其内置了不少滤镜（模糊、平滑、锐化、细节、等高线、浮雕等）和图像调整器（色调、饱和度、亮度、对比度等）以及其它工具（缩放尺寸、任意角度转动、翻转、XP 阴影等）；增强的与 Adobe(R) 和 Jasc(R) 色彩文件相兼容的色板和调色板管理系统；还有自定义 Windows(R) 图标的功能等等。