资源描述：
《vb快速调用系统对话框上》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、VB快速调用系统对话框上Windows系统给我们提供了许多非常实用的功能，而且都是以对话框的形式展现在用户眼前，比如：查找文件、浏览选择后执行程序，等等…如果我们能在程序中以简练的代码快速调用它们，就可以移花接木般地达到需要的冃的。这样，既省却了再次编写繁琐代码的过程，又能让程序快速执行（调用系统内核模块，能不快吗人_人）。以下就列举几个这样的例了:•快速调用“查找文件对话框”•快速调用“系统重新启动对话框”•快速调用“程序运行对话框”•快速调川“文件属性对话框”•快速调用“软盘格式化对话框"•快速调用“网络资源映射对话框"•快速调用“查找文件对话框”快速
2、调用“查找文件对话框”在Windows环境中，如果耍查找一个文件，通常情况下采取的步骤是：1、确定查找文件所在的文件夹范围2、按热键F33、在岀现的“查找：所有文件”窗口中，输入各个项目。是不是冇点复杂。在VB程序中，能否通过点击一个按钮，就出现第3步的“查找：所有文件"？答案是肯定的！代码如下：'声明API两数DeclareFunctionShellExecuteLib"shell32.dll"Alias_nShelIExecuteA"（ByVaihwndAsLong,ByVaiIpOperation_AsString,ByVailpFileAsStri
3、ng,ByVaiIpParametersAsString,ByVailpDircctoryAsString,ByVainShovvCmdAsLong)AsLong'定义常最参数ConstSW_SHOW=5'通用调用查找对话框函数PublicSubShowFindDialog(OptionalInitialDirectoryAsString)ShellExecute0,"find",_IIf(InitialDircctory=””，InitialDirectory),_vbNullString.vbNullString,SWSHOWEndSub'调用查找对话
4、框例程CallShowFindDialog("C:ProgramFiles")调用的代码ShowFindDialog("C:ProgramFiles"),非常简练。注意：如果括号屮的参数不是一个合法的目录名，这一行调用命令将不会产生任何结果。如果参数为空，就等于选择了当前冃录。快速调用“系统重新启动对话框”我们在安装应用软件时，经常遇到安装结束吋要求用户重浙启动机器的确认对话框，这时系统将根据用八的选择重新启动，或者暂时退岀安装，等待用户手工重新启动机器。其实,在我们的应用程序屮，町以用很少的代码就调用岀系统本身的重新启动对话框，真的是非常的快捷！代码
5、是：'声明API函数PrivateDeclareFunctionSHRestartSystemMBLibnshell32nAlias”#59”(ByVaihOwnerAsLong,ByVaisExtraPromptAsString,ByVaiuFlagsAsLong)AsLong，定义系统重新启动常赧参数PrivateConstSystcmChangcRcstart=4'通用系统川动过程PublicSubScttingsChangcd(FormNamcAsForm)SHRestartSystemMBFormName.hWnd,vbNullString,Sy
6、stemChangeRestartEndSub'调用例程SettingsChangedForml运行一下，看看实际的效果图：直接使用系统内在的功能，省得自己去绘制表单了，不仅实现的功能可以很严谨，而且样子还很专业呢！快速调用“程序运行对话框”-•般情况F,当我们需要在VB程序屮调川一个外部.exe或者.com程序时，一般要用到shell命令。它提供了一种非常简捷的方式让我们执行一个确定的外部程序。但缺点也显现出了，就是它不提供用户选择执行程序的功能。你也许还记得这样的经历：我们用鼠标点击桌面左小角的“开始"，在选择“运行”，这时，就出现了一个“运行”对话框
7、：你可以在这里肓接输入要执行的程序全路径，或者，点击“浏览”按钮，选择一个程序。耍达到同样的效果，请使用下面的代码：'声明API两数'引用了未公开的DLL文件shcll32PrivateDeclareFunctionSHRunDialogLibnshell32"_Alias”#61”(ByVaihOwnerAsLong,ByVaiUnknownPl_AsLong,ByVaiUnknovvnP2AsLong,ByVaiszTitlcAsString.ByVaiszPromptAsString,ByVaiuFlags_AsLong)AsLong'通用调用运行対
8、话框过程參数Title表示对话框的标题，参数Description
