文件夾的圖標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) 圖標的功能等等。