国产探花免费观看_亚洲丰满少妇自慰呻吟_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。->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 石嘴山市| 策勒县| 图片| 平舆县| 台安县| 钟山县| 龙游县| 上栗县| 崇仁县| 平塘县| 陵川县| 沈阳市| 理塘县| 景东| 泸水县| 沁源县| 历史| 来凤县| 佛坪县| 博兴县| 汉沽区| 汾西县| 辽宁省| 霍山县| 木兰县| 抚远县| 古交市| 高陵县| 喜德县| 桦甸市| 正安县| 景宁| 壤塘县| 华蓥市| 瑞安市| 长葛市| 乾安县| 肇庆市| 蓬莱市| 望奎县| 宜君县|