1、2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程18.1 8.1 对话框l对话框是实现对话框是实现WindowsWindows应用程序和用户应用程序和用户之间进行交互的常用工具，它既可以向之间进行交互的常用工具，它既可以向用户显示信息，也可以供用户输入应用用户显示信息，也可以供用户输入应用程序所需要的数据。程序所需要的数据。lVBVB提供了通用对话框，帮助用户完成一提供了通用对话框，帮助用户完成一些常见操作。除此之外，用户也可以根些常见操作。除此之外，用户也可以根据需要自定义对话框。据需要自定义对话框。2023-12-13Visual Bas
2、icVisual Basic程序设计简明教程程序设计简明教程28.1 8.1 对话框通用对话框通用对话框l通用对话框（通用对话框（CommonDialog）控件提供了）控件提供了一组标准的系统对话框，便于用户完成打开一组标准的系统对话框，便于用户完成打开文件、选择颜色、选择字体以及打印等操作。文件、选择颜色、选择字体以及打印等操作。lCommonDialog控件并不是控件并不是VB的标准控件，的标准控件，而是而是ActiveX控件，使用时需要添加到工具控件，使用时需要添加到工具箱中。箱中。l在在“工程工程”菜单中选择菜单中选择“部件部件”命令，然后命令，然后在在“部件部件”对话框的对话框的“控
3、件控件”选项卡中，选选项卡中，选择择“Microsoft Common Dialog Control 6.0”，即可添加通用对话框控件。，即可添加通用对话框控件。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程3l对对CommonDialog控件的属性设置既可以在属控件的属性设置既可以在属性窗口中进行，也可以借助于性窗口中进行，也可以借助于“属性页属性页”对话框。对话框。l用鼠标右键单击在窗体上的用鼠标右键单击在窗体上的CommonDialog控控件，然后在弹出的菜单中选择件，然后在弹出的菜单中选择“属性属性”命令，即命令，即可打开可打开“属
4、性页属性页”对话框。对话框。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程4通用对话框的常用属性通用对话框的常用属性 属性属性作用作用Name设置通用对话框的对象名设置通用对话框的对象名DialogTitle设置通用对话框的标题设置通用对话框的标题Action设置显示哪一种类型的通用对话框设置显示哪一种类型的通用对话框FileName设置打开或者保存的文件名设置打开或者保存的文件名Filter设置在设置在“打开打开”对话框或者对话框或者“另存为另存为”对话框中显示的文件的对话框中显示的文件的类型类型Color设置选定的颜色设置选定的颜色Fl
5、ags设置通用对话框的默认操作设置通用对话框的默认操作2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程5说明：说明：（1）程序第一个通用对话框控件的默认）程序第一个通用对话框控件的默认对象名是对象名是CommonDialog1，依次类推。，依次类推。（2）Action是通用对话框控件最重要的是通用对话框控件最重要的属性之一，其属性值有属性之一，其属性值有6个。个。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程6Action属性值属性值 值值含义含义1显示显示“打开打开”对话框对话框2显示显
6、示“另存为另存为”对话框对话框3显示显示“颜色颜色”对话框对话框4显示显示“字体字体”对话框对话框5显示显示“打印打印”对话框对话框6显示显示“帮助帮助”对话框对话框2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程7l例如使例如使CommonDialog1CommonDialog1对象显示对象显示“颜色颜色”对话框，可以写为：对话框，可以写为：CommonDialog1.Action=3CommonDialog1.Action=3l在在“打开打开”对话框或者对话框或者“另存为另存为”对话框中，通过对话框中，通过FileNameFileName
7、属性可以得到用户所选择的文件名。属性可以得到用户所选择的文件名。lFilterFilter属性也称为过滤器，它使得在通用对话框中只显示属性也称为过滤器，它使得在通用对话框中只显示指定类型的文件，其属性值的格式为：指定类型的文件，其属性值的格式为：文件描述文件描述|文件类型文件类型 l例如在例如在CommonDialog1CommonDialog1对象显示的通用对话框中，显示文本对象显示的通用对话框中，显示文本文件、文件、WordWord文件或者所有文件，可以写为：文件或者所有文件，可以写为：CommonDialog1.Filter=CommonDialog1.Filter=Text|Text|
8、*.text|Word|.text|Word|*.Doc|.Doc|所有文件所有文件|*.*l在在“颜色颜色”对话框中，通过对话框中，通过ColorColor属性可以得到用户所选择属性可以得到用户所选择的颜色。的颜色。l在显示在显示“字体字体”对话框之前，需要先设置对话框之前，需要先设置FlagsFlags属性值，以属性值，以确定对话框显示的字体类型。确定对话框显示的字体类型。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程82023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程9显示通用对话框的
9、方法显示通用对话框的方法 方法方法功能功能ShowOpen显示显示“打开打开”对话框对话框ShowSave显示显示“另存为另存为”对话框对话框ShowColor显示显示“颜色颜色”对话框对话框ShowFont显示显示“字体字体”对话框对话框ShowPrinter显示显示“打印打印”对话框对话框ShowHelp显示显示“帮助帮助”对话框对话框2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程108.1 8.1 对话框自定义对话框自定义对话框l对话框具有窗体的大部分特性和功能，它实对话框具有窗体的大部分特性和功能，它实际上是窗体的一种特殊状态。际上
10、是窗体的一种特殊状态。l对话框与普通的窗体相比，通常没有控制菜对话框与普通的窗体相比，通常没有控制菜单按钮、最大化按钮和最小化按钮，也不能单按钮、最大化按钮和最小化按钮，也不能改变其尺寸。改变其尺寸。l用户可以通过对窗体进行改造，定制符合自用户可以通过对窗体进行改造，定制符合自身需要的对话框。身需要的对话框。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程11对话框窗体属性设置对话框窗体属性设置 属性属性值值含义含义BorderStyle3固定边框，尺寸不能改变固定边框，尺寸不能改变ControlBoxFalse取消控制菜单按钮取消控制菜单按
11、钮MaxButtonFalse取消最大化按钮取消最大化按钮MinButtonFalse取消最小化按钮取消最小化按钮2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程12l菜单在菜单在Windows应用程序中经常出现，是应用程序中经常出现，是用户界面中一个重要的元素。用户界面中一个重要的元素。l使用菜单可以对程序的功能进行分类，并使用菜单可以对程序的功能进行分类，并形成一些命令组，供用户直观、方便地访形成一些命令组，供用户直观、方便地访问。问。l应用程序的菜单一般分为两种类型，一种应用程序的菜单一般分为两种类型，一种是下拉式菜单，另一种是弹出式菜
12、单。是下拉式菜单，另一种是弹出式菜单。8.2 8.2 菜单2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程138.2 8.2 菜单下拉式菜单下拉式菜单l下拉式菜单一般位于窗体的顶部，平时下拉式菜单一般位于窗体的顶部，平时只显示菜单栏中的菜单标题。当用户选只显示菜单栏中的菜单标题。当用户选中菜单标题之后，才会以下拉列表的形中菜单标题之后，才会以下拉列表的形式显示其包含的菜单项。式显示其包含的菜单项。l菜单项是菜单的主体，选中其中一个菜菜单项是菜单的主体，选中其中一个菜单项，就会执行一个命令，完成相应的单项，就会执行一个命令，完成相应的功能。菜单
13、项也可以成为子菜单，即自功能。菜单项也可以成为子菜单，即自身又包含了一组菜单项。身又包含了一组菜单项。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程14菜单编辑器菜单编辑器 选择选择“工工具具”菜单的菜单的“菜单编辑器菜单编辑器”菜单项，或者菜单项，或者在窗体窗口中在窗体窗口中按下组合键按下组合键Ctrl+ECtrl+E，都可，都可以打开菜单编以打开菜单编辑器。辑器。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程15说明：说明：l菜单编辑器的上部用来设置菜单项的标题、名称等菜单编辑器的上
14、部用来设置菜单项的标题、名称等属性，选定菜单项的快捷键，以及安排协调位置等等。属性，选定菜单项的快捷键，以及安排协调位置等等。l菜单编辑器的中部有菜单编辑器的中部有7 7个命令按钮，其中个命令按钮，其中“”和和“”按钮用来调整当前菜单项在菜单中的位置，按钮用来调整当前菜单项在菜单中的位置，“”和和“”按钮则用来调整当前菜单项在菜单中的层次。按钮则用来调整当前菜单项在菜单中的层次。如果单击如果单击“”按钮，就会使当前菜单项向右缩进按钮，就会使当前菜单项向右缩进4 4格，格，表示其为子菜单的菜单项。表示其为子菜单的菜单项。“下一个下一个”按钮用于移到下按钮用于移到下一个菜单项，一个菜单项，“插入插
15、入”按钮用于在当前菜单项之前插入按钮用于在当前菜单项之前插入一个菜单项，一个菜单项，“删除删除”按钮用于删除当前菜单项。按钮用于删除当前菜单项。l菜单编辑器的下部是一个列表框，用来显示当前窗菜单编辑器的下部是一个列表框，用来显示当前窗体的所有菜单和菜单项。体的所有菜单和菜单项。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程16菜单项的常用属性菜单项的常用属性 属性属性作用作用Name设置菜单项的对象名设置菜单项的对象名Caption设置菜单项的标题设置菜单项的标题Enabled确定菜单项是否有效，默认值是确定菜单项是否有效，默认值是True
16、，表示有效，表示有效Visible确定菜单项是否可见，默认值是确定菜单项是否可见，默认值是True，表示可见，表示可见Checked确定菜单项是否有复选标记确定菜单项是否有复选标记“”，默认值是，默认值是False，表示没有复，表示没有复选标记选标记Index设置菜单项在控件数组中的下标设置菜单项在控件数组中的下标2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程17说明：说明：（1）系统并没有给出菜单项控件的默认对象名，习惯）系统并没有给出菜单项控件的默认对象名，习惯上用前缀上用前缀mnu来命名。来命名。（2）设置）设置Caption属性时，
17、如果标题为属性时，如果标题为“-”，就会在菜，就会在菜单中建立一条分隔线。在标题的某个字母前插入一个连接单中建立一条分隔线。在标题的某个字母前插入一个连接符（符（&），即可为菜单项设置访问键。打开下拉式菜单之），即可为菜单项设置访问键。打开下拉式菜单之后，当用户按下访问键时，便可执行该菜单项的功能。后，当用户按下访问键时，便可执行该菜单项的功能。（3）菜单标题又称为顶级菜单，当其）菜单标题又称为顶级菜单，当其Enabled或者或者Visible的属性值是的属性值是False时，不仅菜单标题将会失效或者时，不仅菜单标题将会失效或者不可见，而且它所包含的所有菜单项也都将会失效或者不不可见，而且它所
18、包含的所有菜单项也都将会失效或者不可见。可见。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程18创建一个菜单的步骤创建一个菜单的步骤 ：（1）打开菜单编辑器，先创建菜单标题。在标题栏和名）打开菜单编辑器，先创建菜单标题。在标题栏和名称栏分别输入标题信息和对象名，并做其它必要的属性设置。称栏分别输入标题信息和对象名，并做其它必要的属性设置。（2）单击）单击“下一个下一个”按钮，建立菜单项。设置菜单项的按钮，建立菜单项。设置菜单项的属性之后，单击属性之后，单击“”按钮，使它成为菜单标题的菜单项，按钮，使它成为菜单标题的菜单项，以后创建的菜单项将
19、自动成为该菜单标题所包含的菜单项。以后创建的菜单项将自动成为该菜单标题所包含的菜单项。（3）不断地单击）不断地单击“下一个下一个”按钮，为该菜单标题创建全按钮，为该菜单标题创建全部的菜单项。如果在创建某个菜单项时再次单击部的菜单项。如果在创建某个菜单项时再次单击“”按钮，按钮，将会使上一个菜单项成为子菜单，而当前菜单项则成为子菜将会使上一个菜单项成为子菜单，而当前菜单项则成为子菜单的菜单项。单的菜单项。重复上述步骤，并适当调整菜单项在菜单中的层次和位置，重复上述步骤，并适当调整菜单项在菜单中的层次和位置，就可以创建窗体中所有的菜单。就可以创建窗体中所有的菜单。2023-12-13Visual
20、BasicVisual Basic程序设计简明教程程序设计简明教程19例8.1 设计一个菜单设计一个菜单 l一个菜单的菜单标题是一个菜单的菜单标题是“文件文件”，其中有，其中有“打开打开”和和“另另存为存为”两个菜单项；两个菜单项；l另一个菜单的菜单标题是另一个菜单的菜单标题是“系统系统”，其中有，其中有“颜色颜色”和和“退出退出”两个菜单项。两个菜单项。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程20说明：说明：Private Sub mnuOpen_Click()CommonDialog1.Action=1 显示显示“打开打开”对话框
21、对话框 MsgBox(您打开了您打开了&CommonDialog1.FileName&文件！文件！)End Sub Private Sub mnuSave_Click()CommonDialog1.ShowSave 显示显示“另存为另存为”对话对话框框 MsgBox(您保存了您保存了&CommonDialog1.FileName&文件！文件！)End Sub Private Sub mnuColor_Click()CommonDialog1.Action=3 显示显示“颜色颜色”对话框对话框 Form1.BackColor=CommonDialog1.Color End Sub Private
22、 Sub mnuExit_Click()Call Command1_Click End Sub Private Sub Command1_Click()End End Sub 2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程218.2 8.2 菜单弹出式菜单弹出式菜单l弹出式菜单是独立于菜单栏而显示在窗体上的弹出式菜单是独立于菜单栏而显示在窗体上的浮动菜单，又称为快捷菜单。浮动菜单，又称为快捷菜单。l在程序中至少含有一个菜单项的菜单都在程序中至少含有一个菜单项的菜单都可以作可以作为弹出式菜单，其在窗体上显示的位置可以变化，为弹出式菜单，其在窗
23、体上显示的位置可以变化，具有较大的灵活性。具有较大的灵活性。l设计时应把菜单的设计时应把菜单的Visible属性值设置为属性值设置为False，而菜单项的而菜单项的Visible属性值仍然设置为属性值仍然设置为True。l程序运行时并不会自动显示弹出式菜单，而是程序运行时并不会自动显示弹出式菜单，而是需要调用需要调用PopupMenu方法，其格式是：方法，其格式是：对象对象.PopupMenu 菜单名菜单名,flags,x,y,2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程22举例：Private Sub Form_MouseDown(Bu
24、tton As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then PopupMenu mnuSystem End If End Sub 2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程238.3 8.3 多重窗体窗体添加和启动窗体添加和启动l选择选择“工程工程”菜单菜单的的l“添加窗体添加窗体”菜单菜单项，打开项，打开“添加窗体添加窗体”对话框。对话框。l在在“添加窗体添加窗体”对对话框的话框的“新建新建”选项卡选项卡中选择窗体类型，即可中选择窗体类型，即可创建
25、一个新窗体。创建一个新窗体。l如果在如果在“现存现存”选选项卡中进行选择，将会项卡中进行选择，将会添加一个已存在的窗体，添加一个已存在的窗体，与其他的程序共享。与其他的程序共享。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程24启动窗体启动窗体 l多窗体程序运行时，首先被执行的窗体称为启动窗体。多窗体程序运行时，首先被执行的窗体称为启动窗体。l系统默认第一个建立的窗体（系统默认第一个建立的窗体（Form1Form1）是启动窗体，）是启动窗体，也可以根据需要设置启动窗体或者启动过程。选择也可以根据需要设置启动窗体或者启动过程。选择“工程工程”
26、菜单的菜单的“工程属性工程属性”菜单项，打开菜单项，打开“工程属性工程属性”对话框。对话框。在在“工程属性工程属性”对话框的对话框的“通用通用”选项卡中，打开选项卡中，打开“启动启动对象对象”下拉列表框，选择一个窗体名或者下拉列表框，选择一个窗体名或者“Sub MainSub Main”，即可设置启动对象。即可设置启动对象。l如果选择了如果选择了“Sub MainSub Main”，就表示设置子过程，就表示设置子过程MainMain为为启动过程。程序运行时将首先执行启动过程。程序运行时将首先执行MainMain过程，然后在该过过程，然后在该过程中根据情况加载某些窗体。程中根据情况加载某些窗体。
27、2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程252023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程268.3 8.3 多重窗体窗体操作窗体操作l使用使用Load语句进行加载，其格式是：语句进行加载，其格式是：Load 窗体名窗体名l使用使用Unload语句卸载一个窗体，其格式是：语句卸载一个窗体，其格式是：Unload 窗体名窗体名l多窗体程序在运行时，某时刻只有一个窗体处于活动多窗体程序在运行时，某时刻只有一个窗体处于活动状态，因此经常需要从某个窗体切换到另一个窗体。状态，因此经常需要从
28、某个窗体切换到另一个窗体。l例如从例如从Form1切换到切换到Form2，可以在窗体，可以在窗体Form1的程的程序代码中添加以下语句：序代码中添加以下语句：Unload Form1 Form2.Show2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程27窗体之间共享数据窗体之间共享数据 l访问的一般形式是：访问的一般形式是：窗体名窗体名.控件名控件名.属性属性 l例如把窗体例如把窗体Form2中文本框中文本框Text1的文本，显的文本，显示在窗体示在窗体Form1的标签的标签Label1中，可以在窗中，可以在窗体体Form1的程序代码中添加
29、一条语句：的程序代码中添加一条语句：Label1.Caption=Form2.Text1.Text2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程28例例8.28.2 设计简单的多窗体程序设计简单的多窗体程序 l除了窗体除了窗体Form1之外，再添加两个窗体之外，再添加两个窗体Form2和和Form3。l在窗体在窗体Form1上创建上创建“时钟时钟”、“诗词诗词”和和“退出退出”三个命令按钮。三个命令按钮。l在窗体在窗体Form2上创建一个计时器、一个上创建一个计时器、一个标签和一个标签和一个“返回返回”命令按钮，其中计命令按钮，其中计时器的
30、时器的Interval属性值设置为属性值设置为1000。l在窗体在窗体Form3上创建一个标签和一个上创建一个标签和一个“返回返回”命令按钮。命令按钮。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程29窗体Form1：Private Sub Command1_Click()Form1.Hide 隐藏窗体隐藏窗体Form1 Form2.Show 显示窗体显示窗体Form2 End Sub Private Sub Command2_Click()Form1.Hide 隐藏窗体隐藏窗体Form1 Form3.Show 显示窗体显示窗体Form3
31、End Sub Private Sub Command3_Click()End End Sub Private Sub Timer1_Timer()Label1.FontSize=24 Label1.Caption=Time 显示当前时显示当前时间间 End Sub Private Sub Command1_Click()Me.Hide 隐藏窗体隐藏窗体Form2 Form1.Show 显示窗体显示窗体Form1 End Sub 窗体窗体Form2Form2：2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程30窗体窗体Form3 Form3
32、Private Sub Form_Click()Dim s As String s=登鹳雀楼登鹳雀楼&vbCr s=s&白日依山尽白日依山尽&vbCr s=s&黄河入海流黄河入海流&vbCr s=s&欲穷千里目欲穷千里目&vbCr s=s&更上一层楼更上一层楼 Label1.FontSize=24 Label1.Caption=s End Sub Private Sub Command1_Click()Me.Hide 隐藏窗体隐藏窗体Form3 Form1.Show 显示窗体显示窗体Form1 Label1.Caption=请单击窗体请单击窗体 End Sub2023-12-13Visual
33、BasicVisual Basic程序设计简明教程程序设计简明教程318.4 8.4 ActiveX控件lActiveX控件是一段可以重复使用的程序代码和数据，其中封装了很多常控件是一段可以重复使用的程序代码和数据，其中封装了很多常用的功能，例如通用对话框、进度条和选项卡等等。用的功能，例如通用对话框、进度条和选项卡等等。l在在“工程工程”菜单中选择菜单中选择“部件部件”命令，打开命令，打开“部件部件”对话框。然后在该对话框。然后在该对话框的对话框的“控件控件”选项卡中，选择要添加的控件所在的部件，单击选项卡中，选择要添加的控件所在的部件，单击“确定确定”按钮，即按钮，即可在工具箱中添加相应的
34、可在工具箱中添加相应的ActiveX控件。控件。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程328.4 ActiveX8.4 ActiveX控件控件进度条进度条l进度条（进度条（ProgressBar）控件位于）控件位于Microsoft Windows Common Controls 6.0部件中。部件中。l进度条控件常用于观察一个耗时较长的操作所进度条控件常用于观察一个耗时较长的操作所完成的进度，通过从左至右地用一些矩形块填完成的进度，通过从左至右地用一些矩形块填充进度条的形式，直观地描述当前操作完成的充进度条的形式，直观地描述当前操
35、作完成的程度。如果进度条被填满了矩形块，就表示操程度。如果进度条被填满了矩形块，就表示操作已经完成。作已经完成。l在工具箱中表示为：在工具箱中表示为：2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程33进度条控件的属性页进度条控件的属性页 2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程34进度条的常用属性进度条的常用属性 属性属性作用作用Name设置进度条的对象名，程序第一个进度条控件的默设置进度条的对象名，程序第一个进度条控件的默认对象名是认对象名是ProgressBar1Max设置进度
36、条的上界设置进度条的上界Min设置进度条的下界设置进度条的下界Value设置进度条的当前值设置进度条的当前值2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程358.4 ActiveX8.4 ActiveX控件控件选项卡选项卡l选项卡（选项卡（SSTab）控件位于）控件位于Microsoft Tabbed Dialog Control 6.0部件中。部件中。lSSTab控件拥有多个选项卡，每一个选项卡都控件拥有多个选项卡，每一个选项卡都可以象框架一样，作为其他控件的容器。某时可以象框架一样，作为其他控件的容器。某时刻只有一个选项卡处于活动状态并
37、显示，其余刻只有一个选项卡处于活动状态并显示，其余的选项卡则被隐藏。的选项卡则被隐藏。l在工具箱中表示为：在工具箱中表示为：2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程36选项卡控件的属性页选项卡控件的属性页 2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程37选项卡的常用属性选项卡的常用属性 属性属性作用作用Name 设置选项卡的对象名，程序第一个选项卡控件设置选项卡的对象名，程序第一个选项卡控件的默认对象名是的默认对象名是SSTab1Caption设置选项卡的标题设置选项卡的标题Ta
38、b设置当前活动的选项卡设置当前活动的选项卡Tabs设置选项卡的总数设置选项卡的总数TabsPerRow设置每一行选项卡的数目设置每一行选项卡的数目Rows确定选项卡的总行数确定选项卡的总行数2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程388.4 ActiveX8.4 ActiveX控件控件列表视图列表视图l列表视图（列表视图（ListView）控件位于）控件位于Microsoft Windows Common Controls 6.0部件中。部件中。l列表视图能够以列表的形式，直观地显示一组列表视图能够以列表的形式，直观地显示一组项目。与
39、列表框控件相比，列表视图控件所显项目。与列表框控件相比，列表视图控件所显示的项目不仅可以有多列，而且每一列都能够示的项目不仅可以有多列，而且每一列都能够拥有自己的列标题。拥有自己的列标题。l在工具箱中表示为：在工具箱中表示为：2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程39列表视图控件的属性页列表视图控件的属性页 2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程40列表视图的常用属性列表视图的常用属性 属性属性作用作用Name 设置列表视图的对象名，程序第一个列表视图控件设置列表视图的对
40、象名，程序第一个列表视图控件的默认对象名是的默认对象名是ListView1Sorted确定项目是否自动排序确定项目是否自动排序SortKey确定项目依据哪一列进行排序确定项目依据哪一列进行排序SortOrder 确定项目是以升序还是降序进行排序，默认值是确定项目是以升序还是降序进行排序，默认值是lvwAscending，表示升序，表示升序View设置列表视图的类型设置列表视图的类型ColumnHeaders获得列表视图中的列标题对象获得列表视图中的列标题对象ListItems获得列表视图中的项目对象获得列表视图中的项目对象2023-12-13Visual BasicVisual Basic程序
41、设计简明教程程序设计简明教程41说明：说明：（1）View属性值确定了列表视图中项目的外观，有标准图属性值确定了列表视图中项目的外观，有标准图标（标（lvwIcon）、小图标（）、小图标（lvwSmallIcon）、列）、列表（表（lvwList）和报表（）和报表（lvwReport）等）等4种类型。种类型。（2）ColumnHeaders本身是一个对象，用于管理列表视图本身是一个对象，用于管理列表视图的所有列标题。其的所有列标题。其Count属性则确定了列表视图中列标题的属性则确定了列表视图中列标题的个数，即项目的列数。个数，即项目的列数。（3）列表视图的操作主要是针对其）列表视图的操作主要
42、是针对其ListItems属性，即项目属性，即项目对象。对象。ListItems本身也是一个对象，用于管理视图列表的所本身也是一个对象，用于管理视图列表的所有项目。其有项目。其Count属性确定了列表视图中项目的行数，即项属性确定了列表视图中项目的行数，即项目的个数。目的个数。Item是是ListItems的重要属性，其属性值是一个数的重要属性，其属性值是一个数组，每一个元素存放视图列表的一个项目。组，每一个元素存放视图列表的一个项目。Item数组的元素数组的元素又是一个对象，其又是一个对象，其SubItems属性值则是一个字符串数组，每属性值则是一个字符串数组，每一个元素依次存放相应项目的一
43、个子项目。一个元素依次存放相应项目的一个子项目。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程428.4 ActiveX8.4 ActiveX控件控件树形视图树形视图l树形视图（树形视图（TreeView）控件位于）控件位于Microsoft Windows Common Controls 6.0部件中。部件中。l树形视图能够以树形结构，组织类似文件目树形视图能够以树形结构，组织类似文件目录这样的一些具有层次关系的节点对象录这样的一些具有层次关系的节点对象（Node），并且以树形方式直观地显示节），并且以树形方式直观地显示节点对象的分层列表
44、。点对象的分层列表。l在工具箱中表示为：在工具箱中表示为：2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程43树形视图控件的属性页树形视图控件的属性页 2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程44树形视图的常用属性树形视图的常用属性 属性属性作用作用Name 设置树形视图的对象名，程序第一个树形视图控件设置树形视图的对象名，程序第一个树形视图控件的默认对象名是的默认对象名是TreeView1Style设置树形视图的样式设置树形视图的样式Nodes获得树形视图中的节点对象获得树形视图中
45、的节点对象LineStyle设置节点之间连线的样式设置节点之间连线的样式Sorted确定节点是否自动排序确定节点是否自动排序2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程458.4 ActiveX8.4 ActiveX控件控件AnimationAnimation控件控件lAnimation控件位于控件位于Microsoft Windows Common Controls-2 6.0部件中。部件中。lAnimation控件能够显示无声的控件能够显示无声的AVI视频文视频文件，它属于后台控件，程序运行时看不到。件，它属于后台控件，程序运行时看不
46、到。lAnimation控件一般用于播放无声的控件一般用于播放无声的AVI动动画，画，AVI动画是由若干帧位图组成的，其结动画是由若干帧位图组成的，其结构与电影类似。构与电影类似。l在工具箱中表示为：在工具箱中表示为：2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程46AnimationAnimation控件的属性页控件的属性页 2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程47 Animation Animation控件的常用属性控件的常用属性 属性属性作用作用Name设置设置Anima
47、tion控件的对象名，程序第一个控件的对象名，程序第一个Animation控件的默认对象名是控件的默认对象名是Animation1AutoPlay确定确定Animation控件能否自动播放加载的控件能否自动播放加载的AVI文文件，默认值是件，默认值是False，表示不能自动播放，表示不能自动播放BackStyle设置设置Animation控件播放动画的背景控件播放动画的背景Center确定确定Animation控件中的控件中的AVI文件是否居中显示，文件是否居中显示，默认值是默认值是False，表示不居中显示，而是在控件的左，表示不居中显示，而是在控件的左上角显示上角显示2023-12-13V
48、isual BasicVisual Basic程序设计简明教程程序设计简明教程48AnimationAnimation控件的常用方法控件的常用方法 方法方法功能功能Open打开要播放的打开要播放的AVI文件文件Play播放已加载的播放已加载的AVI文件文件Stop停止播放已加载的停止播放已加载的AVI文件文件 Close关闭当前打开的关闭当前打开的AVI文件文件2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程49说明：说明：（1）Open方法的调用形式为：方法的调用形式为：对象对象.Open Filenamel参数参数Filename表示在表
49、示在Animation控件中被打开文件的控件中被打开文件的文件名，该文件的扩展名必须是文件名，该文件的扩展名必须是avi。（2）Play方法的调用形式为：方法的调用形式为：对象对象.Play RepeatCount,StartFrame,EndFramel参数参数RepeatCount表示动画重复播放的次数，其默认表示动画重复播放的次数，其默认值是值是-1，表示可以连续重复地播放。参数，表示可以连续重复地播放。参数StartFrame表表示动画播放的开始帧，其默认值是示动画播放的开始帧，其默认值是0，表示从第一帧开，表示从第一帧开始播放。参数始播放。参数EndFrame表示动画播放的结束帧，其默表示动画播放的结束帧，其默认值是认值是-1，表示一直播放到最后一帧才结束。，表示一直播放到最后一帧才结束。l例如在控件例如在控件Animation1中播放动画，从第中播放动画，从第7帧开始，帧开始，到第到第23帧结束，一共重复帧结束，一共重复3次，可以写为：次，可以写为：Animation1.Play 3,7,23
