注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

闻新而动

双核动力

 
 
 

日志

 
 
 
 

不用控件如何调用系统的树型路径对话框  

2010-07-27 11:48:04|  分类: 网捞快文 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
不用控件如何调用系统的树型路径对话框
A :       
       
不用控件  调用系统的树型路径对话框(像flashget那种) 

---------------------------------------------------------------  


在窗体中添加 

一个command(command1) 

一个textbox(text1) 

直接把代码拷贝到窗体代码中就好了^_^ 

---------------------------------------- 

Option  Explicit 

 

Private  Type  BROWSEINFO 

        hOwner  As  Long 

        pidlRoot  As  Long 

        pszDisplayName  As  String 

        lpszTitle  As  String 

        ulFlags  As  Long 

        lpfn  As  Long 

        lParam  As  Long 

        iImage  As  Long 

End  Type 

 

Const  BIF_RETURNONLYFSDIRS  =  &H1 

 

Private  pidl  As  Long 

 

Private  Declare  Function  SHGetPathFromIDList  Lib  "shell32.dll"  Alias  "SHGetPathFromIDListA"  (ByVal  pidl  As  Long,  ByVal  pszPath  As  String)  As  Long 

 

Private  Declare  Function  SHBrowseForFolder  Lib  "shell32.dll"  Alias  "SHBrowseForFolderA"  (lpBrowseInfo  As  BROWSEINFO)  As  Long 

 

Private  Sub  Command1_Click() 

Dim  bi  As  BROWSEINFO 

Dim  r  As  Long 

Dim  pidl  As  Long 

Dim  path  As  String 

Dim  pos  As  Integer 

'句柄 

bi.hOwner  =  Me.hWnd 

'展开根目录 

bi.pidlRoot  =  0& 

'列表框标题 

bi.lpszTitle  =  "请选择源文件夹路径:" 

'规定只能选择文件夹,其他无效 

bi.ulFlags  =  BIF_RETURNONLYFSDIRS 

'调用API函数显示列表框 

pidl  =  SHBrowseForFolder(bi) 

'利用API函数获取返回的路径 

path  =  Space$(512) 

r  =  SHGetPathFromIDList(ByVal  pidl&,  ByVal  path) 

 

If  r  Then 

        pos  =  InStr(path,  Chr$(0)) 

        Text1.Text  =  Left(path,  pos  -  1) 

Else 

        Text1.Text  =  "" 

End  If 

End  Sub
  评论这张
 
阅读(417)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017