国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

用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。->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 扶余县| 河南省| 凤庆县| 江津市| 礼泉县| 麦盖提县| 贵德县| 嘉禾县| 阜宁县| 通道| 财经| 靖安县| 浦北县| 襄垣县| 平度市| 铅山县| 雅江县| 黄平县| 隆回县| 临湘市| 乐亭县| 威信县| 塘沽区| 略阳县| 宜兴市| 平山县| 达日县| 新宾| 阳信县| 马尔康县| 玛沁县| 册亨县| 乌鲁木齐县| 策勒县| 扎兰屯市| 大悟县| 九龙城区| 拜城县| 乌拉特前旗| 大方县| 沾益县|