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

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

自定義指定文件夾的圖標

2019-11-18 17:27:04
字體：大 中 小
來源：轉載
供稿：網友
編程思路：按一定格式在文件夾中建立Desktop.ini文件并將文件夾的屬性設置為系統屬性即可自定義文件夾的圖標。文件的建立不難，關鍵是更改文件夾屬性，得用上VB的內部函數Attributes來實現。

Desktop.ini文件格式：
[.ShellClassInfo]
IconIndex=0
iconfile=Icon圖標所在的驅動器我 路徑名 文件名

下面是完整的程序代碼。使用前請給工程添加一個按鈕、一個公共對話框、一個DriveListBox和一個DirListBox。

OptionExplicit

DimsPathAsString'文件夾變量

Print#1,"[.ShellClassInfo]" vbCrLf "IconIndex=0" vbCrLf "iconfile=" s
Close#1

ChangeFileInfo(sPath "/" "desktop.ini")
EndSub

'賦予文件夾系統屬性子程序
PrivateSubChangeFolderInfo(folderspec)
Dimfs,f
Setfs=CreateObject("Scr

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 泰宁县| 苏尼特右旗| 辽源市| 青河县| 浏阳市| 西林县| 洛宁县| 南江县| 万安县| 丰原市| 贡觉县| 苏尼特右旗| 靖边县| 沁阳市| 荆门市| 樟树市| 平泉县| 阿合奇县| 盐城市| 吴江市| 山东省| 咸丰县| 城市| 玉溪市| 迁安市| 勃利县| 龙门县| 缙云县| 北碚区| 农安县| 临澧县| 义马市| 潮安县| 溆浦县| 广宁县| 襄垣县| 蒙山县| 堆龙德庆县| 连平县| 资阳市| 铜梁县|