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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 大冶市| 新源县| 许昌市| 胶州市| 宜黄县| 军事| 兴安县| 布拖县| 古田县| 应城市| 孟州市| 永定县| 桃园县| 晋州市| 静乐县| 壶关县| 库伦旗| 游戏| 汉川市| 保山市| 沛县| 岳阳县| 图们市| 长葛市| 永德县| 白银市| 休宁县| 涟水县| 临沂市| 饶平县| 西林县| 北碚区| 什邡市| 太白县| 汤阴县| 三都| 舒兰市| 烟台市| 射阳县| 大宁县| 克什克腾旗|