请问 common dialog 控件如何设定选择目录还是选择文件？

请问   common   dialog   控件如何设定选择目录还是选择文件？ 问题点数：20、回复次数：4Top

1 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2006-02-07 14:51:34 得分 5

http://community.csdn.net/Expert/topic/4537/4537504.xml?temp=.3551294Top

2 楼whachun（jakly）回复于 2006-02-08 17:10:23 得分 5

它只能选择文件，不能选择目录  
  要想选择目录得用APITop

3 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2006-02-08 17:21:51 得分 5

选择目录用SHBrowseForFolderTop

4 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-02-10 13:52:25 得分 5

Private   Type   BrowseInfo  
          hWndOwner   As   Long  
          pIDLRoot   As   Long  
          pszDisplayName   As   Long  
          lpszTitle   As   Long  
          ulFlags   As   Long  
          lpfnCallback   As   Long  
          lParam   As   Long  
          iImage   As   Long  
  End   Type  
  Const   BIF_RETURNONLYFSDIRS   =   1  
  Const   MAX_PATH   =   260  
  Private   Declare   Sub   CoTaskMemFree   Lib   "ole32.dll"   (ByVal   hMem   As   Long)  
  Private   Declare   Function   lstrcat   Lib   "kernel32"   Alias   "lstrcatA"   (ByVal   lpString1   As   String,   ByVal   lpString2   As   String)   As   Long  
  Private   Declare   Function   SHBrowseForFolder   Lib   "shell32"   (lpbi   As   BrowseInfo)   As   Long  
  Private   Declare   Function   SHGetPathFromIDList   Lib   "shell32"   (ByVal   pidList   As   Long,   ByVal   lpBuffer   As   String)   As   Long  
  Private   Sub   Form_Load()  
          'KPD-Team   1998  
          'URL:   http://www.allapi.net/  
          'KPDTeam@Allapi.net  
          Dim   iNull   As   Integer,   lpIDList   As   Long,   lResult   As   Long  
          Dim   sPath   As   String,   udtBI   As   BrowseInfo  
   
          With   udtBI  
                  'Set   the   owner   window  
                  .hWndOwner   =   Me.hWnd  
                  'lstrcat   appends   the   two   strings   and   returns   the   memory   address  
                  .lpszTitle   =   lstrcat("C:\",   "")  
                  'Return   only   if   the   user   selected   a   directory  
                  .ulFlags   =   BIF_RETURNONLYFSDIRS  
          End   With  
   
          'Show   the   'Browse   for   folder'   dialog  
          lpIDList   =   SHBrowseForFolder(udtBI)  
          If   lpIDList   Then  
                  sPath   =   String$(MAX_PATH,   0)  
                  'Get   the   path   from   the   IDList  
                  SHGetPathFromIDList   lpIDList,   sPath  
                  'free   the   block   of   memory  
                  CoTaskMemFree   lpIDList  
                  iNull   =   InStr(sPath,   vbNullChar)  
                  If   iNull   Then  
                          sPath   =   Left$(sPath,   iNull   -   1)  
                  End   If  
          End   If  
   
          MsgBox   sPath  
  End   Sub  
  Top

相关问题

• .net
• 选择
• 文件
• 选择目录
• longprivate
• browseinfo
• long
• byval
• lib
• declare function

• 帖主：irischenxi
• zyl910
• whachun
• zyl910
• ZOU_SEAFARER

• Visual Basic类图书
• Visual Basic类源码下载