64位Windows操作系统下Autocad VBA通用对话框代码

'选择文件夹(http://blog.sina.com.cn/s/blog_55fc7c2f0101mb4t.html)：
Option Explicit
'http://www.mvps.org/access/api/api0002.htm
'Code courtesy of Terry KreftPrivate Type BROWSEINFOhOwner As LongPtrpidlRoot As LongPtrpszDisplayName As StringlpszTitle As StringulFlags As Longlpfn As LongPtrlParam As LongPtriImage As LongEnd TypePrivate Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As LongPrivate Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Const BIF_RETURNONLYFSDIRS = &H1
Public Function BrowseDirectory(szDialogTitle As String) As String
On Error GoTo Err_BrowseDirectoryDim X As Long, bi As BROWSEINFO, dwIList As LongDim szPath As String, wPos As IntegerWith bi'.hOwner = hWndAccessApp.lpszTitle = szDialogTitle.ulFlags = BIF_RETURNONLYFSDIRSEnd WithdwIList = SHBrowseForFolder(bi)szPath = Space$(512)X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)If X ThenwPos = InStr(szPath, Chr(0))BrowseDirectory = Left$(szPath, wPos - 1)ElseBrowseDirectory = ""End If
Exit_BrowseDirectory:Exit Function
Err_BrowseDirectory:MsgBox Err.Number & " - " & Err.DescriptionResume Exit_BrowseDirectory
End Function
Public Sub TestOpeningDirectory()
On Error GoTo Err_TestOpeningDirectoryDim sDirectoryName As StringsDirectoryName = BrowseDirectory("Find and select where to export the Excel report files.")If sDirectoryName <> "" Then MsgBox "You selected the '" & sDirectoryName & "' directory.", vbInformationExit_TestOpeningDirectory:Exit SubErr_TestOpeningDirectory:MsgBox Err.Number & " - " & Err.DescriptionResume Exit_TestOpeningDirectory
End Sub

64位Windows操作系统下Autocad VBA通用对话框代码相关推荐

Weblogic 10.3.5在64位Windows系统下的安装和配置
2011-08-23 Weblogic 10.3.5在64位Windows系统下的安装和配置作者: BeanSoft 日期: 2011-8-23 今天, 笔者将向大家介绍Oracle Weblogi ...
安装ao 服务器为空,如何在64位Windows操作系统中安装现场审计实施系统AO2011
龚泽平 [摘要]对于医院审计.医保审计等各种需要消耗大量内存的审计工作来讲,64位系统具有更加明显的优势.但是当前国家审计署所研发的现场审计实施系统是基于32为系统的,在一定程度上让计算机软硬件都发 ...
如何在64位Windows 10下完美安装pygame
相信能看到这篇文章意味着你已经安装好了某一版本的python以及pip 那么当你访问pygame官方网站http://www.pygame.org/download.shtml发现并没有提供64位的p ...
64位windows 7下成功配置TortoiseGit使用Github服务器
最近感觉自己电脑上的代码太乱了,东一块.西一块--于是决定使用正规的源代码管理软件来管理自己以后写的代码.以前做小项目的时候用过TortoiseSVN,感觉不错,但是速度上有点慢,于是决定尝试一下新东 ...
32/64位Windows 7 下VC9.0编译boost::regex，带ICU
首先,我的是VC9.0,对应的是ICUC4C 4.4.2版本,要先去ICU的主页上下载ICU4C 4.4.2,只需要下载编译好的包就行了. 32位 http://download.icu-projec ...
在64位的操作系统下运行masm
在做汇编实验的时候发现用自己的电脑没法做,说是64位操作系统不兼容,但是出现了下边的界面然后百度一下知道需要下载一个DOSBox,好想是可以虚拟的模拟32位系统,算了,说步骤吧 (1)下载DOSBo ...
将程序移植到64位Windows
作者:Goooder 简介:本文对如何将32位Windows程序平滑的支持和过渡到64位Windows操作系统做出了一个简单而系统的介绍.包括对于64位操作系统的版本,编程模型,一些移植原则甚至包括对 ...
[百度空间] [转]将程序移植到64位Windows
from : http://goooder.bokee.com/2000373.html (雷立辉整理) 简介:本文对如何将32位Windows程序平滑的支持和过渡到64位Windows操作系统做出 ...
Winio驱动在64位windows下无法使用的解决方法
C#在使用WinIo的驱动开发类似按键精灵一类工具的时候,需要对相关的驱动进行注册才能正常启动,找了下资料,资料来自: http://jingyan.baidu.com/article/642c9d3 ...

64位Windows操作系统下Autocad VBA通用对话框代码

64位Windows操作系统下Autocad VBA通用对话框代码相关推荐

最新文章

热门文章