强化VB学习教案.pptx

会计学1强化强化VB第一页，编辑于星期一：二十一点 五十八分。在在 Visual Basic Visual Basic 中，单选与复选按钮控中，单选与复选按钮控件主要作为选项提供给用户选择。不同的件主要作为选项提供给用户选择。不同的是，在一组选择按钮中，单选控件只能选是，在一组选择按钮中，单选控件只能选择一个，其他单选控件自动变为未被选中择一个，其他单选控件自动变为未被选中状态；而在一组复选按钮中，可以选定任状态；而在一组复选按钮中，可以选定任意数量的按钮。意数量的按钮。.1.1 清单类控件清单类控件单选钮和复选框单选钮和复选框第1页/共76页第二页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件单选按钮单选按钮.1.1单选钮和复选框单选钮和复选框 1 1 单选钮用途单选钮用途单选钮（单选钮（OptionButtonOptionButton）也称作选择按钮。一组单也称作选择按钮。一组单选钮控件可以提供一组彼选钮控件可以提供一组彼此相互排斥的选项，任何此相互排斥的选项，任何时刻用户只能从中选择一时刻用户只能从中选择一个选项，实现一种个选项，实现一种“单项选单项选择择”的功能，被选中项目左的功能，被选中项目左侧圆圈中会出现一黑点。侧圆圈中会出现一黑点。第2页/共76页第三页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件3 3 方法方法 SetFocus方方法法是是单单选选钮钮控控件件最最常常用用的的方方法法，可可以以在在代代码码中中通通过该方法将过该方法将ValueValue属性设置为属性设置为TrueTrue。与与命命令令按按钮钮相相同同，使使用用该该方方法法之之前前，必必须须要要保保证证单单选选钮钮处处于于可可见见和可用状态（即和可用状态（即VisibleVisible与与EnabledEnabled属性值均为属性值均为TrueTrue）。）。4 4 事件事件 ClickClick事事件件是是单单选选钮钮控控件件最最基基本本的的事事件件，一一般般情情况况用用户户无无需需为为单单选选钮钮编编写写ClickClick事事件件过过程程，因因为为当当用用户户单单击击单单选选钮钮时时，它它会会自动改变状态。自动改变状态。第3页/共76页第四页，编辑于星期一：二十一点 五十八分。5 5 单选按钮程序举例单选按钮程序举例 文本框（文本框（Text1Text1）显示预设的字样；单选按钮一（）显示预设的字样；单选按钮一（Option1Option1），），单击此按钮可以将文本框里显示的字样改变成单击此按钮可以将文本框里显示的字样改变成 黑体；黑体；单选按钮二（单选按钮二（Option2Option2），单击此按钮能将文本框里显示的字），单击此按钮能将文本框里显示的字样改变成样改变成 楷体。楷体。.1.1 清单类控件清单类控件第4页/共76页第五页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件（4 4）Style Style 属性属性 0-Standard0-Standard：标准方式标准方式 1-Graphical1-Graphical：图形方式：图形方式 说说 明：明：在在StyleStyle属性设置为属性设置为1 1时，可使用时，可使用 Picture Picture 属性属性2.2.单选钮重要属性单选钮重要属性（1 1）Caption：文本标题。设置单选钮的文本注释内容文本标题。设置单选钮的文本注释内容。（2 2）Alignment属性属性：0：Left Justify(缺省设置缺省设置)控件钮在左边，标题显示在右边。控件钮在左边，标题显示在右边。1 1：Right Justify Right Justify 控件钮在右边，标题显示在左边控件钮在右边，标题显示在左边。（3 3）Value Value 属性属性 True:单选钮被选定单选钮被选定False:单选钮未被选定单选钮未被选定第5页/共76页第六页，编辑于星期一：二十一点 五十八分。1、单选按钮一：、单选按钮一：Private Sub Optionl_Click()Text1.FontName=“黑体黑体”End Sub2、单选按钮二：、单选按钮二：Private Sub Optin2_Click()Text1.FontName=“楷体楷体_GB2312End Sub.1.1 清单类控件清单类控件第6页/共76页第七页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件2 2 复选框复选框1.1.用途用途 复选框（复选框（CheckBoxCheckBox）也称作检查框、选择框。一组复）也称作检查框、选择框。一组复选框控件可以提供多个选项，它们彼此独立工作，所以用选框控件可以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，实现一种户可以同时选择任意多个选项，实现一种“不定项选择不定项选择”的的功能。选择某一选项后，该控件将显示功能。选择某一选项后，该控件将显示,而清除此选项而清除此选项后后消失。消失。复选框被选中复选框被选中第7页/共76页第八页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件 复选框与单选按钮复选框与单选按钮Value Value 属性的比较属性的比较 复选框复选框0-Unchecked0-Unchecked：未被选定：未被选定1-Checked1-Checked：选定：选定2-Grayed2-Grayed：灰色，禁止选择：灰色，禁止选择 单选钮单选钮True:True:单选钮被选定单选钮被选定False:False:单选钮未被选定，单选钮未被选定，缺省设置缺省设置请大家注意，单选控件与复选控件的 Value 值是不同的，而这是初学者最容易混淆的。2.2.重要属性重要属性 Caption、Alignment、Style与单选钮相同与单选钮相同第8页/共76页第九页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件3.3.事件事件 ClickClick事事件件是是复复选选框框控控件件最最基基本本的的事事件件。用用户户一一般般无无需需为为复复选选框框编编写写ClickClick事事件件过过程程，但但其其对对ValueValue属属性性值的改变遵循以下规则：值的改变遵循以下规则：单击未选中的复选框时，单击未选中的复选框时，ValueValue属性值变为属性值变为1 1；单击已选中的复选框时，单击已选中的复选框时，ValueValue属性值变为属性值变为0 0；单击变灰的复选框时，单击变灰的复选框时，ValueValue属性属性值变为值变为 2 2。第9页/共76页第十页，编辑于星期一：二十一点 五十八分。4 4 复选按钮举例：复选按钮举例：.1.1 清单类控件清单类控件第10页/共76页第十一页，编辑于星期一：二十一点 五十八分。文本框（文本框（Text1Text1）显示预设的字样；）显示预设的字样；复选按钮一（复选按钮一（Check1)Check1)可以将文本框里面的字变可以将文本框里面的字变 为粗体；为粗体；复选按钮二（复选按钮二（Check2Check2）可以将文本框里面的字变）可以将文本框里面的字变 为斜体；为斜体；复选按钮三（复选按钮三（Check3Check3）可以给文本框里面的文字）可以给文本框里面的文字 加上下划线。加上下划线。4 4 复选按钮举例：复选按钮举例：.1.1 清单类控件清单类控件第11页/共76页第十二页，编辑于星期一：二十一点 五十八分。复选按钮一：Private Sub Check1_Click()If Check1.Value=1 Then Text1.FontBold=TrueElse Text1.FontBold=FalseEnd IfEnd Sub.1.1 清单类控件清单类控件第12页/共76页第十三页，编辑于星期一：二十一点 五十八分。复选按钮二：Private Sub Check2_Click()If Check1.Value=1 Then Text1.FontItalic=TrueElse Text1.FontItalic=FalseEnd IfEnd Sub.1.1 清单类控件清单类控件第13页/共76页第十四页，编辑于星期一：二十一点 五十八分。复选按钮三：Private Sub Check3_Click()If Check1.Value=1 Then Text1.FontUnderline=TrueElse Text1.FontUnderline=FalseEnd IfEnd Sub.1.1 清单类控件清单类控件第14页/共76页第十五页，编辑于星期一：二十一点 五十八分。联想：联想：复选按钮是不是非得经过这种选择判断？复选按钮是不是非得经过这种选择判断？能不能如单选按钮那样直接使用呢？能不能如单选按钮那样直接使用呢？还是上面这个例子，假设复选按钮一不经过判断，而直接在还是上面这个例子，假设复选按钮一不经过判断，而直接在点击事件中输入代码：点击事件中输入代码：Private Sub Check1_Click()Text1.FontBold=TrueEnd Sub那么你会发现，复选按钮一经点击就不能取消字体加粗的效那么你会发现，复选按钮一经点击就不能取消字体加粗的效果了；而实际上，复选按钮的功能是，点击一次即选中时，果了；而实际上，复选按钮的功能是，点击一次即选中时，字体加粗；点击第二次即取消选择，字体不再加粗；以此类字体加粗；点击第二次即取消选择，字体不再加粗；以此类推。推。.1.1 清单类控件清单类控件第15页/共76页第十六页，编辑于星期一：二十一点 五十八分。5 5：知识点：知识点：1 1、切记，单选按钮与复选按钮的、切记，单选按钮与复选按钮的 Value Value 值是不同的。值是不同的。单选按钮：单选按钮：选中时，选中时，Value Value 值为值为 True True；未被选中时，未被选中时，Value Value 值为值为 False False。复选按钮：复选按钮：选中时，选中时，Value Value 值为值为 1 1；未被选中时，未被选中时，Value Value 值为值为 0;0;禁止选择，禁止选择，Value Value 值为值为 2 2。2 2、两种选择按钮都针对、两种选择按钮都针对 Click Click 事件做出反应，但单选按钮事件做出反应，但单选按钮 比较简单，只需直接输入代码即可；复选按钮比较复杂，比较简单，只需直接输入代码即可；复选按钮比较复杂，需经过条件判断后再做出反应。切记！需经过条件判断后再做出反应。切记！.1.1 清单类控件清单类控件第16页/共76页第十七页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件.1.2.1.2 框架框架 (Frame)(Frame)Frame Frame 控件为控件提供可标识的分组。它是一个容器控件。控件为控件提供可标识的分组。它是一个容器控件。当需要在同一窗体内建立几组互独立的单选钮时，就需要用当需要在同一窗体内建立几组互独立的单选钮时，就需要用框架将每一组单选钮框起来，把框架将每一组单选钮框起来，把 OptionButton 控件分成控件分成几组，如下形式几组，如下形式。设三个框架设三个框架设设CaptionCaption为为“字形字形 第17页/共76页第十八页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件重要属性重要属性1.1.CaptionCaption属性：框架标题属性：框架标题EnabledEnabled属性：属性：缺省为缺省为TrueTrueFalseFalse：标题呈灰色，不允许对框架内的所有对象：标题呈灰色，不允许对框架内的所有对象 进行操作进行操作 3.3.VisibleVisible属性：属性：TrueTrue：框架及其控件可见。：框架及其控件可见。FalseFalse：框架及其控件被隐藏起来：框架及其控件被隐藏起来。第18页/共76页第十九页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件事件：事件：框架可以响应的事件框架可以响应的事件ClickClick、DblClick,DblClick,一般不需要有一般不需要有关框架的事件过程。关框架的事件过程。为了将控件分组，首先需要绘制为了将控件分组，首先需要绘制 Frame Frame 控件，然后控件，然后绘制绘制 Frame Frame 里面的控件。里面的控件。注意：注意：第19页/共76页第二十页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件.1.3.1.3 列表框与组合框列表框与组合框一、用途一、用途 列表框控件（列表框控件（ListBoxListBox）用于显示项目列表，用户可从中用于显示项目列表，用户可从中选择一个或多个项目选择一个或多个项目。如果项目总数超过了可显示的项目数，。如果项目总数超过了可显示的项目数，VBVB会自会自动加上滚动条。动加上滚动条。列表框有两种风格：标准和复选列表框。通过它的列表框有两种风格：标准和复选列表框。通过它的StyleStyle属属性来设置。如下图：性来设置。如下图：第20页/共76页第二十一页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件组组合合框框控控件件（ComboBoxComboBox）将将文文本本框框和和列列表表框框的的功功能能结结合合在在一一起起，用用户户可可以以在在列列表表中中选选择择某某项项（只只能能选选取取一一项项）。或或在在编编辑辑区区域中直接输入文本内容来选定项目。域中直接输入文本内容来选定项目。组组合合框框共共三三种种风风格格：下下拉拉式式组组合合框框、简简单单组组合合框框和和下下拉拉式式列列表表框（见下图）。框（见下图）。第21页/共76页第二十二页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件二、主要二、主要属性属性1 1StyleStyle属性属性 该该值值用用来来指指示示控控件件的的显显示示类类型型和和行行为为。在在运运行行时时是是只只读读的的。对对于于列列表表框框控控件件或或组组合合框框控控件件都都有有StyleStyle属属性性，但但它它们们的的含含义义是是不不同同的。的。例如：例如：在窗体上放置在窗体上放置2 2个列表框，将其个列表框，将其StyleStyle属性分别设置为属性分别设置为0 0和和1 1；放置；放置3 3个组合框，将它们个组合框，将它们StyleStyle属性分别设置为属性分别设置为0 0、1 1和和2 2。第22页/共76页第二十三页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件2 2ListList、ListCountListCount和和ListIndexListIndex属性属性 List List：字符型数组，存放列表框的项目数据，下标是从字符型数组，存放列表框的项目数据，下标是从0 0开始开始的。的。例如：例如：List(0)List(0)表示第一项（表示第一项（Listindex=0Listindex=0）的内容）的内容 列表框项目可在设计模式下一项一项输入。列表框项目可在设计模式下一项一项输入。ListIndexListIndex：为整型值，选中的项目的序号，如果列表框可多选，为整型值，选中的项目的序号，如果列表框可多选，则为最后一次选中项目的序号，则为最后一次选中项目的序号，没有项目选中时为没有项目选中时为-1-1。ListCountListCount：为整型值，表示项目的数量，为整型值，表示项目的数量，ListCount-1ListCount-1是最后是最后一项的下标。一项的下标。第23页/共76页第二十四页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件3 3MultiSelectMultiSelect属性属性 用用于于指指示示是是否否能能够够在在列列表表框框控控件件中中进进行行复复选选以以及及如如何何进进行行复复选选，在运行时是只读的。注意，在运行时是只读的。注意，组合框控件无此属性组合框控件无此属性。MultiSelect MultiSelect 属性设置值及含义属性设置值及含义 设置设置值值含含 义义0 0（缺省值）不允许复选（缺省值）不允许复选1 1简简单单复复选选。鼠鼠标标单单击击或或按按下下空空格格键键在在列列表表中中选选中中或或取取消消选选中中项项。箭头键移动焦点箭头键移动焦点2 2扩扩展展复复选选。按按下下 SHIFT SHIFT 并并单单击击鼠鼠标标将将在在以以前前选选中中项项的的基基础础上上扩扩展展选选择择到到当当前前选选中中项项。按按下下 CTRL CTRL 并并单单击击鼠鼠标标来来在在列列表表中中选选中中或或取消选中项取消选中项第24页/共76页第二十五页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件4 4SelectedSelected属性属性 该该属属性性返返回回或或设设置置列列表表框框控控件件中中的的一一个个项项目目的的选选择择状状态态。该该属属性性是是一一个个逻逻辑辑类类型型的的数数组组，数数组组元元素素个个数数与与列列表表框框中中的的项项目目数数相相同同，其下标的变化范围与其下标的变化范围与ListList属性相同。属性相同。例如：例如：List1.SelectedList1.Selected（0 0）=True=True表示列表框表示列表框List1List1的第一个的第一个项目被选中，此时项目被选中，此时ListIndexListIndex的值设置为的值设置为0 0。SelectedSelected属性在设计时属性在设计时是不可用的，即无法在属性窗口中设置属性值。是不可用的，即无法在属性窗口中设置属性值。5 5SortedSorted属性属性 返返回回一一个个逻逻辑辑值值，当当SortedSorted属属性性为为TrueTrue时时列列表表框框控控件件或或组组合合框框控控件件的的项项目目自自动动按按字字母母表表顺顺序序（升升序序）排排序序，为为FalseFalse时时项项目目按按加加入入的的先先后后顺顺序序排排列列显显示示。该该属属性性只只能能在在设设计计时时设设置置，不不能能在在程程序序代代码码中中设设置。置。第25页/共76页第二十六页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件6 6TextText属性属性 对于组合框：（对于组合框：（Combo1Combo1）下拉式组合框与简单组合框（下拉式组合框与简单组合框（Style=0Style=0和和1 1）：）：TextText属性返回编辑区域中的文本。属性返回编辑区域中的文本。下下拉拉列列表表框框，TextText属属性性的的返返回回当当前前被被选选中中的的项项，值值总总与与combo1.Listcombo1.List（combo1.ListIndexcombo1.ListIndex）的值相同。）的值相同。对于列表框对于列表框：（：（List1List1）TextText属属性性选选中中的的文文本本，如如果果列列表表框框可可多多选选，则则为为最最后后一一次次选选中中项项目目。TextText属性值总与属性值总与List1.ListList1.List（List1.ListIndexList1.ListIndex）的值相同。）的值相同。第26页/共76页第二十七页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件列表框、组合框各主要属性的值：列表框、组合框各主要属性的值：List1.List(List1.ListIndex)=“abc”List1.List(List1.ListIndex)=“abc”ListCount=6ListCount=6 ListIndex=3 (ListIndex=3 (下标从下标从0 0开始的开始的)Selected(3)=True Selected(3)=True 其余为其余为FalseFalse。Sorted=False Sorted=False 没有排序。没有排序。Text=“abc”Text=“abc”Combo1.List(Combo1.ListIndex)=“abc”Combo1.List(Combo1.ListIndex)=“abc”第27页/共76页第二十八页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件方法方法1 1AddItemAddItem方法方法 用于将项目添加到列表框控件或组合框控件。用于将项目添加到列表框控件或组合框控件。语法格式：语法格式：对象名对象名.AddItem item,index.AddItem item,index 其中：其中：item:item:为字符串表达式，表示要加入的项目。为字符串表达式，表示要加入的项目。Index:Index:决定新增项目的位置，缺省，则添加在最后。决定新增项目的位置，缺省，则添加在最后。2 2RemoveItemRemoveItem方法方法 用于从列表框控件或组合框控件中删除一项。用于从列表框控件或组合框控件中删除一项。语法格式：语法格式：对象名对象名.RemoveItem index.RemoveItem index 对对indexindex参数的规定同参数的规定同AddItemAddItem方法。方法。第28页/共76页第二十九页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件 例如，要删除列表框（例如，要删除列表框（List1List1）中所有选中的项目，可使用下面）中所有选中的项目，可使用下面的程序段：的程序段：i=0i=0Do While i=List1.ListCount-1Do While i=List1.ListCount-1 If List1.Selected(i)=True Then If List1.Selected(i)=True Then List1.RemoveItem I List1.RemoveItem I else else i=i+1 i=i+1 End If End Iflooploop第29页/共76页第三十页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件3 3ClearClear方法方法 用于清除列表框控件或组合框控件中的所有项目。用于清除列表框控件或组合框控件中的所有项目。语法格式：语法格式：对象名对象名.Clear.Clear例如，删除列表框（例如，删除列表框（List1）中所有项目，可使用：）中所有项目，可使用：List1.Clear List1.Clear第30页/共76页第三十一页，编辑于星期一：二十一点 五十八分。.1.1 清单类控件清单类控件4 4、事件、事件（1 1）ClickClick事件事件 当当单单击击某某一一列列表表项项目目时时，将将触触发发列列表表框框与与组组合合框框控控件件的的ClickClick事事件件。该该事事件件发发生生时时系系统统会会自自动动改改变变列列表表框框与与组组合合框框控控件件的的ListIndexListIndex、SelectedSelected、TextText等属性，无需另行编写代码。等属性，无需另行编写代码。（2 2）DblClickDblClick事件事件 当当双双击击某某一一列列表表项项目目时时，将将触触发发列列表表框框与与简简单单组组合合框框控控件件的的DblClickDblClick事件。事件。（3 3）ChangeChange事件事件（列表框没有此事件）（列表框没有此事件）当当用用户户通通过过键键盘盘输输入入改改变变下下拉拉式式组组合合框框或或简简单单组组合合框框控控件件的的文文本本框框部部分分的的正正文文，或或者者通通过过代代码码改改变变了了TextText属属性性的的设设置置时时，将将触触发发其其ChangeChange事事件。件。第31页/共76页第三十二页，编辑于星期一：二十一点 五十八分。【例【例4.44.4】设计一个星座与性格的水晶球设计一个星座与性格的水晶球。第32页/共76页第三十三页，编辑于星期一：二十一点 五十八分。.2.2 图片类控件图片类控件VBVB中与图形有关的控件有：中与图形有关的控件有：图片框（图片框（PictureBoxPictureBox）、图像框（）、图像框（ImageImage）窗体、图形框和图像框可以显示来自图形文件的图形窗体、图形框和图像框可以显示来自图形文件的图形 1 1位图位图(bitmap)(bitmap)：位图通常以：位图通常以.bmp.bmp或或 .dib.dib为文件扩展名。为文件扩展名。2 2图标图标(icon)(icon)：以：以.ico.ico为文件扩展名。为文件扩展名。3 3元元文文件件(metafile)(metafile)：元元文文件件的的类类型型有有两两种种，分分别别是是标标准准型型（.wmf.wmf）和增强型（）和增强型（.emf.emf）。）。4 4JPEGJPEG文文件件：JPEGJPEG是是一一种种支支持持 8 8 位位和和 24 24 位位颜颜色色的的压压缩缩位位图图格格式式。它是它是 Internet Internet 上一种流行的文件格式。上一种流行的文件格式。5 5GIFGIF文件：文件：GIFGIF是一种压缩位图格式。它可支持多达是一种压缩位图格式。它可支持多达 256 256 种的颜色，种的颜色，是是 Internet Internet 上一种流行的文件格式。上一种流行的文件格式。第33页/共76页第三十四页，编辑于星期一：二十一点 五十八分。.2.2 图片类控件图片类控件.2.1.2.1 图像框控件图像框控件ImageImage控件控件。图像框比图形框占用更少的内存快。图像框内不能保存其图像框比图形框占用更少的内存快。图像框内不能保存其他控件。他控件。ImageImage控件，不是容器控件。控件，不是容器控件。ImageImage控件加载图片、删除图片、保存图片的方法：控件加载图片、删除图片、保存图片的方法：与与PictureBoxPictureBox控件相同控件相同 StretchStretch属性：属性：设置为设置为FalseFalse，图像框可自动改变大小以适应其中的图形。，图像框可自动改变大小以适应其中的图形。设设置设设置TrueTrue，图形可自动调整尺寸以适应图像框的大小。图形可自动调整尺寸以适应图像框的大小。第34页/共76页第三十五页，编辑于星期一：二十一点 五十八分。.2.2 图片类控件图片类控件.2.2.2.2 图片框控件图片框控件PictureBoxPictureBox 主要作用：显示图片、也可作为其他控件的容器。主要作用：显示图片、也可作为其他控件的容器。1 1、装入图形：、装入图形：图形框对象图形框对象.Picture=LoadPicture(“.Picture=LoadPicture(“图形文件名图形文件名”)2 2、删除图形、删除图形 图形框对象图形框对象.Picture=LoadPicture().Picture=LoadPicture()3 3保存图片保存图片使用使用SavePictureSavePicture语句，其使用格式如下：语句，其使用格式如下：SavePicture Object.Picture|Image,FileName SavePicture Object.Picture|Image,FileName 注注意意：当当AutosizeAutosize属属性性设设置置为为TrueTrue时时，图图形形框框能能自自动动调调整整大大小小与显示的图片匹配与显示的图片匹配第35页/共76页第三十六页，编辑于星期一：二十一点 五十八分。【例】【例】设计一个简单的设计一个简单的“图片缩放图片缩放”器。器。.2.2 图片类控件图片类控件第36页/共76页第三十七页，编辑于星期一：二十一点 五十八分。在在Command1Command1控控件件上上双双击击鼠鼠标标左左键键，调调出出代代码码窗窗口口，在在Command1_Click Command1_Click()()事事件件代代码码窗窗口中输入以下代码。口中输入以下代码。Private Sub Command1_Click()Private Sub Command1_Click()Image1.Top=Image1.Top-25Image1.Top=Image1.Top-25Image1.Left=Image1.Left-25Image1.Left=Image1.Left-25Image1.Width=Image1.Width+50Image1.Width=Image1.Width+50Image1.Height=Image1.Height+50Image1.Height=Image1.Height+50End SubEnd Sub 重复步骤重复步骤2 2，在，在Command2_Click()Command2_Click()事件代码窗口中输入以下代码。事件代码窗口中输入以下代码。Private Sub Command2_Click()Private Sub Command2_Click()Image1.Width=Image1.Width-50Image1.Width=Image1.Width-50Image1.Height=Image1.Height-50Image1.Height=Image1.Height-50Image1.Top=Image1.Top+25Image1.Top=Image1.Top+25Image1.Left=Image1.Left+25Image1.Left=Image1.Left+25End SubEnd Sub.2.2 图片类控件图片类控件第37页/共76页第三十八页，编辑于星期一：二十一点 五十八分。【例】设计一个简单的【例】设计一个简单的“看图学英文看图学英文”的少儿多媒体教学软件。的少儿多媒体教学软件。.2.2 图片类控件图片类控件第38页/共76页第三十九页，编辑于星期一：二十一点 五十八分。在在Picture 1Picture 1控件上双击鼠标左键，调出代码窗口，选择控件上双击鼠标左键，调出代码窗口，选择MouseMoveMouseMove事件，事件，MouseMoveMouseMove事件是指当鼠标在指定控件上移动时激活程序，事件是指当鼠标在指定控件上移动时激活程序，在在Picture 1_MouseMove()Picture 1_MouseMove()事件代码窗口中输入以下代码。事件代码窗口中输入以下代码。Private Sub Picture 1_MouseMove(Button As Integer,Shift As Integer,Private Sub Picture 1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)X As Single,Y As Single)Label3.Caption=bearLabel3.Caption=bearEnd SubEnd Sub重复步骤重复步骤2 2，输入以下代码：，输入以下代码：Private Sub Picture 2_MouseMove(Button As Integer,Shift As Integer,Private Sub Picture 2_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)X As Single,Y As Single)Label3.Caption=monkeyLabel3.Caption=monkeyEnd SubEnd SubPrivate Sub Picture 3_MouseMove(Button As Integer,Shift As Integer,Private Sub Picture 3_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)X As Single,Y As Single)Label3.Caption=horseLabel3.Caption=horseEnd SubEnd SubPrivate Sub Picture 4_MouseMove(Button As Integer,Shift As Integer,Private Sub Picture 4_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)X As Single,Y As Single)Label3.Caption=tigerLabel3.Caption=tigerEnd SubEnd Sub.2.2 图片类控件图片类控件第39页/共76页第四十页，编辑于星期一：二十一点 五十八分。.3.3 计时器计时器1.1.用途用途 计时器控件（计时器控件（TimerTimer）又称时钟、定时器控件，）又称时钟、定时器控件，用于用于有规律地定时执行指定的工作有规律地定时执行指定的工作，常常用于，常常用于编写不需要与用户进行交互就可直接执行的代编写不需要与用户进行交互就可直接执行的代码，如码，如计时、倒计时、动画计时、倒计时、动画等。等。在程序运行阶段，时钟控件不可见。在程序运行阶段，时钟控件不可见。第40页/共76页第四十一页，编辑于星期一：二十一点 五十八分。.3.3 计时器计时器 2.属属 性性（1）Interval属性属性 取值范围在取值范围在0 64767，单位：为，单位：为毫秒毫秒（0.001秒），表秒），表示计时间隔。若将示计时间隔。若将Interval属性设置为属性设置为0或负数，则计时器停止或负数，则计时器停止工作。工作。缺省设置为缺省设置为 0（2）Enabled属性属性 设置为设置为True，而且，而且Interval属性值大于属性值大于0，则计时器，则计时器开始开始工作工作（以以Interval属性值为间隔，触发属性值为间隔，触发Timer事件事件）。）。第41页/共76页第四十二页，编辑于星期一：二十一点 五十八分。设置为设置为False可使时钟控件无效，即计时器停止工作可使时钟控件无效，即计时器停止工作。缺省设置为缺省设置为True（2）Enabled属性属性.3.3 计时器计时器第42页/共76页第四十三页，编辑于星期一：二十一点 五十八分。.3.3 计时器计时器3.3.方方 法法 TimerTimer控件没有方法。控件没有方法。4.4.事事 件件 时钟控件只有时钟控件只有TimerTimer事件事件 当当EnabledEnabled属性值为属性值为TrueTrue且且IntervalInterval属性值大于属性值大于0 0时，时，该事件以该事件以IntervalInterval属性指定的时间间隔发生属性指定的时间间隔发生 常常将需要定时执行的操作放在常常将需要定时执行的操作放在TimerTimer事件事件过程中过程中第43页/共76页第四十四页，编辑于星期一：二十一点 五十八分。.3.3 计时器计时器时钟控件的应用举例时钟控件的应用举例例例 利用计时器和图像控件设计一个简单的动画。利用计时器和图像控件设计一个简单的动画。第44页/共76页第四十五页，编辑于星期一：二十一点 五十八分。在在Timer1Timer1控控件件上上双双击击鼠鼠标标左左键键，调调出出代代码码窗窗口口，Timer1_Timer Timer1_Timer()()事事件件过过程程中中输输入入以以下下代码。代码。Private Sub Timer1_Timer()Private Sub Timer1_Timer()Dim s As IntegerDim s As Integers=Int(Rnd()*(2-0+1)+0 s=Int(Rnd()*(2-