首页 >> 读书频道 >> 电脑 >> VB快速调用系统对话框上
 
· 创建一个新类,即可调用该
· Enc-Base64位加
· 界面设计原则和编程技巧下
· 关于VisualBasi
· 动态改变及恢复屏幕设置上
· 第二部分 文档类型定义
· 实现平面工具栏下
· 第二部分 文档类型定义
· 利用API和注册表获取系
· 第二部分 文档类型定义
· 利用API和注册表获取系
· 第二部分 文档类型定义
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

VB快速调用系统对话框上


查看有无更新版本

关键字:VB 2006-9-17

 

Windows系统给我们提供了许多非常实用的功能,而且都是以对话框的形式展现在用户眼前,比如:查找文件、浏览选择后执行程序,等等 ... 如果我们能在程序中以简练的代码快速调用它们,就可以移花接木般地达到需要的目的。这样,既省却了再次编写繁琐代码的过程,又能让程序快速执行(调用系统内核模块,能不快吗^_^)。以下就列举几个这样的例子: 

●快速调用“查找文件对话框” 

●快速调用“系统重新启动对话框” 

●快速调用“程序运行对话框” 

●快速调用“文件属性对话框” 

●快速调用“软盘格式化对话框” 

●快速调用“网络资源映射对话框” 

●快速调用“查找文件对话框” 

快速调用“查找文件对话框” 
在Windows环境中,如果要查找一个文件,通常情况下采取的步骤是: 

1、确定查找文件所在的文件夹范围 

2、按热键F3 

3、在出现的“查找:所有文件”窗口中,输入各个项目。 

 
是不是有点复杂。在VB程序中,能否通过点击一个按钮,就出现第3步的“查找:所有文件”?答案是肯定的!代码如下: 

'声明API函数 

Declare Function ShellExecute Lib "shell32.dll" Alias _ 

"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _ 

As String, ByVal lpFile As String, ByVal lpParameters _ 

As String, ByVal lpDirectory As String, ByVal nShowCmd _ 

As Long) As Long 

'定义常量参数 

Const SW_SHOW = 5 

'通用调用查找对话框函数 

Public Sub ShowFindDialog(Optional InitialDirectory As String) 

ShellExecute 0, "find", _ 

 IIf(InitialDirectory = "", "", InitialDirectory), _ 

 vbNullString, vbNullString, SW_SHOW 

End Sub 

'调用查找对话框例程 

Call ShowFindDialog("C:\Program Files") 

调用的代码ShowFindDialog("C:\Program Files"),非常简练。注意:如果括号中的参数不是一个合法的目录名,这一行调用命令将不会产生任何结果。如果参数为空,就等于选择了当前目录。 

快速调用“系统重新启动对话框” 
我们在安装应用软件时,经常遇到安装结束时要求用户重新启动机器的确认对话框,这时系统将根据用户的选择重新启动,或者暂时退出安装,等待用户手工重新启动机器。其实,在我们的应用程序中,可以用很少的代码就调用出系统本身的重新启动对话框,真的是非常的快捷!代码是: 

'声明API函数 

Private Declare Function SHRestartSystemMB Lib _ 

"shell32" Alias "#59" (ByVal hOwner As Long, ByVal _ 

sExtraPrompt As String, ByVal uFlags As Long) As Long 

'定义系统重新启动常量参数 

Private Const SystemChangeRestart = 4 

'通用系统启动过程 

Public Sub SettingsChanged(FormName As Form) 

SHRestartSystemMB FormName.hWnd, vbNullString, SystemChangeRestart 

End Sub 

'调用例程 

SettingsChanged Form1 

运行一下,看看实际的效果图: 

 
直接使用系统内在的功能,省得自己去绘制表单了,不仅实现的功能可以很严谨,而且样子还很专业呢! 

快速调用“程序运行对话框” 
一般情况下,当我们需要在VB程序中调用一个外部.exe或者.com程序时,一般要用到shell命令。它提供了一种非常简捷的方式让我们执行一个确定的外部程序。但缺点也显现出了,就是它不提供用户选择执行程序的功能。你也许还记得这样的经历:我们用鼠标点击桌面左小角的“开始”,在选择“运行”,这时,就出现了一个“运行”对话框: 

 
你可以在这里直接输入要执行的程序全路径,或者,点击“浏览”按钮,选择一个程序。 

要达到同样的效果,请使用下面的代码: 

'声明API函数 

'引用了未公开的DLL文件shell32 

Private Declare Function SHRunDialog Lib "shell32" _ 

Alias "#61" (ByVal hOwner As Long, ByVal UnknownP1 _ 

As Long, ByVal UnknownP2 As Long, ByVal szTitle _ 

As String, ByVal szPrompt As String, ByVal uFlags _ 

As Long) As Long 

'通用调用运行对话框过程 

'参数Title表示对话框的标题,参数Description表示对话框中的描述文字 

Public Sub ShowRunDialog(ByRef CallingForm As Form, _ 

Optional Title As String, _ 

Optional Description As String) 

If Title = "" Then Title = "Run" 

If Description = "" Then Description = _ 

"Type the name of a program to open, " & _ 

"then click OK when finished." 

SHRunDialog CallingForm.hWnd, 0, 0, _ 

Title, Description, 0 

End 

VB快速调用系统对话框上

[ 1 ]
VB快速调用系统对话框上 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑