用VisualBasic設計個性化文件夾圖標

2019-11-18 17:41:41

字體：大中小

來源：轉載

供稿：網友

拋棄Windows的默認圖標吧，讓自己的程序所在的目錄擁有個性化的FolderIcon！其實作起來簡單得很，實際上只需要一個Desktop.ini文件即可，下面我會從兩個方面說明。

　　1.手動方式：　

　　首先要在需要改變的文件夾中創建一個Desktop.ini文件，例子如下：

->[.ShellClassInfo]
ConfirmFileOp=0
InfoTip=我自己的文件夾
IconIndex=0
IconFile=MyFolder.ico->

　　解釋：

　　參數ConfirmFileOp設為0--防止用戶在移動或刪除此文件夾時彈出的“你正在刪除系統目錄”的警告。

　　參數IconFile指定為將要改變的圖標文件的位置，可以是Icon、Bmp、exe或者dll文件，上例中的圖標文件也放置到同一目錄中。

　　參數IconIndex就可以指定文件的索引，如果此圖標文件是Icon文件的話，IconIndex就設為0。

　　參數InfoTip用來設定此Folder在Windows中的Tooltip。

　　下一步打開CMD（命令提示符），輸入：

->attrib si:/MyFolder->

　　i:/MyFolder指的就是我要改圖標的目錄的路徑。此項操作是讓你的文件夾成為系統文件夾。

　　好了，經過手動處理后現在的目錄已經改變了風格。

　　2.編程方式：

　　這種方式是用我喜歡的VB來實現的，實現起來也同樣Easy。

　　只需要兩個API函數，一個用來操作Ini文件的建立，另一個的功能等同于手動方式中的attrib s。

->OptionExplicit
applicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsAny,ByVallpFileNameAsString)AsLong
PrivateDeclareFunctionPathMakeSystemFolderLib"shlwapi.dll"Alias"PathMakeSystemFolderA"(ByValpszPathAsString)AsLong

PrivateSubForm_Load()
　'以下幾步用于創建Desktop.ini文件
　'不存在ini文件時，會自己創建ini
　WritePrivateProfileString".ShellClassInfo","ConfirmFileOp","0",App.Path&"/desktop.ini"
　WritePrivateProfileString".ShellClassInfo","InfoTip","我的文件夾因此而改變",App.Path&"/desktop.ini"
　WritePrivateProfileString".ShellClassInfo","IconIndex","0",App.Path&"/desktop.ini"
　WritePrivateProfileString".ShellClassInfo","IconFile","MyFolder.ico",App.Path&"/desktop.ini"
　'讓文件夾成為系統文件夾
　PathMakeSystemFolderApp.Path
EndSub->

　　需要進一步說明的是：

->WritePrivateProfileString".ShellClassInfo","IconFile","MyFolder.ico",App.Path&"/desktop.ini"->

　　可以改為：

->WritePrivateProfileString".ShellClassInfo","IconFile",App.EXEName&".exe",App.Path&"/desktop.ini"->

　　果你使用的是主窗口的圖標的話，VB編譯后的程序的圖標的索引也是使用的0。->

上一篇：VB設計Win2000下截獲IP數據包程序

下一篇：VB中使用DDE技術為應用程序增輝