转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> VB.NET程序 >> 正文
用Visual Basic设计个性化文件夹图标         ★★★★

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

作者:闵涛 文章来源:闵涛的学习笔记 点击数:700 更新时间:2009/4/23 15:03:15
  抛弃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。


[VB.NET程序]用Visual Basic创建复杂窗体  [VB.NET程序]用Visual Basic编程建立自己的回收站
[VB.NET程序]用Visual Basic 6.0实现自动化测试  [VB.NET程序]用Visual Basic学做“黑客”程序
[VB.NET程序]用Visual Basic实现undo功能  [VB.NET程序]用Visual Basic为软件增加注册功能
[VB.NET程序]用Visual Basic设计手机短信收发程序  [VB.NET程序]用Visual Basic6.0实现电影特效
[VB.NET程序]用Visual Basic设计抽奖程序  [VB.NET程序]用Visual Basic进行多媒体设计
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台