用VisualBasic设计个性化文件夹图标
抛弃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
PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"(ByVallpApplicationNameAsString,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。
- 最新文章
- 用Winsock控件实现文件的下载[04-17]
- VB的坐标系统综述[04-17]
- 如何在VB6.0中创建和使用文本资源文件[04-17]
- 在VB6.0中实现动态统计报表[04-17]
- VisualBasic程序创建闪烁(标语)屏[04-17]
- 在VisualBasic中判断Windows9x的运行模式[04-17]
- 相关文章
- VisualBasic程序创建闪烁(标语)屏[04-17]
- 在VisualBasic中判断Windows9x的运行模式[04-17]
- VisualBasic开发应用程序如何使用INI文件[04-17]
- 通过VisualBasic获取网卡地址[04-17]
- VisualBasic程序中如何启动默认的拨号连接[04-17]
- 设置对VisualBasic数据库连接的动态路径[04-17]
