VB==快速调用系统对话框

VB==快速调用系统对话框(全)

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

'调用例程

Call ShowRunDialog(Me, "Run Dialog", "Choose a program and press OK")

怎么样，输入完以上代码了吗？执行一下看看效果，是不是很满意：

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

为了查看一个文件的大小、创建时间、存取属性（只读、归档、隐藏）等等情况，采取的步骤一般是：

1、定位文件

2、用鼠标右键单击文件

3、在出现的菜单中选择“属性”

这时，就出现了文件属性对话框。比如，对于c:\autoexec.bat实施上面的操作后，图示如下：

这时，我们就能对它的各种属性值进行修改。

在VB开发中，为了实现上面的功能，要应用到ShellExecuteEX函数，具体如下：

'声明结构变量

Private Type SHELLEXECUTEINFO

cbSize As Long

fMask As Long

hwnd As Long

lpVerb As String

lpFile As String

lpParameters As String

lpDirectory As String

nShow As Long

hInstApp As Long

lpIDList As Long

lpClass As String

hkeyClass As Long

dwHotKey As Long

hIcon As Long

hProcess As Long

End Type

'定义常量参数

Const SEE_MASK_INVOKEIDLIST = &HC

Const SEE_MASK_NOCLOSEPROCESS = &H40

Const SEE_MASK_FLAG_NO_UI = &H400

'引用API函数

Private Declare Function ShellExecuteEX Lib "shell32.dll" Alias _ "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long

'通用调用文件属性对话框过程

'第一个参数为欲操作的文件全路径，第二个参数为窗口句柄

Public Sub ShowProps(FileName As String, OwnerhWnd As Long) Dim SEI As SHELLEXECUTEINFO

Dim r As Long

With SEI

.cbSize = Len(SEI)

.fMask = SEE_MASK_NOCLOSEPROCESS Or _

SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI

.hwnd = OwnerhWnd

.lpVerb = "properties"

.lpFile = FileName

.lpParameters = vbNullChar

.lpDirectory = vbNullChar

.nShow = 0

.hInstApp = 0

.lpIDList = 0

End With

r = ShellExecuteEX(SEI)

End Sub

Use

'例程：调用c:\autoexec.bat的属性对话框

Call ShowProps("c:\autoexec.bat", Me.hwnd)

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

我们都已经熟悉了在Windows中格式化软盘的过程，操作步骤一般是：

1、打开“我的电脑”

2、用鼠标右键点击图标“3.5英寸软盘A”

3、在出现的菜单中，选择“格式化”

接着，就出现了下图所示的对话框：

在这个窗口中，再依次选择你对软盘格式化的要求参数。

在VB开发中，通过简捷的代码就能快速地调用这个系统对话框，并且，通过设置不同的调用参数，能够直接选择对话框出现的形式。下面就详细介绍：

'声明API函数

'第2个参数表示调用对话框的具体形式

Private Declare Function GetWindowsDirectory Lib "kernel32" _

Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _

ByVal nSize As Long) As Long

'调用通用软盘格式化对话框

Private Sub cmdFormat(ByVal mystyle As Integer)

Dim rtn As String

Dim Buffer As String

Dim WinPath As String

Buffer = String$(255, 0)

rtn = GetWindowsDirectory(Buffer, Len(Buffer))

WinPath = Left(Trim(Buffer), rtn)

rtn = Shell(WinPath + "\rundll32.exe shell32.dll,SHFormatDrive", mystyle)

End Sub

'调用例程

Private Sub Command2_Click()

Call cmdFormat(1)

End Sub

请注意：上面调用例程中有一个参数，这里是1。根据你的要求不同，可以设置不同数值从而得到初始页面不同的格式化对话框。以下做一个对照：

参数为1的情况：Call cmdFormat(1)

参数为2的情况：Call cmdFormat(2)

参数为4的情况：Call cmdFormat(4)

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

在局域网上，我们经常将服务器上的一个共享目录映射为本地一个盘符，从而能否方便快速地访问网络资源。在VB中，可以用很少的代码就调出映射对话框，请看下面的代码：

'声明API函数

Private Declare Function WNetConnectionDialog Lib "mpr.dll" _

(ByVal hWnd As Long, ByVal dwType As Long) As Long

'网络资源映射对话框

Private Sub ShowMapDrives(hWnd As Long)

WNetConnectionDialog hWnd, 1

End Sub

'调用例程

Private Sub Command2_Click()

Call ShowMapDrives(Me.hWnd)

End Sub

运行程序，下面就是最终的结果：

我们注意到，在上面的代码中，如果将“WNetConnectionDialog hWnd, 1”一行中的1修改为2，执行后将出现打印端口映射对话框：

没有想到吧！竟然能如此方便的获取网络资源！

总结

以上列举了几个调用系统对话框的例子，大家可以看到，全部都使用到了windows的API函数。的确，要善于发现并应用API海洋中的浪花，有了她们，我们的程序开发就不会枯燥，新奇的感觉将不断地涌现！

vb通用对话框

CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。通过运行Windows 帮助引擎控件还能显示帮助。 CommonDialog 控件在Visual Basic 和Microsoft Windows 动态连接库Commdlg.dll 例程之间提供了接口。为了用该控件创建对话框，必须要求Commdlg.dll 在Microsoft Windows \System 目录下。 为了在应用程序中使用CommonDialog 控件，应将其添加到窗体上并设置属性。控件显示的对话由控件的方法决定。运行时，调用相应方法后将显示对话框或执行帮助引擎；设计时在窗体上将CommonDialog 控件显示成一个图标。此图标的大小不能改变。 CommonDialog 控件可以显示如下常用对话框： “打开” “另存为” “颜色” “字体” “打印” 注意无法指定对话框显示在什么地方。 要使用CommonDialog 控件 若未添加CommonDialog 控件，则应从“工程”菜单中选定“部件”，将控件添加到工具箱中。在标记对话的“控件”中找到并选定控件，然后单击“确定”按钮。 单击工具箱中的“CommonDialog”控件并在窗体上绘制该控件。 在窗体上绘制CommonDialog 控件时，控件将自动调整大小。象Timer 控件一样，CommonDialog 控件在运行时不可见。 运行时，请适当使用下表所列方法显示需要的对话。方法显示的对话 ShowOpen 打开 ShowSave 另存为 ShowColor 颜色 ShowFont 字体 ShowPrinter 打印 ShowHelp 调用Windo ws“帮助” 示例代码： 下例显示“打开”对话框然后在信息框中显示所选的文件名： Private Sub Command1_Click()

国家二级VB机试(菜单和对话框)模拟试卷4

国家二级VB机试（菜单和对话框）模拟试卷4 (总分：52.00，做题时间：90分钟) 一、选择题(总题数：26，分数：52.00) 1.以下关于菜单设计的叙述中错误的是 （分数：2.00） A.各菜单项可以构成控件数组 B.每个菜单项可以看成是一个控件 C.设计菜单时，菜单项的“有效”未选，既，表示该菜单项不显示√ D.菜单项只响应单击事件 解析：解析：本题考查菜单的使用。菜单的“有效”属性名为Enabled，用于设定该菜单项是否有效。默认有效，若设置为无效，执行时呈灰色显示，鼠标点击无效。 2. （分数：2.00） A.属性设置有错，存在“标题”与“名称”重名现象√ B.运行程序，序号为“3”的菜单项不显示 C.运行程序，序号为“4”的菜单项不可用 D.运行程序，序号为“53”的菜单项前显示“√” 解析：解析：本题考查菜单的设计。选项A)错误，菜单设计中标题和名称可以重复，名称不能重复；选项 B)、C)和D)均正确。 3.窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单， （分数：2.00） A.在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性(有“√”)√ B.菜单中的横线是在该菜单项的标题输入框中输入了一个“一”(减号)字符 C.在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性(有“√”) D.在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√” 解析：解析：本题考查的考点是菜单。菜单项的“有效”属性是控制菜单项的有效性的。只要把一个菜单项的“有效”属性设置为False，就可以使其失效，运行后该菜单项变为灰色；要在菜单项中插入分隔线应该在标题框中输入“一”菜单项标志，可以通过菜单设计窗口中的“复选”属性设置，当该属性为True 时，相应的菜单项前有“√”标记：弹出菜单由于初始运行时应该不可见，故应去掉“可见”前面的“√”标记。 4.以下打开Visual Basic菜单编辑器的操作中，错误的是 （分数：2.00） A.执行“编辑”菜单中的“菜单编辑器”命令√ B.执行“工具”菜单中的“菜单编辑器”命令 C.单击工具栏中的“菜单编辑器”按钮 D.右击窗体，在弹出的快捷菜单中选择“菜单编辑器”命令 解析：解析：Visual Basic中的菜单通过菜单编辑器建立，可以通过4种方式进入菜单编辑器：执行“工具”菜单中的“菜单编辑器”命令；使用Ctrl+E组合键；单击工具栏中的“菜单编辑器”按钮；在要建立菜单的窗体上单击右键，将弹出一个菜单，然后单击“菜单编辑器”命令。 5.如果一个菜单项的Enabled属性被设置为False，则程序运行时，该菜单项 （分数：2.00） A.不显示 B.显示但无效√

浅谈VB文件对话框

浅谈visual basic文件对话窗 微软提供了通用对话框接口Microsoft Common Dialog Control，为编程 带来了很大方便，利用它可以轻松调用字体、颜色、打印、帮助等对话框，其中最常用的莫过于打开文件对话框，很多朋友都会用，但是未必每个人都能真正掌控它。 在此假定程序里有CommonDialog的一个实例，命名为cd1,对于单个文件的选择，只需令cd1.Action = 1即可，通常不会遇到问题，返回值cd1.FileName 是选定文件的全路径，但是如果要实现多选，还是有一些问题需要解决的，下面来分析两种方法。 操作：从对话框选定多个文件，把文件路径添加到列表List1 方法一：cd1.Flags = 512 '常量cdlOFNAllowMultiselect 的值 '示例代码 Dim i As Integer, j As Integer Dim temp() As String '接收文件名 cd1.Flags = 512 cd1.MaxFileSize = 2048 cd1.FileName = "" cd1.Filter = "歌曲文件|*.MP3|" '查找类型过滤 cd1.Action = 1 If cd1.FileName = "" Then Exit Sub If InStr(cd1.FileName, " ") = 0 Then List1.AddItem cd1.FileName

Else temp = Split(cd1.FileName, " ") For i = 1 To UBound(temp) List1.AddItem temp(0) & temp(i) Next i End If 以上代码的每一行都有其特定作用，有些朋友从网上找了类似的代码，但是改动后总是出错，找不到解决的办法，下面逐行分析。 第一行：Dim i As Integer, j As Integer，变量声明 坚持“先声明后引用，尽可能避免隐式声明”的使用变量原则，养成好的习惯，出错的几率就小很多。 此外在VB6.0中如Dim a,b as Integer的声明语句仅仅把第一项a声明为整形变量，后边的均为变体Variant型，可用MsgBox TypeName(b)语句测试。 所以尽量对于每个变量在声明时都指明其类型，不过在https://www.wendangku.net/doc/da13394325.html,中，声明方面已被合理修改。 第二行：Dim temp() As String，数组声明 temp()数组用于存放cd1返回的单个文件名。对于cd1.Flags = cdlOFNAllowMultiselect的情况返回值稍复杂些。如果选中的是单个文件，自不必说，直接用 返回值cd1.FileName即可，其值等于目录加文件名，即InitDir + FileTitle （注：此处InitDir代替文件的位置，并非指cd1的InitDir属性，因为在不设置ce1 的InitDir属性的情况下，打开的是当前目录，但 cd1.InitDir=""） 如果选择了多个文件，那么返回值cd1.FileName的格式类似为："D:\多媒体\许巍\ 爱.mp3 彩虹.mp3"，在此选定了两个文件，返回值里有两个个空格，

vb文件菜单通用对话框

第7章第10章 一、内部文件控件 二、通用对话框 三、文件的读写操作 四、菜单编辑器

一、内部文件控件 文件系统控件用来查看和选择文件的功能，这类控件有两种： ①VB内部标准的文件控件： 驱动器列表框(DriveListBox) 目录列表框(DirListBox) 文件列表框(FileListBox) ②另一种是Windows的通用对话框控件（CommonDialog），该控件是ActiveX控件，需要加载后才能使用。

驱动器 列表框 文件列表框 目 录 列 表 框

1.驱动器列表框(DriveListBox) ①功能：用来显示当前机器上的所有盘符。 ②Drive属性：设置或显示运行时选择的驱动器。 如：Drive1.Drive = “C”或 Drive1.Drive = “C:”或 Drive1.Drive = "C:\“均正确。 ③Change事件：选择一个新的驱动器或通过程 序代码改变Drive属性的设置时，都将引发驱动器列表框的Change事件发生。

【例1】窗体中有2个标签和1个驱动器列表框。程序运行时，将用户在驱动器列表框中所选驱动器名称显示在窗体的标签中。 Private Sub Form_Load() Label2.Caption = "选中的驱动器是" & Drive1.Drive End Sub Private Sub Drive1_Change() Label2.Caption = "选中的驱动器是" & Drive1.Drive End Sub 例1

2.目录列表框(DirListBox) ①功能：以根目录开始, 显示目录的层次结构。 ②Path属性：设置当前路径，只能在程序代码中设置。格式为目录列表框名称.Path[=“路径”]如：Dir1.Path=“c:\Windows” ③Change事件:在目录框发生变化时，会触发该事件。 【例2】窗体中有1个驱动器列表框、1个目录列表框和4个标签。程序运行时，将用户在驱动器列表框中所选驱动器的所有目录显示在目录列表框中，并将用户双击时所选中的目录显示在窗体下部的标签中。

第七章 vb6.0菜单的设计与多文档界面

第七章菜单的设计与多文档界面 7.1 菜单简介 大多数Windows应用程序都有一个菜单栏，它总是处在窗体标题栏的下面，并包含一个或 多个菜单标题。单击每个菜单标题都会弹出一个下拉菜单，在下拉菜单中包含有菜单项、分隔条和子菜单标题。 有的菜单项可以直接执行，有的菜单项执行时则会弹出一个对话框。所有的Windows应用程序都遵循以下3个约定： 凡是菜单名称后有一个省略号的，均表示在单击该选项后会弹出一个相应的对话框，在 用户作出相应的回答后，该项功能就以用户所给予的信息去执行。例如，单击【打开】选项，则弹出【打开】对话框，用户可从中选择要打开的文件。 凡是菜单名称后有一个小三角的，则表示它是一个子菜单标题，子菜单标题并不能直接 执行，仅仅扮演一个“容器”的角色。当鼠标指针移动到子菜单标题上时，会自动弹出子菜单。例如，将指针移动到【发送】选项，就会弹出子菜单。 菜单名称后不包含L述两种符号者，表明该菜单项所代表的命令可直接执行。例如，单 击【关闭】选项，则将关闭当前打开的文档。 另外，有的菜单项名称后还显示相应的键盘访问键和快捷键。访问键允许同时按下Alt 键和一个指定字符来打开一个菜单。一旦菜单打开，通过按下访问键即可选取菜单项。在菜单项的标题中，访问键表现为一个带下划线的字母，如【打开】命令的访问键为0.当打开【文件】菜单后，按下0键即可执行【打开】命令。快捷键出现在相应菜单项的右边，例如，【打开】命令的快捷键是Ctrl+O，无论【文件】菜单是否打开，只要按下Ctrl+O组合键，即可 执行【打开】命令。 由于所有Windows应用程序都遵循上述约定，因此，在创建菜单时，也应该遵循这些约定。例如，如果某菜单项的执行结果是弹出一个对话框，则应该在该菜单项后加上省略符（…）.此外，要使应用程序简单好用，还应该将菜单项按其功能分组。例如，与文件有关的命令【新建】、【打开】和【另存为】都列入了【文件】菜单。 同一菜单中不同类型的选项之间还使用分隔条分隔开来。分隔条作为菜单项间的一个水 平行显示在菜单上。在包含较多菜单项的菜单上，经常使用分隔条将各项划分成一些逻辑组。【文件】菜单，使用分隔条将其菜单项分成6组。 7.2 菜单编辑器简介菜单编辑器是VB提供的一个用于设计菜单的工具，它使看似复杂的菜单创建变得非常简单。使用菜单编辑器可以创建出新的菜单或编辑已有的菜单。打开【工具】菜单，执行【菜单编辑器】命令，将出现如图7.3所示的【菜单编辑器】对话框。也可以通过单击工具栏上的【菜单编辑器】按钮来打开该对话框。其中各主要 选项的含义如下： 标题：该文本框用来输入菜单名，这些名字出现在菜单栏或菜单之中。如果想在菜单中 建立分隔条，则应在该文本框中输入一个连字符“一”.为了能够通过键盘访问菜单项，可在 一个字母前插入&符号。例如，“新建（&N）”.在运行时，该字母带有下划线（&符号是不 可见的）.如果要在菜单中显示&符号，则应在标题中连续输入两个&符号。 名称：该文本框用来输入菜单名称。在代码中就是以该名称来访问菜单项的，它不会出 现在菜单中，这与其他控件的名称是一样的。 索引：可指定一个数字值来确定控件在控件数组中的位置。该位置与控件的屏幕位置无关。 快捷键：可在该列表框中为命令选择快捷键。

计算机二级VB弹出式菜单

弹出式菜单（快捷菜单）：9，[14] 1、在菜单编辑器中建立菜单结构，主菜单设置为不可见 2、在窗体中调用菜单：popupmenu 主菜单的名称 单击右键时调用：对象名称_MouseDown(……) if button=2 then popupmenu 主菜单的名称 end if 通用对话框：23，43，[12，14，22] 添加通用对话框控件：P313 在工具箱的空白处单击右键→部件→勾选“Microsoft Common Dialog control 6.0” CommonDialog1.DialogTitle=”Open”‘标题 CommonDialog1.Filter = "所有文件|*.*|文本文件|*.txt" ‘设置文件过滤器CommonDialog1.FilterIndex = 2 ‘设置默认文件类型 CommonDialog1.InitDir = App.Path ‘设置默认目录 CommonDialog1.ShowOpen ‘设置对话框的类型 Open CommonDialog1.FileName For Input As #1 ‘打开在对话框中选择的文件 Input #1, s Text1.Text = s Close #1 例题：将打开对话框中所选择的文件里的内容读到文本框中 CommonDialog1.DialogTitle = "Open" CommonDialog1.InitDir = "D:\" CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Text1.Text = "" Do While Not EOF(1) Line Input #1, a Text1.Text = Text1.Text + a + Chr(13) + Chr(10) Loop Close #1

vb菜单与工具栏

第6章菜单与工具栏 6.1 学习要点与必备知识 【学习要点】 ?用户菜单、弹出式菜单的设计。 ?工具栏、状态栏的设计（选学内容）。 ?MDI窗体的基本构成与设计。 【必备知识】 1．菜单 菜单系统组成、菜单控件属性(Name、Caption、Checked、Enabled、Visible)。快捷键及访问键的设置、菜单项间的分隔线设置、菜单控件的事件(Click事件)、利用控件数组动态创建菜单(菜单项用Load语句创建，用UnLoad清除)。 2．弹出式菜单 弹出式菜单特点、设计方法、弹出式菜单的显示(PopupMenu方法的使用)。 3．工具栏和状态栏(选学内容) 图像列表控件ImageList的功能和使用，工具栏ToolBar属性的设置，工具栏按钮单击事件及代码设计、状态栏StatusBar控件上的窗格(Panel对象)属性(样式Style、Text、对齐Align、图片Picture等)。 4．多文档界面MDI 标准窗体、MDI父窗体和MDI子窗体的概念、常用的属性(ActiveForm、ActiveControl、AutoShowChildren、MdiChild)、常用的方法(Arrange方法)、常用的事件(QueryUnload事件)及应用。 6.2 习题精选 6.2.1 题目 一、选择题 1．在菜单中放置分隔栏的方法是将该菜单项的Caption设为( ) A．连字符(-) B．下划线(__) C．连接符(&) D．两个连续的下划线(_ _) 2．以下陈述中正确的是( )(多选) A．分隔栏可以出现在顶级菜单项中

B．顶级菜单项的Checked属性不能为True C．对同一个菜单项，为其指定访问键后，就不能再为其指定快捷键 D．菜单项的Enabled属性设为False后，它会被灰化显示 3．菜单项数组必须满足( )(多选) A．Name属性值可以不同B．有相同的行首缩进 C．所有元素在菜单中可以不连续D．各元素必有惟一索引值 4．为了响应工具栏上的多个按钮的单击事件，可以通过按钮的( )属性识别是由哪个按钮引发。 A．Button B．Key C．Index D．B 和C均可5．在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入( )符号，那么在运行程序时按Alt键和该字母键就可以打开该命令菜单。 A．下划线B．& C．$ D．@ 6．如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入( )。 A．–B．+ C．& D．# 7．在用菜单编辑器设计菜单时，必须输入的项是( )。 A．快捷键B．标题C．索引D．名称8．菜单控件仅支持以下( )事件。 A．Click B．MouseDown C．KeyPress D．Load 9．在使用弹出菜单时，下面说法不正确的情况是( )。 A．只能同时显示一个弹出菜单 B．使用PopupMenu 方法来显示弹出菜单 C．在设计时，应该将弹出菜单的顶层菜单项的Visible属性设为False D．在显示弹出菜单以后，将执行以后的代码 10．下列不能打开菜单编辑器的操作是( )。 A．按Ctrl+E B．单击工具栏中的“菜单编辑器”按钮 C．执行“工具”菜单中的“菜单编辑器”命令 D．按Shift + Alt + M 11．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效(变灰)，应使用的语句为( )。 A．MenuItem. Enabled=False B．MenuItem. Enabled=True C．MenuItem. Visible=True D．Menultem. Visible=False 12．以下关于菜单编辑器中“索引”项的叙述中，错误的是( )。 A．“索引”确定了菜单项显示的顺序 B．“索引”是控件数组的下标 C．使用“索引”时,可有一组菜单项具有相同的“名字” D．使用“索引”后,在单击菜单项的事件过程中可以通过“索引”引用菜单项13．用户通过设置菜单项的( )属性值为False来使该菜单项不可见。

利用VB控件操作目录和文件夹

利用VB控件操作目录和文件夹 新客网 https://www.wendangku.net/doc/da13394325.html, 时间:2007-01-31 10:00:24 评论: 条 （一）察看和显示目录下的文件和文件夹 对于这个实现，其实很简单。首先想到的就是VB中给我们提供的现成的控件。主要有这么两类： 一类是驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（F ileListBox）三个控件组合而成的自定义对话框； 另一类是windows提供的标准对话框。 他们在工具箱中的位置和图标如下所示：

1、驱动器列表框是一个下拉式的列表框，他和一般下拉式的列表框的不同仅在于功能上的不同，它提供了一个驱动器的列表。当单击右边的箭头时，则弹出计算机中的所有驱动器的下拉列表。默认状态下,在驱动器列表中显示的是当前驱动器,我们可以输入或从下拉列表中选择有效的驱动器标示符。 下面是它的主要属性,事件和方法. 属性Drive本属性用于返回或设置运行时选择的驱动器.默认值为当前驱动器 改变Drive属性会触发Change事件. 示例: Drive1.Drive = “c:” 设置C盘为当前驱动器. 事件Change当选择一个新驱动器或通过代码改变了Drive属性时触发该事件 下面是示例代码: Private Sub Drive1_Change() Dir1.Path = Drive1.Drive ‘当选择一个新驱动器时,将驱动器列表中选中的当前驱动器,赋给目录列表的路径. End Sub 2、目录列表框 目录列表框用于显示当前驱动器的目录结构，目录列表框从最高层目录开始，显示当前驱动器的目录结构，并按层次关系缩进跟目录下的所有子目录。下面是它的主要属性，方法和事件：