VisualBasic程序设计ppt课件 之第7章常用控件.ppt

《VisualBasic程序设计ppt课件 之第7章常用控件.ppt》由会员分享，可在线阅读，更多相关《VisualBasic程序设计ppt课件 之第7章常用控件.ppt（77页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第7章章 常用控件常用控件 7.1 单选按钮和复选框单选按钮和复选框 7.2 框架框架 7.3 列表框和组合框列表框和组合框 7.4 滚动条和滚动滑块滚动条和滚动滑块 7.5 时钟时钟 7.6 进度条进度条*7.7 数字增减按钮数字增减按钮*7.8 Animation控件控件*7.9 SSTab控件控件 7.10 鼠标器、键盘鼠标器、键盘*7.11 剪贴板剪贴板VBVB可使用的三类控件可使用的三类控件内部控件内部控件 位于工具箱中，不能删除位于工具箱中，不能删除ActiveXActiveX控件控件 扩展名为扩展名为.ocxocx的独立文件的独立文件图标控件：工程图标控件：工程部件部件控件控件

2、 添加到工具箱中添加到工具箱中代码控件：工程代码控件：工程引用引用 不能添加到工具箱中不能添加到工具箱中可插入对象可插入对象 其他应用程序创建的对象，如其他应用程序创建的对象，如ExcelExcel工工作表等，可以添加到工具箱中作为控件使用作表等，可以添加到工具箱中作为控件使用 工程工程部件部件可插入对象可插入对象1.单选按钮单选按钮 从多个选项（标题）中选择一个从多个选项（标题）中选择一个 Name option Caption标题标题Value(默认属性默认属性)True 选定选定 False 未选定未选定 Alignment确定按钮和标题的相对位置确定按钮和标题的相对位置 0：按钮在左，

3、标题在右（缺省设置）按钮在左，标题在右（缺省设置）1：按钮在右，标题在左：按钮在右，标题在左单选按钮单选按钮标题标题7.1单选按钮单选按钮(OptionButton)和复选框和复选框(CheckBox)Style确定标题和按钮的显示方式确定标题和按钮的显示方式 0-Standard：标准方式标准方式(显示标题及按钮显示标题及按钮)1-Graphical：图形方式图形方式(只显示标题只显示标题)Picture(Style=1)放置未选中时的图标、位图或文字放置未选中时的图标、位图或文字DownPicture(Style=1)放置选中时的图标、位图或文字放置选中时的图标、位图或文字Disabled

4、Picture(Style=1)放置禁止选择时的图标、位图或文字放置禁止选择时的图标、位图或文字 事件事件Click 鼠标单击后，其鼠标单击后，其Value值将自动改变值将自动改变 2.复选框复选框 也叫检查框，可以同时选择多个标题。也叫检查框，可以同时选择多个标题。Name Check Caption 标题标题 Value(默认属性默认属性)确定是否被选中确定是否被选中 0Unchecked 未被选定未被选定 1Checked 选定选定 2Grayed 灰色，禁止选择灰色，禁止选择 Alighment:同单选按钮同单选按钮 Style:同单选按钮同单选按钮例例7.1 通过单选按钮和复选框使文

5、本框内的文字显示不同通过单选按钮和复选框使文本框内的文字显示不同的字体和修饰。的字体和修饰。用用click()编程编程复选框复选框标题标题Style=1Style=07.2 框架框架(Frame)框架内控件的创建方法：框架内控件的创建方法：建立独立控件的方法建立独立控件的方法：先创建框架，再单击工具箱上的：先创建框架，再单击工具箱上的控件，然后用鼠标（此时鼠标光标出现控件，然后用鼠标（此时鼠标光标出现“+”）在框架）在框架内适当位置拖拉出适当大小的控件内适当位置拖拉出适当大小的控件(不能使用双击工具不能使用双击工具箱上控件的自动方式箱上控件的自动方式)建立控件数组的方法建立控件数组的方法：先创

6、建框架，建立第一个控件，：先创建框架，建立第一个控件，然后通过然后通过“剪切剪切”和粘贴和粘贴(Ctrl+V)的方法将选定的控件的方法将选定的控件粘贴到框架内，从而建立一个控件数组粘贴到框架内，从而建立一个控件数组(不能直接用鼠不能直接用鼠标拖动控件的方式标拖动控件的方式)框架的作用是将若框架的作用是将若干个单选按钮作为干个单选按钮作为一个组，或者对一一个组，或者对一组控件进行整体激组控件进行整体激活或屏蔽操作。活或屏蔽操作。框架框架设设Caption为为 字体字体 Name FrameCaption框架标题框架标题Enabled确定该控件是否可用确定该控件是否可用 False：标题呈灰色，框

7、架内的对象被屏蔽，不允许进行操作标题呈灰色，框架内的对象被屏蔽，不允许进行操作 True：标题呈正常显示，允许对框架内控件进行操作标题呈正常显示，允许对框架内控件进行操作Visible确定该控件是否可见确定该控件是否可见 True：框架及其控件可见框架及其控件可见 False：框架及其控件被隐藏框架及其控件被隐藏事件事件框架可以响应框架可以响应Click、DblClick事件，但一般不用编写有事件，但一般不用编写有关框架的事件过程。关框架的事件过程。例例7.2 设计字体和字号两个框架，其中各有若干个字体和设计字体和字号两个框架，其中各有若干个字体和字号单选按钮。在选择了某个字体和字号后，按字号

8、单选按钮。在选择了某个字体和字号后，按“确定确定”按钮，使文本框内的文字按指定的字体和字号显示。按钮，使文本框内的文字按指定的字体和字号显示。7.3 列表框列表框(ListBox)和组合框和组合框(ComboBox)1.列表框列表框 用来显示项目列表，程序运行时，用户可从其中可以选用来显示项目列表，程序运行时，用户可从其中可以选择一项或多项。如果列表框中选项较多，在列表框中装不择一项或多项。如果列表框中选项较多，在列表框中装不下时，列表框会自动加上垂直滚动条。在列表框中可以单下时，列表框会自动加上垂直滚动条。在列表框中可以单列显示，也可以多列显示，还可以在选项左边增加复选框。列显示，也可以多列

9、显示，还可以在选项左边增加复选框。Style=0Style=1(1)(1)主要属性主要属性NameNameListListListList是一个字符型数组，存放列表项，是一个字符型数组，存放列表项，List(0)List(0)表示第表示第1 1个列表项内容，个列表项内容，List(i)List(i)表示第表示第i+1i+1个列表项内容个列表项内容 在属性窗口的在属性窗口的ListList属性中输入：属性中输入：每输入一项用每输入一项用Ctrl+Ctrl+回车键，可继续输入下一项回车键，可继续输入下一项 在程序中用在程序中用AddItemAddItem方法加入：方法加入：List1.AddIte

10、m List1.AddItem 列列表项表项 ，索引号，索引号 ListIndexListIndex获得选中项目的序号，没有项目选中时为获得选中项目的序号，没有项目选中时为-1-1SelectedSelected逻辑型数组，逻辑型数组，Selected(i)Selected(i)的值的值为为TrueTrue表示第表示第i+1i+1项被选中，否则没有选中。项被选中，否则没有选中。ListCountListCount列表框中项目总数，列表框中项目总数，ListCount-1ListCount-1是最后一是最后一项的下标项的下标SortedSorted确定确定ListList中列表项的排列方式。中列

11、表项的排列方式。TrueTrue：按字母按字母顺序排列；顺序排列；FalseFalse：按加入先后顺序排列按加入先后顺序排列TextText（默认属性）默认属性）被选中列表项的内容被选中列表项的内容 引用引用List1.List(ListIndex)List1.List(ListIndex)与与List1.TextList1.Text具有相同的具有相同的值值MultiSelect确定是否可以进行多项选择确定是否可以进行多项选择 0-None：禁止多项选择禁止多项选择 1-Simple：简单多项选择简单多项选择(鼠标每击一次可选中一个，鼠标每击一次可选中一个，按空格键取消最近的选择按空格键取消最

12、近的选择)2-Extended：按住按住Ctrl，用鼠标单击可选中不连续的多用鼠标单击可选中不连续的多项或空格键取消选择；按住项或空格键取消选择；按住Shift同时用鼠标或光标移动同时用鼠标或光标移动键可选择连续的多项键可选择连续的多项Style列表框样式列表框样式 0只显示列表项文本只显示列表项文本 1列表项文本前带复选框列表项文本前带复选框Column指定列表框中列的数目指定列表框中列的数目 0垂直单列显示，垂直滚动垂直单列显示，垂直滚动 nn列显示列显示,先显示第先显示第1列列,再显示第再显示第2列列,水平滚动水平滚动ListIndex、ListCount、Selected、Text只能

13、在程序中引用只能在程序中引用Sorted必须在属性窗口中设置必须在属性窗口中设置ListIndex和和Selected分别用来检测选中的列表项的序号及分别用来检测选中的列表项的序号及某个列表项是否被选择，它们既可以在程序中被引用，某个列表项是否被选择，它们既可以在程序中被引用，也可以在程序中设置也可以在程序中设置Column=0Column=3(2)方法方法 AddItem方法可以在列表框中加入一个项目方法可以在列表框中加入一个项目 对象对象.AddItem item,index List1.AddItem“计算机软件技术基础计算机软件技术基础”,3 (Item若为其他类型的常数，则按字符串对

14、待若为其他类型的常数，则按字符串对待)RemoveItem方法可以从列表框中删除一个项目方法可以从列表框中删除一个项目 对象对象.RemoveItem index List1.RemoveItem 7 Clear方法可以清除列表框中的所有项目方法可以清除列表框中的所有项目 对象对象.Clear(3)事件事件 Click事件，一般不必编程，因为通常事件，一般不必编程，因为通常List控件与命令按控件与命令按钮联合使用，在选择列表框中的项目时，需要按命令按钮联合使用，在选择列表框中的项目时，需要按命令按钮，可使用命令按钮的钮，可使用命令按钮的Click事件来读取列表框事件来读取列表框Text属性属

15、性值。值。例例7.3 在在Form_Load()事件中用事件中用AddItem方法在列表框中方法在列表框中加入加入5个项目。个项目。允许通过允许通过“添加添加”操作将文本框中输入操作将文本框中输入的内容作为项目添加到列表框中的内容作为项目添加到列表框中当选中列表框的某个项当选中列表框的某个项目后单击目后单击“删除删除”按钮，可将选中的项目删除掉；按钮，可将选中的项目删除掉；当选当选中列表框中的项目然后单击中列表框中的项目然后单击“修改修改”按钮时，可将选中的按钮时，可将选中的项目内容放入文本框中由用户进行修改，然后单击项目内容放入文本框中由用户进行修改，然后单击“修改修改确认确认”按钮确认修改

16、结果。按钮确认修改结果。初始时，初始时，“修改确认修改确认”按钮是不可选的按钮是不可选的编制编制5个事件过程个事件过程 Form_Load()添加添加5项项 Command1_Click()将文本框的内容添加到列表框中将文本框的内容添加到列表框中 Command2_Click()删除选中的项删除选中的项 Command3_Click()将将选中的项放入文本框选中的项放入文本框 Command4_Click()将将文本框的内容替换列表框内容文本框的内容替换列表框内容2.组合框组合框(ComboBox)组合框将文本框和列表框组合成一个控件，用户既可以组合框将文本框和列表框组合成一个控件，用户既可以

17、在列表框中选定项目，也可以在文本框中输入文本来选定在列表框中选定项目，也可以在文本框中输入文本来选定项目。项目。设计状态设计状态运行状态运行状态设计状态设计状态运行状态运行状态下拉式下拉式组合框组合框Style=0只只显示文本框和下拉箭头显示文本框和下拉箭头，不显示列表框，文本框高不显示列表框，文本框高度不能改变度不能改变可直接输入文本，也可单可直接输入文本，也可单击下拉箭头弹出列表框，击下拉箭头弹出列表框，选中某项后，该项先写入选中某项后，该项先写入文本框，同时下拉列表消文本框，同时下拉列表消失失简单组简单组合框合框Style=1同时显示文本框和列表框，同时显示文本框和列表框，没有下拉箭头没

18、有下拉箭头，列表框的，列表框的大小必须在设计时拉出，大小必须在设计时拉出，且在运行中不再改变。且在运行中不再改变。可直接输入文本，也可直接输入文本，也可从列表框选中项目，可从列表框选中项目，文本框内显示，列表文本框内显示，列表框始终显示。框始终显示。下拉式下拉式列表框列表框Style=2与下拉式组合框相同与下拉式组合框相同与下拉式组合框相似，不与下拉式组合框相似，不同的是：只能从列表项中同的是：只能从列表项中选择，不能输入文本选择，不能输入文本列表框中的项目清单只有在程序运行时才能看到。下拉列表框中的项目清单只有在程序运行时才能看到。下拉式组合框和简单组合框的文本框中输入的数据不能自动式组合框

19、和简单组合框的文本框中输入的数据不能自动添加到列表框中。添加到列表框中。(1)主要属性主要属性NameComboStyle设置组合框样式设置组合框样式 0下拉式组合框（默认样式）下拉式组合框（默认样式）1简单组合框简单组合框 2下拉列表框下拉列表框属性属性List、ListIndex、ListCount、Sorted、Text(默认属性默认属性)与列表框相同与列表框相同属性属性SelStart，SelLength，SelText与文本框相同与文本框相同(2)方法方法 主要使用与列表框相同的主要使用与列表框相同的AddItem、RemoveItem和和Clear方法，用于在列表框中添加、删除或清

20、除项目方法，用于在列表框中添加、删除或清除项目(3)事件事件 三种风格的组合框均响应三种风格的组合框均响应Click()事件事件 简单组合框可响应简单组合框可响应DblClick事件事件例例7.4 在窗口中选择复选框在窗口中选择复选框“计算机计算机”后，可在下拉式组后，可在下拉式组合框的下拉列表框中选择计算机型号，也可直接在组合合框的下拉列表框中选择计算机型号，也可直接在组合框的文本框中输入计算机型号，当选取操作系统的类型框的文本框中输入计算机型号，当选取操作系统的类型并按了并按了“OK”按钮后，右边文本框中显示您所选择的计按钮后，右边文本框中显示您所选择的计算机、台数及操作系统类型。算机、台

21、数及操作系统类型。需要编制需要编制5个事件过程：个事件过程：Form_Load()初始化初始化 Check1_Click()设置设置Combo1和和Text1可用与否可用与否 Check2_Click()设置设置Option1和和Option2可用与否可用与否 Combo1_LostFocus()将将Combo1.text装入装入Combo1.List中中将将选中的信息装入列表框选中的信息装入列表框Command1_Click()7.4 滚动条滚动条(ScrollBar)和滚动滑块和滚动滑块(Slider)1.滚动条滚动条 滚动条的主要作用是：滚动条的主要作用是：与不支持滚动的控件（如窗体）配

22、合使用，给它们提与不支持滚动的控件（如窗体）配合使用，给它们提供滚动查看的功能。供滚动查看的功能。实现数据的连续调整，如控制声音音量或调整图片颜实现数据的连续调整，如控制声音音量或调整图片颜色等。色等。滚动条分为垂直滚动条滚动条分为垂直滚动条VScroll和水平滚动条和水平滚动条HScroll(1)主要属性主要属性 NameHScroll,VScroll Max最大值最大值(-32,76832,767)Min最小值最小值(-32,76832,767)SmallChange:单击滚动条两端箭头时，滑块移动的增量单击滚动条两端箭头时，滑块移动的增量 LargeChange:单击滚动条空白处时，滑块

23、移动的增量单击滚动条空白处时，滑块移动的增量 Value（默认属性）默认属性）滑块位置所代表的值滑块位置所代表的值水平滚动条水平滚动条垂垂直直滚滚动动条条 SmallChange Min Value Max SmallChange LargeChange LargeChange(2)主要事件主要事件Scroll：拖动滑块时会触发拖动滑块时会触发Scroll事件。事件。Change：Value属性改变时触发属性改变时触发Change事件。事件。例例7.5 用一个文本框用一个文本框(Text1)显示水平滚动条显示水平滚动条(HScroll1)中滑块当前位置所代表的值。中滑块当前位置所代表的值。初始

24、设置：初始设置：Min=0 Max=100 Value=50 Smallchange=2 Largechange=10滚动条滚动条HScroll1的的Change事件过程：事件过程：Sub HScroll1_Change()Text1.Text=HScroll1.ValueEnd Sub 请将上述请将上述change事件过程改为事件过程改为scroll事件过程，观察运行结果的变化。事件过程，观察运行结果的变化。例例7.6 设计一个调色板程序，用三个水平滚动条改变三基设计一个调色板程序，用三个水平滚动条改变三基色比例，合成的颜色显示在右边的文本框色比例，合成的颜色显示在右边的文本框Text1中中

25、(用合成用合成的颜色设置其的颜色设置其BackColor属性属性)；用同样的方法设置文本框；用同样的方法设置文本框Text2的前景和背景色。的前景和背景色。用滚动条的用滚动条的Value值表示各种颜色的比例，合成颜色值表示各种颜色的比例，合成颜色=Red+Green*256+Blue*256*2561.对三个滚动条分别进对三个滚动条分别进行行change或或scroll事件事件编程，确定文本框编程，确定文本框1的的背景色背景色2.对两个命令按钮进行对两个命令按钮进行click事件编程，确定事件编程，确定文本框文本框2的前景色和背的前景色和背景色景色2.滚动滑块滚动滑块Slider 滚动滑块是滚

26、动滑块是Windows操作系统提供的一种操作系统提供的一种ActiveX控件，控件，位于位于Microsoft Windows Common Control 6.0中。它由中。它由刻度和刻度和“滑块滑块”共同构成。其中标尺由共同构成。其中标尺由 Min 和和 Max 属属性定义。性定义。“滑块滑块”可由用户通过鼠标或光标移动键控制。可由用户通过鼠标或光标移动键控制。滚动滑块经常用来设置图形中某个点的值，设定要传送滚动滑块经常用来设置图形中某个点的值，设定要传送给数组的数的范围，改变窗体、字段或其它图形对象的给数组的数的范围，改变窗体、字段或其它图形对象的大小等。大小等。运行时，可动态设置运行时

27、，可动态设置 Min 和和 Max 属性以反映新的取值属性以反映新的取值范围。范围。Value 属性返回滑块的当前位置。通过使用属性返回滑块的当前位置。通过使用 MouseDown 和和 MouseUp 等事件，等事件，Slider 控件可以图形控件可以图形方式从一定的取值范围内选取一个值。方式从一定的取值范围内选取一个值。(1)主要属性主要属性 NameSlider Max，Min，SmallChange，LargeChange，Value属性与属性与滚动条相同滚动条相同 TickStyle设置标尺的位置及滑块的形状设置标尺的位置及滑块的形状 0 1 2 3 TickFrequency设置滑

28、块的滑动频率，值为设置滑块的滑动频率，值为n表示每隔表示每隔n个单位显示一个刻度点。个单位显示一个刻度点。刻度数目刻度数目=(Max-Min)/TickFrequency+1 TextPosition设置鼠标操作时，当前刻度值的提示位置设置鼠标操作时，当前刻度值的提示位置(2)主要事件主要事件 与滚动条相同与滚动条相同，有，有Scroll和和Change事件事件 例例7.7 通过移动滑块来改变文本框中文字的大小。通过移动滑块来改变文本框中文字的大小。Private Sub Form_Load()Slider1.Min=8 Slider1.Max=72 Slider1.SmallChange=2

29、 Slider1.LargeChange=8 Slider1.TickFrequency=2End SubPrivate Sub Slider1_Scroll()Text1.FontSize=Slider1.ValueEnd Sub 时钟控件以时钟控件以Interval为时间间隔产生为时间间隔产生Timer事件。可用事件。可用Timer事件来计时事件来计时,或控制某一程序的运行。或控制某一程序的运行。1.主要属性主要属性NameTimer Interval控制触发控制触发Timer事件的间隔时间，单位为毫秒事件的间隔时间，单位为毫秒(0.001s)，取值范围为取值范围为065535，即，即65

30、.535秒秒。Interval0：屏蔽计时器，即不触发屏蔽计时器，即不触发Timer事件。事件。Enabled(默认属性默认属性)设置时钟是否计时设置时钟是否计时True：有效计时有效计时 False：停止时钟工作停止时钟工作2.事件事件Timer事件每隔事件每隔Interval时间被触发一次，通过该事时间被触发一次，通过该事件可以产生系统时间或控制程序的运行时间。件可以产生系统时间或控制程序的运行时间。7.5 时钟时钟(Timer)【例例】用时钟控件进行计时用时钟控件进行计时,在标签中以数字形式显示系在标签中以数字形式显示系统时间统时间,每隔每隔1秒跳字秒跳字.将系统函数将系统函数Time$

31、()得到的系统时间存入标签的得到的系统时间存入标签的Caption属性中属性中,并通过设置时钟的并通过设置时钟的interval=1000使时钟每秒产生使时钟每秒产生一个一个Timer事件触发标签的显示。事件触发标签的显示。设计时窗体上会出现时钟控件设计时窗体上会出现时钟控件,但运行时但运行时,该控件消失。该控件消失。Private Sub Timer1_Timer()Label1.Caption=Time$()End Sub数字时钟数字时钟Dim h%,m%,s%Private Sub Command1_Click()Timer1.Enabled=TrueEnd SubPrivate Sub

32、 Form_Load()h=0:m=1:s=0 hh=Format$(h,00)mm=Format$(m,00)ss=Format$(s,00)Label1=hh&:&mm&:&ss Timer1.Enabled=FalseEnd SubPrivate Sub Timer1_Timer()If m=0 And h 0 Then h=h-1:m=60 End If If s=0 And m 0 Then m=m-1:s=60 End If If s 0 Then s=s-1 End If hh=Format$(h,00)mm=Format$(m,00)ss=Format$(s,00)Label1

33、=hh&:&mm&:&ss If h=0Andm=0Ands=0 Then MsgBox(时间到！时间到！)End End IfEnd Sub【例例】用时钟控件进行倒计用时钟控件进行倒计时时,在标签中以数字形式显在标签中以数字形式显示系统时间示系统时间,每隔每隔1秒跳字秒跳字.演示例例7.8 设计一个定时闹钟。用户在两个文本框中输入定时设计一个定时闹钟。用户在两个文本框中输入定时的小时和分，然后按的小时和分，然后按“定时定时”按钮启动时钟，时钟以按钮启动时钟，时钟以1秒间隔显示系统时间。秒间隔显示系统时间。“停止停止”按钮用来制止铃响，按钮用来制止铃响，“结束结束”按钮用来终止程序运行。按钮用

34、来终止程序运行。Private Sub Timer1_Timer()Label5.Caption=Time$自动显示系统时间自动显示系统时间 If Mid$(Time$,1,5)=hour+:+minute Then For i=1 To 100 Beep 定时响铃定时响铃 Next i End If End SubTime$的的表示形式为：表示形式为：hh:mm:ss例例7.9 用时钟控件控制蝴蝶从窗体内飞走的动画。用时钟控件控制蝴蝶从窗体内飞走的动画。设计三个设计三个Image控件，通过控件，通过picture属性在属性在Image2和和Image3中各装入一个不同形态蝴蝶飞舞的图片，运行

35、时，在中各装入一个不同形态蝴蝶飞舞的图片，运行时，在Image1中每中每隔隔0.08秒依次装入两幅图片，形成动态效果，秒依次装入两幅图片，形成动态效果，并通过并通过move方法将方法将Image1从左下角移到右上角。从左下角移到右上角。Private Sub Timer1_Timer()Static pickbmp As Boolean Image1.Move Image1.Left+20,Image1.Top-10 If pickbmp Then Image1.Picture=Image2.Picture Else Image1.Picture=Image3.Picture End If p

36、ickbmp=Not pickbmpEnd Sub进度条控件用来显示某种操作的进度，它也是一种进度条控件用来显示某种操作的进度，它也是一种ActiveX控件，由控件，由Windows操作系统提供，位于操作系统提供，位于Microsoft Windows Common Control 6.0中中。1.主要属性主要属性 Max 进度条的最大值进度条的最大值(左边界值左边界值)Min 进度条的最小值进度条的最小值(右边界值右边界值)Value 进度条当前值，该属性只能在程序中设置和引用。进度条当前值，该属性只能在程序中设置和引用。其中，其中，Min=Value=Max,Value/(Max-Min)

37、的百分比数即的百分比数即为被填充的蓝色方块数为被填充的蓝色方块数2.事件事件 Click事件事件7.6 进度条进度条(ProgressBar)例例7.10 设计一个进度条设计一个进度条,用来指示一个大数组冗长的操作用来指示一个大数组冗长的操作进度，即进度条的进度表示处理数组的进展情况。进度，即进度条的进度表示处理数组的进展情况。假设数组有假设数组有25000个元素，将个元素，将ProgressBar1的的Min和和Max分分别设置为数组的下界和上界，开始时别设置为数组的下界和上界，开始时ProgressBar1的的 Value值设置为值设置为Min。在循环中每对一个数组元素进行操作，在循环中每

38、对一个数组元素进行操作，就把数组元素的下标值赋给就把数组元素的下标值赋给ProressBar1的的Value。随着随着Value的增加，蓝色方块逐步向右延伸的增加，蓝色方块逐步向右延伸用来制作用来制作“数字增减数字增减”按钮，位于按钮，位于Microsoft Windows Common Control-2 6.0中中。它往往与其他控件。它往往与其他控件“捆绑捆绑”在在一起使用，方便用户修改与它关联的伙伴控件。例如，它一起使用，方便用户修改与它关联的伙伴控件。例如，它经常与文本框或命令按钮捆绑使用。当单击向上或向下的经常与文本框或命令按钮捆绑使用。当单击向上或向下的箭头时，文本框或命令按钮中的

39、值会相应地增加或减少。箭头时，文本框或命令按钮中的值会相应地增加或减少。在窗体中绘制伙伴控件在窗体中绘制伙伴控件在窗体中绘制在窗体中绘制 UpDown 控件控件用鼠标右键单击用鼠标右键单击 UpDown 控件，并单控件，并单击击“属性属性”弹出弹出“属性页属性页”对话框对话框选择选择“合作者合作者”选项卡选项卡选中选中“自动合作者自动合作者”复选框（即将复选框（即将 AutoBuddy 属性设置为属性设置为True）选中选中“同步合作者同步合作者”复选框（即将复选框（即将 SyncBuddy 属性设置为属性设置为True）*7.7 UpDown控件控件(1)UpDown控件的属性页有三个选项卡

40、：控件的属性页有三个选项卡：“通用通用”选项卡，指明选项卡，指明UpDown控件的位置、方向控件的位置、方向 “合作者合作者”选项卡，指明其伙伴控件的名称及属性选项卡，指明其伙伴控件的名称及属性 “滚动滚动”选项卡中选项卡中，指明最大值、最小值及增减量指明最大值、最小值及增减量(2)UpDown可通过可通过UpClick()和和DownClick()事件触发。事件触发。例：将例：将UpDown控件与控件与Text1和和Label1联合使用，分别将联合使用，分别将Text1.text和和 Label1.Caption设为设为0，UpDown1和和UpDown2的的Max值设为值设为20和和100

41、，Increment值分别设为值分别设为1和和10，则，则不必编程，不必编程，Text1中的数字按中的数字按1进行增减，直到进行增减，直到20和和0为止；为止；Label1中的数字按中的数字按10进行增减，直到进行增减，直到100和和0为止。为止。用用“合作者合作者”属性页将属性页将Uodown1和和Text1合作，将合作，将UpDown2与与Label1合作合作用用“滚动滚动”属性页设置属性页设置UpDown1和和UpDown2的的Value、Max、Min和和Increment属性值属性值运行时，直接点击数字增运行时，直接点击数字增减按钮减按钮1.Animation控件控件 用来显示无声的

42、用来显示无声的AVI视频文件或无声动画片，它位于视频文件或无声动画片，它位于Microsoft Windows Common Control-2 6.0中中。在在Program FilesMicrosoft Visual StudioCommonGraphics AVIS中可以找到许多无声的中可以找到许多无声的.avi 文件文件*7.8 Animation和和MMControl控件控件(2)方法方法Open 打开文件打开文件Animation1.Open 文件名文件名Play 播放播放Animation1.Play n 播放播放n次次Animation1.Play 循环播放循环播放Stop 停

43、止停止Animation1.StopClose 关闭文件关闭文件Animation1.Close(1)Animation主要属性主要属性 Name：Animation Center(居中居中)：为为True时，动画在控件的中央播放时，动画在控件的中央播放 AutoPlay(自动播放自动播放)：为为True时，用时，用Open打开文件时自打开文件时自动播放，否则，必须用动播放，否则，必须用Play播放。播放。Private Sub Animation1_Click()With CommonDialog1 .Filter=avi(*.avi)|*.avi .ShowOpen End With Wi

44、th Animation1 .Autoplay=True .Open CommonDialog1.Filename End With End Sub例例7.11 动画片播放动画片播放 窗体上设置四个命令按钮，分别表示窗体上设置四个命令按钮，分别表示“打开打开”、“播放播放”、“停止停止”和和“关闭关闭”，一个框架，内有一个复选框和，一个框架，内有一个复选框和一个文本框。要求：一个文本框。要求：“打开打开”打开打开filecopy.avi文件文件 “播放播放”若选定复选框，则重复若选定复选框，则重复10次播放次播放fiilecopy.avi（次数保存在文本框次数保存在文本框Text1中）；否则，

45、循环中）；否则，循环播放播放 “停止停止”停止播放停止播放 “关闭关闭”关闭动画窗口关闭动画窗口Private Sub Command2_Click()If Check1 Then Animation1.Play Val(Text1)Else Animation1.Play End If Command3.Enabled=TrueEnd Sub 用来播放用来播放Wave、AVI、MIDI、CD等类型的文件，它位等类型的文件，它位于于Mocrosoft Multimedia Control 6.0中。中。2.MMControl控件控件 前一个下一个播放前一个下一个播放 暂停暂停 前进前进 后退后

46、退 停止停止 录制录制 弹出弹出(1)主要属性主要属性 Name：MMControl AutoEnable：是否自动检测各按钮的状态是否自动检测各按钮的状态 DeviceType：设置多媒体设备的类型设置多媒体设备的类型 播放播放AVI文件用文件用MControl1.DeviceType=“AVIVideo”Command：用于向媒体设备发出各种命令用于向媒体设备发出各种命令,共共14种命令种命令 Back 退后一步退后一步 Close 关闭一个文件关闭一个文件 Eject 弹出光盘弹出光盘 Next 到下一轨道的起始点到下一轨道的起始点 Open 打开一个媒体文件打开一个媒体文件 Pause

47、 暂停播放暂停播放 Play 播放一个文件播放一个文件 Prev 回到当前轨道的起点回到当前轨道的起点 Record 对一个设备进行记录对一个设备进行记录 Save 保存打开的文件保存打开的文件 Sound 播音播音 Seek 寻找位置（位置由寻找位置（位置由To属性给出）属性给出）Step 前进一步前进一步 Stop 停止播放或记录停止播放或记录 例如：例如：MMCmand=“open”打开一个媒体设备打开一个媒体设备 (2)(2)视频播放器视频播放器Private Sub Form_Load()MMControl1.FileName=“C:Program FilesMicrosoft Vi

48、sual StudioCommonGraphicsvideosblur24.avi”MMControl1.hWndDiplay=Picture1.hWnd hWnd为句柄为句柄 MMControl1.DeviceType=“avivideo MMControl1.Command=OpenEnd SubPrivate Sub MMControl1_PlayClick(Cancel As Integer)MMControl1.Notify=TrueEnd SubPrivate Sub MMControl1_Done(NotifyCode As Integer)If MMControl1.Notif

49、yValue=1 Then MMControl1.To=0 MMControl1.Command=“Seek”End IfEnd Sub视频播放器(3)CD播放器播放器(4)同时播放同时播放Wave和和MIDI的的播放器播放器用来制作包括多个选项卡用来制作包括多个选项卡(标签标签)的对话框的对话框，它位于它位于Microsoft Tabbed Dialog Control 6.0中中(1)SSTab控件的属性页控件的属性页 Style 决定决定SSTab控件上选项卡的样式控件上选项卡的样式 Tabs 决定选项卡的数量决定选项卡的数量 TabsPerRow 决定决定SSTab控件上每一行选项卡的

50、数量控件上每一行选项卡的数量 Rows 决定决定SSTab上选项卡的行数上选项卡的行数(2)SSTab控件的主要属性控件的主要属性*7.9 SSTab控件控件例例7.12 设计一个具有两个选项卡设计一个具有两个选项卡(标签标签)的对话框的对话框制作步骤制作步骤:(1)将将SSTab控件添加到工具箱中控件添加到工具箱中,并在窗体上创建一个并在窗体上创建一个SSTab控件控件(2)通过通过SSTab的属性页设置其属性的属性页设置其属性(包括选项卡数包括选项卡数Tabs=2及其标题及其标题)(3)在每个选项卡中添加一个在每个选项卡中添加一个Text控件控件,其中存放一段文字其中存放一段文字(可用可用