vb文件菜单通用对话框
VB 第四章 菜单、工具栏、状态栏与对话框
下拉式菜单设计1．下拉式菜单的组成（如图4.2所示）（1）下拉式菜单由主菜单、主菜单项、子菜单等组成。
（2）子菜单可分为一级子菜单、二级子菜单直到五级子菜单。
（3）每级子菜单由菜单项、快捷键、分隔条、子菜单提示符等组成。
图4.2 下拉式菜单的组成①菜单项：所有子菜单的基本元素就是菜单项，每个菜单项代表一条命令或子菜单标题。
②分隔条：分隔条为一条横线，用于在子菜单中区分不同功能的菜单项组，使菜单项功能一目了然，并且方便操作。
③快捷键：为每个最底层的菜单项设置快捷键后，可以在不用鼠标操作菜单项的情况下，通过快捷键直接执行相应的命令。
④热键：热键是在鼠标失效时，为用户操作菜单项提供的按键选择，使用热键时，须与<Alt>键同时使用。
⑤子菜单提示符：如果某个菜单项后有子菜单，则在此菜单项的右边出现一个向右指示的小三角子菜单提示符。
2．菜单编辑器的启动执行菜单命令：工具| 菜单编辑器，即可打开菜单编辑器，如图4.3所示。
菜单编辑器分为上下两部分：上半部分用于设置菜单项的属性，下半部分用于显示用户设置的主菜单项与子菜单项内容。
图4.3 菜单编辑器3．菜单编辑器的使用方法（1）标题栏（Caption）：输入菜单项的标题、设置热键与分隔条；①标题：直接输入标题内容，如“文件”。
②热键：在菜单项中某个字母前输入“&”后该字母将成为热键，如在图4.3的文件主菜单项中输入“文件（&F）”。
③分隔条：在标题框中键入一个连字符“－”即可。
（2）名称栏（Name）：用于输入菜单项内部惟一标识符，如图4.3 “File”等，程序执行时不会显示名字栏内容。
注意：分隔符也要输入名称，且不能重复命名。
（3）快捷键下拉列表框（Shortcut Key）：用于选择菜单项的快捷键，用鼠标单击列表框的下拉按钮，在列表框中可选择不同的快捷键。
（4）下一个按钮（Next）：当用户将一个菜单项的各属性设置完后，单击“下一个”按键可新建一个菜单项或进入下一个菜单项。
江苏省计算机二级考试VB程序设计复习题
江苏省计算机二级考试VB程序设计复习题一、填空题：（第一章Visual Basic程序设计概述）1、Visual Basic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。
2、在VB中工程文件的扩展名是_ Vbp ，窗体文件的扩展名是frm _，标准模块文件的扩展名是_ bas _。
3、执行“工程”菜单下的部件命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。
第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_ Tabstop ___属性。
2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定，其大小由__ height _和_ width _属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_ enabled __属性为true，才能接受焦点。
4、设置控件背景颜色的属性名称是_ backcolor __。
5、所有控件都具有的共同属性是__ name __属性。
6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和caption。
7、VB中的每个对象（控件）都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。
8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。
9、VB有三种工作模式，分别是设计（Design）模式、_运行模式__和中断（Break）模式。
第三章1、一般可以使用____ Const ______关键字声明常量。
2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
3、变量的声明分为两种方法：_隐式声明__和__显示声明__。
如何使用VB中通用对话框控件选择多个文档
否 则 就无 法 使 用 该控 件 。 在文 件对 话 框 中 ，ｌ ｓ 性 可 用 来 返 回或 设 置 Ｆａ 属 ｇ
【 打开 】 【 存为 】 和 另 对话 框的标志选项 。在其 Ｆａ ｌｓ ｇ
属性 中 加 上 ｃｌＦ Ａｌ Ｍｕｉ ｌ ｔ常 量 （０进 制 数 ｄ０ Ｎ ｌｗ ｌｓ ｅ ｏ ｔｅ ｃ １
法 。对 使用 Ｖ 、 ｃ等可 以使用 Ｃ ｍ ｏ ｉｏ 控件 的编程环境解 决此类问题提供 了有效 的解 决方案 。 ＢＶ ｏ ｍ ｎＤａ ｇ ｌ
关 键 词 ： Ｂ Ｖｓａ Ｂ ｓ ； ｏ ｍ ｎＤａ ｇＪ 对 话 框 控 件 Ｖ ； ｉ ｌ ａｉ Ｃ ｍ ｏ ｉｏ； ｕ ｃ ｌ ￣用
Ｆｌ ａ ｅ字符 串 进行 分离 。 ｉ ｎｍ ｅ
２基 本 思路 描 述
发 环 境 中都 提 供 了 调用 通用 对 话框 的 程序 接 口。本
文介 绍 如何 使 用 Ｖ ｓａ Ｂ ｓ ｉ ｌ ａｉ 用 Ｃ ｍ ｏ ｉ ｏ ｕ ｃ调 ｏ ｍ ｎＤ ａ ｇ控 ｌ
件 同时 打 开多 个 文 档 。
￥（２ ）也 能正确 地实 现 分离 。所 以 ， ３） ， 现在 关键 的 问 题 是如何 获取所 选择 文件 的路 径 。Ｖ Ｂ中有 一 个 内建 的函 数 Ｃ ｒｉ（ ， 能 返 回 当前 的路 径 。在 Ｃ ｍ ｕＤｒ ） 它 ｏ． ｍ ｎ ｉｏ ｏＤａ ｇ中改 变路 径会产 生 ＰｔＣ ａｇ 事 件 ， ｌ ａ ｈｎｅ ｈ 这也 将
１通 用对 话 框 控 件简 介
分离 的思 路 大 致 如 下 ： 得 到 所 选 择 文 件 的 路 先 径， 然后 ， 将其 从 Ｆｌ ａ ｅ字符 串 中去 除 ， 样 就 只剩 ｉｎ ｍ ｅ 这
熟悉 Ｖ Ｂ的 开 发 者 都 知 道 ， 用 对 话 框 是 一 种 通 Ａ ｔｅ ｃ ｖＸ控 件 ， 个 控 件 文 件 在 系 统 目录下 ， 称 为 ｉ 这 名 Ｃ ｍ ｌｌ ．Ｃ ｏ ｄｇ６ ＯＸ或 Ｃ ｍ ｌ ２ ＯＸ ｏ ｄｇ ．Ｃ¨ 。要 使 用该 控 件 就 ３
二级VB基础教程：8.2多选项卡对话框——页框（TabStrip）
1. 设置页框的外观样式 （1）先在窗体上画出⼀个TabStrip对象； （2）右击该对象，从快捷菜单中选择“属性”； （3）在TabStrip属性窗⼝⾥选择通⽤（General）标签，在样式（Style）列表框⾥选择样式； （4）在TabStrip属性窗⼝⾥选择选项卡（Tabs）标签，在标题（Caption）框⾥输⼊标题和关键字； （5）如果需要的话，在⼯具提⽰⽂本（ToolTipText）框⾥输⼊提⽰信息； （6）在TabStrip属性窗⼝⾥选择字体（Font）标签，设置标题的字体（可以直接采⽤默认值）。
2．增减标签总数 在TabStrip属性窗⼝⾥选择选项卡标签，单击插⼊选项卡按钮增加标签，单击删除选项卡按钮删除标签。
3．在TabStrip上显⽰图形 1) 在窗体⾥拖⼊⼀个图象列表（ImageList）控件； 2) 在此对象上右击，选择属性，打开属性页窗⼝； 3) 选择图象标签，单击插⼊图⽚按钮，在选定图⽚对话框⾥选择想使⽤的位图或图标，然后单击打开按钮；为每个想添加图形的选项卡重复此步； 4) 单击确定按钮， ImageList⾥就存储了需要的图⽚。
5) 选择TabStrip，进⼊TabStrip属性窗⼝并选择通⽤标签，在图象列表框⾥选择ImageList1； 6) 选择选项卡标签，单击紧挨索引框的向左或向右箭头以选择⼀个Tab序号。
在图象框⾥输⼊⼀个数，输⼊为1，则显⽰刚才ImageList控件⾥的第⼀个图形，输⼊为2，则显⽰刚才ImageList控件⾥的第⼆个图形，单击确定按钮完成。
4．在TabStrip上放置其它控件 在窗体上象添加普通控件⼀样，把每⼀页需要的控件添上，控件不⽌⼀个时，应该⽤Frame来分组，注意：除了默认的第⼀页上的Frame控件外，其他所有Frame的Visible属性都应该设为假。
5．设计代码在⽤户选择了标签后，TabStrip要求编写代码来显⽰或隐藏控件。
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 调用 Windows“帮助”示例代码：下例显示“打开”对话框然后在信息框中显示所选的文件名：Private Sub Command1_Click()' 设置“CancelError”为 TrueCommonDialog1.CancelError = TrueOn Error GoTo ErrHandler' 设置标志CommonDialog1.Flags = cdlOFNHideReadOnly' 设置过滤器CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"' 指定缺省的过滤器CommonDialog1.FilterIndex = 2' 显示“打开”对话框CommonDialog1.ShowOpen' 显示选定文件的名字MsgBox CommonDialog1.filenameExit SubErrHandler：' 用户按了“取消”按钮Exit SubEnd Sub－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－下例显示“打印”对话框。
VB--ch7通用对话框
CommonDialog1. ShowPrinter 同 Action = 5 CommonDialog1. ShowHelp 同 Action = 6
设计时设置控件属性
• 右击窗体上的CommonDialog控件图标， 可以打开“属性页”对话框，如下图所示：
有5个选项卡, 用于对不同类 型的对话框进 行属性设置
CommonDialog1.Action = 4
Text1.FontName =CommonDialog1.FontName Text1 1.FontBold=CommonDialog1.FontBold
End Sub
例7.5
“字体”对话框示例。
编程：在文本框上显示文字，利用“字体”对 话框来设置所显示文字的字体、字型、大小、 颜色等。 知识点： 设置字体一定需要添加语句： CommonDialog1.Flags=1＋256 (屏幕字体加下划线、删除线、颜色组合框）
把对话框部件添加到工具箱步骤: “工程” “部件” 选中: Microsoft Common Dialog Control 6.0 对话框的类型由对话框控件的Action属性决定。 与Timer 控件一样，CommonDialog 控件
在程序运行时不可见。
通用对话框的重要属性 Action
Action属性只能在运行时设置: 只写
Text1.BackColor = CommonDialog1.Color
End Sub
例7.4 利用颜色对话框给shape着色
界面设计，如图所示。 在窗体上添加一个框架：在框架上画出6个单选 钮（控件数组）用来选择不同的形状； 形状控件、通用对话框控件、命令按钮各一个。 知识点：
这里采用了一组 控件数组来设计 单选钮，充分体 现使用控件数组 的优点
vb通用对话框名词解释__概述说明以及解释
vb通用对话框名词解释概述说明以及解释1. 引言1.1 概述在软件开发中，对话框是一种常见的用户界面元素，用于与用户进行交互和获取输入。
VB通用对话框是一种基于Visual Basic编程语言的对话框类型，具有广泛的应用领域和重要性。
本文将详细介绍VB通用对话框的概念、重要性、应用场景以及常见名词解释和功能解析。
此外，还将提供实际操作指南与技巧，并展望VB通用对话框未来可能的发展趋势。
1.2 vb通用对话框概念说明VB通用对话框是使用Visual Basic编程语言开发的一种标准化对话框。
它为开发人员提供了一套预定义的、可直接调用和使用的界面组件，以便更快速地构建用户友好的应用程序界面。
通过使用VB通用对话框，开发人员可以轻松地创建窗体、按钮、文本框等基本控件，并实现与用户的交互。
它提供了丰富的功能库和方法，使得开发过程更加高效和便捷。
1.3 目的本文旨在帮助读者全面了解VB通用对话框在软件开发中的重要性和作用。
通过介绍其应用场景以及常见名词解释和功能解析，读者可以更好地理解如何使用VB通用对话框构建用户友好的界面和实现与用户的交互。
此外，本文还提供了实际操作指南与技巧，帮助读者掌握基本的VB通用对话框的创建和使用方法。
最后，本文还展望了VB通用对话框未来可能的发展趋势，旨在激发读者对该领域的兴趣并为其未来的研究或应用提供参考。
2. VB通用对话框的重要性和应用场景2.1 为什么需要VB通用对话框：VB通用对话框是一个在软件开发中非常重要的工具，它可以提供给用户一个交互界面，通过该界面用户可以进行各种操作和输入。
VB通用对话框的存在使得软件开发更加高效和便捷，因此它成为了不可或缺的一部分。
2.2 VB通用对话框在软件开发中的作用：VB通用对话框可以帮助程序员创建各种功能丰富的用户界面。
它提供了一系列常见控件，如按钮、文本框、复选框等，以及与这些控件交互的方法和属性。
使用VB通用对话框，开发者可以快速创建一个简单易用、美观大方的用户界面，并将其与应用程序逻辑进行连接。
vb6.0 对话框和菜单
阶段5 “字体”对话框
“字体”对话框用来设置并返回所用字体
的名称、样式、大小、效果及颜色等。
一.设计时建立“字体”对话框
设计时，在通用对话框控件的属性页窗 口“字体”选项卡中设置属性，包括字 体名称、字体大小、最小、最大、标志 、样式等。
二.运行时显示“字体”对话框
运行时，使用通用对话框控件的 ShowFont方法，或将Action属性赋值为4 ，可以显示“字体”对话框。在“字体 ”对话框中选定设置并关闭对话框。
一.控件名称 自定义，默认名称CommonDialog1、 CommonDialog2、……
二.设计时设置控件属性
用鼠标右键单击窗体上的CommonDialog控件图标，在 弹出的快捷菜单中选择“属性”选项，或在属性窗口 中选择“自定义”，再单击右侧的“„”按钮，就可 以打开”属性页“对话框。
三.打开通用对话框的Action 属性
⑴ 显示打开文件对话框 ⑵ 显示保存文件对话框 ⑶ 显示颜色对话框 ⑷ 显示字体对话框 ⑸ 显示打印机设置对话框 ⑹ 显示Windows帮助对话框
四.打开通用对话框的“方法”
⑴ ⑵ ⑶ ⑷ ⑸ ⑹ 显示打开文件对话框 显示保存文件对话框 显示颜色对话框 显示字体对话框 显示打印机设置对话框 显示Windows帮助对话框
菜单的类型 菜单编辑器 下拉式菜单 弹出式菜单
阶段1 菜单的类型
菜单是界面设计的重要组成部分，一般有两种基本类型：
下拉式菜单和弹出式菜单。 下拉式菜单通过打击菜单栏中的菜单标题来打开。
弹出式菜单则通过用鼠标左键或右键单击某个 区域的方式打开。
阶段2 菜单编辑器
VB
6.0没有菜单控件，但提供了建立菜单的菜单编辑器。 在VB 6.0集成开发环境中，选择“工具”菜单中的“菜 单编辑器”选项，可以进入菜单编辑器，为窗体编辑菜 单。
vb自定义对话框（CommonDialog）
自定义对话框1. 对话框:特殊类型的窗体对象。
2. 作用:是用户和应用程序交互的主要途径。
3. 建立方法:A 使用预定义对话框，即输入框、消息框。
B 自定义对话框(窗体)。
C 使用CommonDialog控件创建通用对话框。
自定义对话框设计步骤:(1) 添加窗体: 工程→添加窗体。
(2) 将窗体定义成对话框风格。
如:不能移动、改变尺寸、最大或最小化例: BorderStyle设置为1—单边框，不能改变大小ControlBox设置为False—删除控制菜单框MaxButton设置为False—删除最大化按钮MinButton设置为False—删除最小化按钮(3) 在对话框上添加按钮，如―确定‖与―取消‖按钮。
(4) 在对话框上添加其它控件。
(5) 在适当的位置编写显示对话框的代码。
两种显示方式: 模式对话框与无模式对话框。
• 显示模式对话框:窗体名.Show vbModal 或:窗体名.Show 1• 显示无模式对话框:窗体名.Show vbModeless或: 窗体名.Show 0 或: 窗体名.Show例如: Form2.Show vbModalForm2.Show vbModeless为确保对话框可以随其父窗体的最小化而最小化，随其父窗体的关闭而关闭，需要在Show方法中定义父窗体。
例如: Private Sub Command1_Click()Form2.Show vbModeless, Form1End Sub(6) 编写从对话框退出的代码例如: Unload Form2或: Form2.Hide【例10-4】设计对话框Form2如下图所示。
当输入某文件所在的路径及名称后，单击―确定‖按钮按所选择的运行方式运行该文件，单击―取消‖按钮取消本次操作，返回窗体Form1中。
如果输入文件名错误，将给出警告并返回该对话框。
通用对话框控件(CommonDialog)使用通用对话框控件(CommonDialog)可以创建6种标准对话框。
VB复习题(含答案)
VB复习题允许上机调试一、选择题1 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是： BA)text1.maxlength=0 B)text1.enabled=falseC)text1.visible=false D)text1.width=02 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是 CA) ="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption="VisualBasic窗体"D) Form1.Text="VisualBasic窗体”3 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：CPrivate Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支1"Case Is >4Print "分支2"Case ElsePrint "Else 分支"End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A）分支1 B）分支2 C）Else分支D) 程序出错4 以下关于MsgBox的叙述中，错误的是 D （见书P88-92）A）MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量5 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是 DA）Timer1.InterV al=0.5 B) Timer1.Interval=5C) Timer1.Interval=50 D) Timer1.Interval=5006 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：BPrivate Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后，连续三次单击Command1按钮后，窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 67 以下叙述中错误的是DA）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定8 以下合法的V isual Basic标识符是AA) ForLoop B) Const C) 9abc D) a#x9 当一个复选框被选中时，它的V alue属性的值是 CA) 3 B) 2 C) 1（复选框被选中显示1，不选中显示0）D) 010 表达式5 Mod 3+3\5*2的值是BA) 0 B) 2 C)4 D) 611 设x=4,y=8,z=7，以下表达式的值是Dx<y And (Not y>z) Or z<xA) 1 B) -1 C) True D) False12 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： A Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A）VVV B) Vis C) sic D) 1113设有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后，x的值是 BA) 26 B) 27 C) 38 D) 5714 以下叙述中错误的是BA) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符15 执行如下两条语句，窗体上显示的是Da=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.8617 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：DPrivate Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A) 10 5 B) 12 5 C) 10 7 D) 12 718 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：BOption Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是A) 4 B) 5 C) 6 D)719 阅读程序Option Base 1Private Sub Form_Click()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)\3 ThenSum =Sum+arr(i)End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输入结果为 CA）13 B）14 C）27 D）1520 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：D Option Base 1Private Sub Command1_Click()Dim a As V arianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next ix=Sum/5For i =1 To 5If a(i)>x Then Print a(i);Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是A）1 2 B） 1 2 3 C) 3 4 5 D）4 521.在V isual Basic设计界面中不能隐藏的窗口是( A)。
vb题库2
1.文件列表框的Pattern属性的作用是＿B＿。
A．显示当前驱动器或指定驱动器上的目录结构B．显示当前驱动器或指定驱动器上的某目录下的文件名C．显示某一类型的文件D．显示该路径下的文件2.下列变量命名正确的是＿A＿。
A．myfile B．vb 1C．page @2 D．cmd.13.一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有＿A＿。
A．窗体文件（frm）、工程文件（vbp）B．窗体文件（frm）、工程文件（vbp）和代码文件（bas） C．窗体文件（frm）、工程文件（vbp）和模块文件（bas） D．窗体文件（frm）、工程文件（vbp）和窗体的二进制文件（frx）4.VB窗体设计器的主要功能是＿A＿。
A．建立用户界面 B．编写源程序代码C．添加图 D．显示文字5.在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()s = 0For k = 3 To 1 Step -1If k <= 3 Thenx = 3ElseIf k <= 2 Thenx = 2ElseIf k <= 1 Thenx = 1Elsex = 4End IfPrint x;s = s + xNext kPrint sEnd Sub程序运行后，单击命令按钮，输出结果是＿A＿。
A．3 3 3 9 B．1 2 1 6C．3 2 1 6 D．1 2 3 66.在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是doc文件，则正确的描述格式是＿C＿。
A．"text(.doc)|(*.doc)"B．"文本文件(.doc)|(*.doc)"C．"text(.doc)|*.doc"D．"text(.doc) (*.doc)"7.清空列表框List1中的所有项目，应该使用的方法是：DA. List1.ClsB. List1.RemoveItemC. List1.DeleteD. List1.Clear8.在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim A1(10) As Integer, A2(10) As Integern = 3For i = 1 To 5A1(i) = iA2(i) = 2 * n + iNext iPrint A2(1); A1(2)End Sub程序运行后，单击按钮，输出结果为＿72＿A．7 2 B．2 7C．7 3 D．3 79.在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：Private Sub Form_Load()Text1.Text = "aB"Text2.Text = "123456"End SubPrivate Sub Command1_Click()a = UCase(Text1.Text) + Left(Text2.Text,2)Print aEnd Sub程序运行后，单击命令按钮，输出结果为＿B＿A．ab12 B．AB12C．AB56 D．ab5610.假定窗体上有一个文本框，名称为Text1，为了使该文本框的内容能够换行，并且具有水平和垂直滚动条，正确的属性设置为＿B＿。
VB6.0第四章-控件,窗体
7
可视化程序设计——第四章 常用控件和窗体
4.4 列表框
7.Text属性（默认属性）
.List（.ListIndex）＝ .Text
8.MultiSelect属性
None：不允许多选。 Simple：简单多选。每次鼠标单击选中一项。 Extended：可扩展多选，与键盘上的某个键配合使用， 如：ctrl+鼠标。
属性：
Path Pattern Archive Normal System Hidden ReadOnly 设置目录或返回当前工作目录 设置要显示的文件类型 是否显示归档文件 是否显示普通文件 是否显示系统文件 是否显示隐含文件 是否显示只读文件 File1.Path=Dir1.Path File1.Pattern=“*.EXE ; *.DLL”
属性：Drive—设置驱动器或返回当前工作驱动器
可通过语句 Drive1.Drive=“C:\” 指定，或从列表中选择。
Drive属性只能在程序代码中设置、访问， 而不能在属性窗口中设置。
事件：Click、Change（列表框顶部的内容改变）
21
可视化程序设计——第四章 常用控件和窗体
DirListBox控件
4.6 驱动器、目录和文件列表框
三、文件列表框
Name 属性：fil [对象.]Path[＝Pathname] [对象.]Pattern[＝value] [对象.] FileName [＝pathname] Path和FileName
19
可视化程序设计——第四章 常用控件和窗体
DriveListBox控件
16
可视化程序设计——第四章 常用控件和窗体
visual_Basic程序设计教程_课后习题答案及练习
《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
vb通用对话框在哪
vb通用对话框在哪VB通用对话框是Visual Basic程序开发中常用的一个功能模块，可以方便地弹出各种对话框来与用户进行交互。
在VB中，通用对话框是通过使用对话框控件来实现的。
本文将介绍VB通用对话框的基本用法，并演示如何在程序中正确使用它们。
在VB中，有几种不同类型的通用对话框可以使用，包括文件对话框、颜色对话框、字体对话框和消息框。
每种类型的对话框都有自己的用途和特点，下面将对每种对话框进行详细介绍。
首先是文件对话框。
文件对话框可以用于打开或保存文件的操作。
在VB中，可以使用OpenFileDialog和SaveFileDialog控件来显示文件对话框。
通过设置这些控件的属性，可以指定对话框的标题、初始目录、过滤器等。
在用户选择打开或保存文件后，可以通过这些控件的FileName属性来获取所选文件的路径。
接下来是颜色对话框。
颜色对话框可以用于选择颜色。
在VB中，可以使用ColorDialog控件来显示颜色对话框。
通过设置这个控件的属性，可以指定对话框的标题、初始颜色等。
在用户选择颜色后，可以通过这个控件的Color属性来获取所选颜色的值。
然后是字体对话框。
字体对话框可以用于选择字体和字号。
在VB 中，可以使用FontDialog控件来显示字体对话框。
通过设置这个控件的属性，可以指定对话框的标题、初始字体等。
在用户选择字体后，可以通过这个控件的Font属性来获取所选字体的相关信息。
最后是消息框。
消息框用于向用户显示一条消息并等待用户的响应。
在VB中，可以使用MsgBox函数来显示消息框。
消息框可以显示不同类型的消息，包括信息消息、警告消息、错误消息等。
可以通过设置MsgBox函数的参数来指定消息的类型、按钮的类型、默认按钮等。
通过MsgBox函数，可以方便地向用户显示各种消息，并根据用户的响应进行相应的处理。
在使用VB通用对话框时，需要注意以下几点。
首先，需要确保正确引用相应的命名空间。
文件对话框和颜色对话框属于System.Windows.Forms命名空间，而字体对话框和消息框可以直接使用，无需引用其他命名空间。
vb单选判断题题库
序号题干答案1 VB是一种面向对象的程序设计语言。
对2 VB通过窗体管理构成应用程序的各类文件的集合。
错3 VB支持弹出菜单，所谓“弹出菜单”是指单击鼠标后打开的菜单。
错4 Visual Basic程序的运行，仅能从某一窗体启动，如Form1窗体。
错5Visual Basic程序的运行可以从Main()过程启动，也可以从某个窗体启动。
对6 Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其它位置，则需使用自定义坐标系统。
对7 单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务.错8 Dim i, j as integer 表明i和j都是整型变量。
错9 Single 和Double型用于保存浮点数,在VB中定义单精度浮点8位,双浮点16位.错10 Visual_basic是合法的变量名。
对11可以用"&"，"+"合并字符串，但是用在数值变量时，"+"可能会将两个数值加起来。
对12某一过程中的静态变量在过程结束后，静态变量及其值可以在其它过程中使用。
错13全局变量用global或public关键字声明，且仅在通用声明处可以定义。
错14如果某子程序add用public static sub add()定义，则该子程序的变量都是局部变量。
错15设A=3,B=4,C=5,D=6，则表达式A>B And C<=D Or 2*A>C的值是False。
错16 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义.错17 在VB中，运算 "ABCDE123A" Like "[a*a] " 的结果是True。
错18 在VB中,运算 "D" Like "[! A-Z]" 的结果是True. 错19 在VB中，运算"ABA"Like"[a?a]"的结果是False。
第七章 vb6.0菜单的设计与多文档界面
第七章菜单的设计与多文档界面7.1 菜单简介大多数Windows应用程序都有一个菜单栏，它总是处在窗体标题栏的下面，并包含一个或多个菜单标题。
单击每个菜单标题都会弹出一个下拉菜单，在下拉菜单中包含有菜单项、分隔条和子菜单标题。
有的菜单项可以直接执行，有的菜单项执行时则会弹出一个对话框。
所有的Windows应用程序都遵循以下3个约定：凡是菜单名称后有一个省略号的，均表示在单击该选项后会弹出一个相应的对话框，在用户作出相应的回答后，该项功能就以用户所给予的信息去执行。
例如，单击【打开】选项，则弹出【打开】对话框，用户可从中选择要打开的文件。
凡是菜单名称后有一个小三角的，则表示它是一个子菜单标题，子菜单标题并不能直接执行，仅仅扮演一个“容器”的角色。
当鼠标指针移动到子菜单标题上时，会自动弹出子菜单。
例如，将指针移动到【发送】选项，就会弹出子菜单。
菜单名称后不包含L述两种符号者，表明该菜单项所代表的命令可直接执行。
例如，单击【关闭】选项，则将关闭当前打开的文档。
另外，有的菜单项名称后还显示相应的键盘访问键和快捷键。
访问键允许同时按下Alt键和一个指定字符来打开一个菜单。
一旦菜单打开，通过按下访问键即可选取菜单项。
在菜单项的标题中，访问键表现为一个带下划线的字母，如【打开】命令的访问键为0.当打开【文件】菜单后，按下0键即可执行【打开】命令。
快捷键出现在相应菜单项的右边，例如，【打开】命令的快捷键是Ctrl+O，无论【文件】菜单是否打开，只要按下Ctrl+O组合键，即可执行【打开】命令。
由于所有Windows应用程序都遵循上述约定，因此，在创建菜单时，也应该遵循这些约定。
例如，如果某菜单项的执行结果是弹出一个对话框，则应该在该菜单项后加上省略符（…）.此外，要使应用程序简单好用，还应该将菜单项按其功能分组。
例如，与文件有关的命令【新建】、【打开】和【另存为】都列入了【文件】菜单。
同一菜单中不同类型的选项之间还使用分隔条分隔开来。
VB教案消息框(MsgBox)输入框(InputBox)
（十一）消息对话框和输入对话框消息对话框一般用MsgBox函数生成。
（比自行设计窗体来得方便）。
用于在程序运行过程中，对用户提示一些简短的信息，并根据用户的选择回答进行相应的处理。
一．消息对话框（MsgBox）1．格式：MsgBox（<提示字符串> [，<图标按钮类型值>] [，<标题字符串>]）2．功能：按指定格式，输出一个含<提示字符串>的对话框，供用户进行选择处理。
3．说明：（1）<提示字符串>：为C型表达式，其值显示在消息对话框中。
字符串长度≤1KB。
若要分行显示，应在分行处用“+”或“&”连接Chr（13）（回车符）或Chr（10）（换行符）或二者组合。
（2）[<图标，按钮类型值>]：缺省值为0，是各种类型值的总和。
各种类型的值表示内容为：0：只显示“确定”按钮（OK）1：显示“确定”和“取消”按钮（OK，Cancel）2：显示“终止（Abort）”、“重试（Retry）”、“忽略（Ignore）”按钮3：显示“是（Yes）”、“否（No）”、“取消（Cancel）”按钮。
4：显示“是（Yes）”、“否（No）”按钮。
5：显示“重试（）”和“取消（Cancel）”按钮。
16：显示图标表示错误批评32：显示图标表示疑问48：显示图标表示警告64：显示图标i 表示信息资料0：表示第一个按钮为缺省活动按钮。
256：表示第二个按钮为缺省活动按钮。
512：表示第三个按钮为缺省活动按钮。
768：表示第四个按钮为缺省活动按钮。
注：每组最多只能取一个数值，相加产生类型值总和。
（3）单击不同按钮后，MsgBox的返回值：1：单击“确定(Ok)”2：单击“取消(Cancel)”3：单击“终止(Abort)”4：单击“重试(Retry)”5：单击“忽略(Ignore)”6：单击“是(Yes)”7：单击“否(No)”（4）［＜标题字符串＞］：决定消息对话框标题栏中显示的内容。
VB 第八章 文件操作
代码总结
Private Sub File1_DblClick() Dim selfile As String, i As Double If Right(File1.Path, 1) = "\" Then selfile = File1.Path & File1.FileName Else selfile = File1.Path & "\" & File1.FileName End If Select Case LCase(Right(selfile, 3)) Case "txt" i = Shell("notepad.exe" & " " & selfile, vbNormalFocus) Case "doc" i = Shell("winword.exe" & " " & selfile, vbNormalFocus) Case "bmp", "jpg" i = Shell("mspaint.exe" & " " & selfile, vbNormalFocus) End Select End Sub
' 添加记录 Sub command1_click() With Student .ino=val(text1.text) .strname=text2.text .strsex=iif(option.value,”1”,”0”) .smark=val(text3.text) end with open “c:\stuent.dat” for random as #1 len=len(student) record_no=lof(1)/len(student)+1 label1.caption=record_no put #1,record_no,student close #1 end sub
vb常用代码大全
移动无标题栏的窗体dim m(borderstyle=none)ouseX as integerdim mouseY as integerdim moveX as integerdim moveY as integerdim down as booleanform_mousedown: 'mousedown事件down=truemouseX=xmouseY=yform_mouseup: 'mouseup事件down=falseform_mousemoveif down=true thenmoveX=me.left-mouseX+XmoveY=me.top-mouseY+Yme.move moveX,moveYend if********************************* **********闪烁控件比如要闪烁一个label（标签）添加一个时钟控件间隔请根据实际需要设置 enabled属性设为true代码为：label1.visible=not label1.visible ********************************* **********禁止使用 Alt+F4 关闭窗口Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nP osition As Long, ByVal wFlags As Long) As LongPrivate Declare Function GetMenuItemC ount Lib "user32" (ByVal hMenu As Long) As LongPrivate Const MF_BYPOSITION = &H400& Private Sub Form_Load()Dim hwndMenu As LongDim c As LonghwndMenu = GetSystemMenu(Me.hwnd , 0)c = GetMenuItemCount(hwndMenu) DeleteMenu hwndMenu, c - 1, MF_BYPO SITION c = GetMenuItemCount(hwndMenu) DeleteMenu hwndMenu, c - 1, MF_BYPO SITIONEnd Sub启动控制面板大全'打开控制面板Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL", 9)'辅助选项属性-键盘Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,1", 9)'辅助选项属性-声音Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,2", 9)'辅助选项属性-显示Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,3", 9)'辅助选项属性-鼠标Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,4", 9)'辅助选项属性-常规Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL access.cpl,,5", 9)'添加/删除程序属性-安装/卸载Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Appwiz.cpl,,1", 9)'添加/删除程序属性-Windows安装程序Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Appwiz.cpl,,2", 9)'添加/删除程序属性-启动盘Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Appwiz.cpl,,3", 9)'显示属性-背景Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL desk.cpl,,0", 9)'显示属性-屏幕保护程序Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL desk.cpl,,1", 9)'显示属性-外观Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL desk.cpl,,2", 9)'显示属性-设置Call Shell("rundll32.exe shell32.dll,ControVB常用代码l_RunDLL desk.cpl,,3", 9)'Internet 属性-常规Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Inetcpl.cpl,,0", 9)'Internet 属性-安全Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Inetcpl.cpl,,1", 9)'Internet 属性-内容Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Inetcpl.cpl,,2", 9)'Internet 属性-连接Call Shell("rundll32.exe shell32.dll,Contro l_RunDLL Inetcpl.cpl,,3", 9)********************************* **********怎样关闭一个程序你可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。
VB学习试题
1在名称为Form1的窗体上添加一个名称为Label1、标题为"添加项目："的标签；添加一个名称为Text1的文本框，初始内容为空；添加一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Command1、Command2，其标题分别为"添加"、"统计"。
在程序运行时，向Text1中输入字符，单击"添加"按钮后，则将Text1中的内容作为一个列表项被添加到组合框的列表中；单击"统计"按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。
请编写两个命令按钮的Click事件过程。
注意：程序中不得使用变量，也不能使用循环结构。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。
List添加项目Private Sub Command1_Click()Combo1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()Print Combo1.ListCountEnd Sub2在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为Filel的文件列表框，名称为Label1、标题为"文件名"的标签和名称为Labe12、BorderStyle为1的标签。
将窗体的标题设置为"文件系统控件"，如图所示。
请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。
单击文件列表框时，将在Label2中显示选中的文件名。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。
Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Label2.Caption = File1.FileNameEnd Sub3在名称为Form1的窗体上画一个图片框，其名称为Picture1、一个水平滚动条，名称为HScroll1，和一个命令按钮，名称为Command1，标题为"设置属性"，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
例2
计算机软件技术基础 Visual Basic 程序设计
3.文件列表框(FileListBox)
① 功能：显示当前文件夹下的所有文件列表。 ② 属性：
★Path属性：设置文件列表框中显示的文件目录。 Path属性改变后，会触发它的PathChange事件。
★Pattern属性：设置或返回文件列表框中所显示 的文件类型 ,默认值为*.*。例如：
顺序文件的写入步骤：打开、写入、关闭； 读出步骤：打开、读出、关闭。
计算机软件技术基础 Visual Basic 程序设计
（1）打开文件
打开文件的命令是Open，格式为： Open “文件名” For 模式 As [#] 文件号
[Len=记录长度] 说明： 1）文件名:是字符串常量或字符串变量。 2）模式： OutPut：打开一个文件，对该文件进行写操作。 Input：打开一个文件，对该文件进行读操作。 Append：打开一个文件，在该文件尾追加记录。
命令按钮。为“打开”按钮
编写打开图形文件的代码，
图形显示在图像框中；为
“保存”按钮编写保存图形
文件的代码。为“颜色”按
钮编写改变文本框中字体颜
色的代码；为“字体”按钮
编写改变文本框中文字字体
的代码。界面设计如图所示。
例5
计算机软件技术基础 Visual Basic 程序设计
三、文件的读写操作
1. 文件的有关概念
通用对话框的类型不能在设计阶段设置，而只能在 程序运行时进行设置。如： 使用 Action 属性设置通用对话框为“选择颜色”：
CommonDialog1 .Action ＝ 3 使用方法设置通用对话框为“选择字体”：
CommonDialog1.ShowFont
计算机软件技术基础 Visual Basic 程序设计
Print #1, "Write输出:"
Write #1, str, num
'写入以逗号隔开的数据。
Close #1
Print “程序运行完毕，请在“第14章例子”中查看生成的文
件！" End Sub
例6
（3）读操作
在程序中，要使用现存文件中的数据，必 须先把它的内容读入到程序的变量中，然后操 作这些变量。
如：Dir1.Path=“c:\Windows” ③Change事件:在目录框发生变化时，会触发该事 件。
【例2】窗体中有1个驱动器列表框、1个目录列表框 和4个标签。程序运行时，将用户在驱动器列表框中 所选驱动器的所有目录显示在目录列表框中，并将 用户双击时所选中的目录显示在窗体下部的标签中。
计算机软件技术基础 Visual Basic 程序设计
通用对话框可以提供 6 种形式的对话框，通 过设置 Action 属性值或调用 Show 方法来 建立不同类型的对话框。
类型 无对话框 打开文件(Open) 保存文件(Save As) 选择颜色(Color) 选择字体(Font) 打印(Print) 帮助文件(Help)
Action属性 0 1 2 3 4 5 6
第7章 第10章
一、内部文件控件 二、通用对话框 三、文件的读写操作 四、菜单编辑器
计算机软件技术基础 Visual Basic 程序设计
一、内部文件控件
文件系统控件用来查看和选择文件的功能，这类 控件有两种：
①VB内部标准的文件控件： 驱动器列表框(DriveListBox) 目录列表框(DirListBox) 文件列表框(FileListBox)
记录：计算机处理数据的基本单位，由若干个相 互关联的数据项组成。相当于表格中的一行。
文件：记录的集合，相当于一张表。 文件类型：顺序文件、随机文件、二进制文件。 访问模式：计算机访问文件的方式，VB中有顺序、 随机、二进制三种访问模式。
2. 顺序访问模式
顺序访问模式的规则最简单，指读出或写入 时，从第一条记录“顺序”地读到最后一条记录， 不可以跳跃式访问。该模式专门用于处理文本文 件，每一行文本相当于一条记录，每条记录可长 可短，记录与记录之间用“换行符”来分隔。
Label2.Caption = "选中的驱动器是" & Drive1.Drive End Sub
例1
计算机软件技术基础 Visual Basic 程序设计
2.目录列表框(DirListBox)
①功能：以根目录开始, 显示目录的层次结构。 ②Path属性：设置当前路径，只能在程序代码中设 置。格式为目录列表框名称.Path[=“路径”]
③事件： ★PathChange事件：路径被FileName或Path
属性改变时发生。 ★PatternChange事件：列表样式被FileName
或Path属性改变时发生。
计算机软件技术基础 Visual Basic 程序设计
4.文件系统控件的同步操作 （控件的联动）
Sub Drive1_Change() Dir1.Path = Drive1.Drive
例4
计算机软件技术基础 Visual Basic 程序设计
计算机软件技术基础 Visual Basic 程序设计
计算机软件技术基础 Visual Basic 程序设计
二、通用对话框
执行“工程/部件” 命令，打开“部件” 对话框，选择 “Microsoft Common Dialog Control 6.0”，即 可在工具箱中添加 通用对话框控件。
计算机软件技术基础 Visual Basic 程序设计
3）文件号: 介于1-511之间的整数，打开一个文件时需
要指定一个文件号，这个文件号就代表该文件， 直到文件关闭后这个号才可以被其他文件所使 用。可以利用FreeFile（）函数获得下一个可 以利用的文件号。
例：Open "D:\sj\aaa" For Output As #1 意思是打开D盘SJ目录下aaa文件供写入数据， 文件号为#1。
Open App.Path & "\Myfile.txt" For Output As #1
str = "STUDY“
num = 12345
Print #1, "Print输出:" '将"Print输出:"写入1号文件
Print #1, str, num '按格式(宽距离)写入数据。
Print #1, "*****************"
计算机软件技术基础 Visual Basic 程序设计
（2）写操作
将数据写入磁盘文件的命令是：Write、Print。 1）Print
格式：Print #文件号，[输出列表] 例：Open “D:\SJ\TEST.DAT” For Output As #1
Print #1,Text1.Text '把文本框1的内容写入1#文件 Close #1 2）Write 格式：Write #文件号，[输出列表] Write 与Print 的功能基本相同，区别是Write 是 以紧凑格式存放，在数据间插入逗号，并给字符串加 上双引号。
使驱动器列表框和目录列表框同步的程序代码： Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub
使目录列表框和文件列表框同步的程序代码： Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub 这样，每当改变驱动器列表框的Drive属性时，将 产生Change事件，目录列表框中的目录变为该驱 动器的目录，进一步引发文件列表框目录的变化。
计算机软件技术基础 Visual Basic 程序设计
【例1】窗体中有2个标签和1个驱动器列表框。程 序运行时，将用户在驱动器列表框中所选驱动器 名称显示在窗体的标签中。
Private Sub Form_Load() Label2.Caption = "选中的驱动器是" &
Drive1.Drive End Sub Private Sub Drive1_Change()
计算机软件技术基础 Visual Basic 程序设计
【例6】用Print # 语句和Write # 语句把数据写入 Myfile.txt文件，并比较输出效果。
Private Sub Form_Click()
Dim str As String
Dim num As Integer
'打开一个文件，对该文件进行写操作
计算机软件技术基础 Visual Basic 程序设计
【例3】窗体中有3个标签、1个驱动器框、1个目录 框和1个文件列表框。程序运行时，在文件列表框 中显示用户所选驱动器及目录中的所有文件。
例3
【例4】制作图片浏览器。程序运行时，在组合框中 选择显示图片的文件类型后，在文件列表框中自动列 出当前所选驱动器及目录中的该类型文件名，用户双 击某文件名后，立即在图像框中显示该图形文件。
★FileName属性, 显示所选中文件的路径和文件名。 例：在文件列表框中只显示C盘windows目录中的 文件。 File1.FileName=“C:\windows\” 在文件列表框中显示C盘windows目录中.exe文件。 File1.FileName=“C:\windows\*.exe”
★Path属性：用来设置文件列表框中所选中文件的路径， 不包括文件名。只能在程序代码中对其进行设置。 例如：设置文件列表框显示当前目录下的所有文件。 File1.Path = Dir1.Path
计算机软件技术基础 Visual Basic 程序设计
★Readonly属性、Archive属性、Normal属性、 Hidden属性和System属性：设置要显示文件的 属性。分别决定是否可以显示只读文件、存档 文件、普通文件、隐藏文件和系统文件。