用Visual Basic设计个性化文件夹图标

原创 2005年02月28日 10:23:00
开发者网络 > 开发工具 > 开发专栏 > VB > 正文

  抛弃Windows的默认图标吧,让自己的程序所在的目录拥有个性化的Folder Icon!其实作起来简单得很,实际上只需要一个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 +s i:/MyFolder

  i:/MyFolder指的就是我要改图标的目录的路径。此项操作是让你的文件夹成为系统文件夹。

  好了,经过手动处理后现在的目录已经改变了风格。

  2. 编程方式:

  这种方式是用我喜欢的VB来实现的,实现起来也同样Easy。

  只需要两个API函数,一个用来操作Ini文件的建立,另一个的功能等同于手动方式中的attrib +s。

Option Explicit
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function PathMakeSystemFolder Lib "shlwapi.dll" Alias "PathMakeSystemFolderA" (ByVal pszPath As String) As Long

Private Sub Form_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"
 '让文件夹成为系统文件夹
 PathMakeSystemFolder App.Path
End Sub

  需要进一步说明的是:

WritePrivateProfileString ".ShellClassInfo", "IconFile", "MyFolder.ico", App.Path & "/desktop.ini"

  可以改为:

WritePrivateProfileString ".ShellClassInfo", "IconFile", App.EXEName & ".exe", App.Path & "/desktop.ini"

  果你使用的是主窗口的图标的话,VB编译后的程序的图标的索引也是使用的0。

用Visual Basic设计个性化文件夹图标

抛弃Windows的默认图标吧,让自己的程序所在的目录拥有个性化的Folder Icon!其实作起来简单得很,实际上只需要一个Desktop.ini文件即可,下面我会从两个方面说明。   1. 手动方...
  • vbcrack
  • vbcrack
  • 2005年03月02日 17:13
  • 731

使用 Visual Basic 设计 Python 的 GUI:Visual Tkinter

Visual Basic 确实比较傻瓜,GUI 拖放就能够完成。而 Python 的 GUI 开发要相对复杂一点,wxPython、PyQt 这样的库,有点重量级,自带的 tkinter 比较轻便,但...
  • tooktang
  • tooktang
  • 2013年09月03日 19:01
  • 3073

Visual Basic设计仿QQ2011登陆窗口的思路

QQ2011的登陆窗口很美观,如果我们要设计登陆窗口,可以效仿之,一定会为程序增色不少。笔者近期做课程设计,要求用VB+数据库设计一个管理软件,此软件应设置登陆窗口,于是我决定模仿QQ2011的登陆窗...
  • lionelluthor
  • lionelluthor
  • 2011年12月14日 18:45
  • 1542

vbs(Visual Basic Script) 笔记

vbs(Visual Basic Script) 笔记   VBS是基于微软公司可视化Visual Basic的脚本语言,不编译成二进制文件, 直接由宿主(host)解释源代码并执行。 vbsVi...
  • timyao17
  • timyao17
  • 2016年12月19日 17:40
  • 424

Visual Basic.net还是C# ——如何选择.net语言

                        Visual Basic.net还是C#                                                ——如何选择.n...
  • cyz1980
  • cyz1980
  • 2007年04月10日 09:02
  • 1413

[转]visual basic 6.0遍历文件夹下所有文件

sPath是所查找的文件夹的路径,list是返回的文件列表          Public Function GetAllFiles(ByVal sPath As String, list As Co...
  • roofwei
  • roofwei
  • 2009年03月11日 23:02
  • 614

使用Visual Basic访问数据库几个注意的问题

使用Visual Basic访问数据库几个注意的问题作者:张嵘Visual Basic 3.x For Windows是一门开发Windows应用程序很好的一种语言,使用它能够开发出大型的应用系统。它...
  • zxlkxy
  • zxlkxy
  • 2002年02月07日 18:19
  • 666

同时使用 Visual Basic 6 和 Visual Basic.NET 的最佳做法

 本页内容 概述 了解 Visual Basic 6...
  • naive1010
  • naive1010
  • 2006年07月05日 19:13
  • 2738

Visual Basic 6.0安装教程

Visual Basic 6.0安装教程 1、准备工作: 下载软件 2、安装Visual Basic 6.0的步骤 ① 把下载的压缩包解压出来。 ② 在解压出来的文件夹VB60...
  • u013677841
  • u013677841
  • 2014年02月16日 17:35
  • 989

Visual Basic for Applications 学习笔记(一)

一 创建新工作簿 如果要用 Visual Basic 创建新的工作簿,应使用 Add 方法。下述过程创建了新工作簿。Microsoft Excel 自动将该工作簿命名为“BookN”,其中 N 是下一...
  • DeRoshia
  • DeRoshia
  • 2007年01月19日 14:16
  • 806
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用Visual Basic设计个性化文件夹图标
举报原因:
原因补充:

(最多只允许输入30个字)