第6章常用控件.ppt

《第6章常用控件.ppt》由会员分享，可在线阅读，更多相关《第6章常用控件.ppt（46页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、第第6章章 常用控件常用控件p 单选按钮和复选框单选按钮和复选框p 框架框架p 列表框和组合框列表框和组合框p 滚动条和进度条滚动条和进度条p 时钟时钟p 图形控件图形控件p 高级控件高级控件p 键盘和鼠标键盘和鼠标p 常用控件综合举例常用控件综合举例 u 单选按钮单选按钮(OptionButtonOptionButton)一组单选按钮只能选择一项。一组单选按钮只能选择一项。u 复选框复选框(CheckBoxCheckBox)可选一项或多项。可选一项或多项。6.1 6.1 单选按钮和复选框单选按钮和复选框 一、重要属性一、重要属性 1.1.CaptionCaption属性属性:文本提示内容。文

2、本提示内容。2.Alignment2.Alignment属性属性:0:0:控件按钮在左，标题在右，是默认设置。控件按钮在左，标题在右，是默认设置。1:1:控件按钮在右，标题在左。控件按钮在右，标题在左。3.3.ValueValue属性属性：单选按钮：单选按钮：TrueTrue（选定），（选定），False(False(未选定未选定)复选框：复选框：0-0-未选定未选定 1-1-选定选定 2-2-部分选定（灰色）部分选定（灰色）4.Style4.Style属性属性 0-standard:0-standard:标准方式标准方式 1-Graphical:1-Graphical:图形方式图形方式6.1

3、 6.1 单选按钮和复选框单选按钮和复选框 二、重要事件二、重要事件 单选按钮和复选框都能接收单选按钮和复选框都能接收ClickClick事件。事件。三、应用举例三、应用举例 例例6.1 6.1 通过单选按钮和复选框设置文本框的字体。通过单选按钮和复选框设置文本框的字体。演示演示6.1 6.1 单选按钮和复选框单选按钮和复选框 6.2 6.2 框架框架一、用途一、用途 控件分组；控件总体激活或屏蔽。控件分组；控件总体激活或屏蔽。二、重要属性二、重要属性 1.Caption1.Caption属性：框架上的标题。属性：框架上的标题。2.Enabled2.Enabled属性属性 3.Visible3

4、.Visible属性属性三、重要事件三、重要事件 可响应可响应ClickClick和和DbClickDbClick，但一般不编写事件过程。，但一般不编写事件过程。例例6.2 6.2 框架的应用。框架的应用。6.3 6.3 列表框和组合框列表框和组合框u 列表框列表框(ListBoxListBox)显示多个选项的列表，显示多个选项的列表，只能选择，不能直接修改其内容。只能选择，不能直接修改其内容。一、重要属性一、重要属性 (P(P：可在程序中设置或引用，：可在程序中设置或引用，D D：可在设计状态设置。可在设计状态设置。)List List：PD PD 字符型数组，存放列表框字符型数组，存放列表

5、框/组合框中的项目，下标是组合框中的项目，下标是从从0 0开始。开始。ListIndexListIndex：P P 选中的项目的序号，没有项目被选定时为选中的项目的序号，没有项目被选定时为-1-1。ListCountListCount：P P 项目的数量，项目的数量，ListCount-1ListCount-1是最后一项的下标。是最后一项的下标。6.3 6.3 列表框和组合框列表框和组合框一、重要属性一、重要属性 SortedSorted：D TrueD True按字母顺序排列；按字母顺序排列；FalseFalse按加入先后顺序排列。按加入先后顺序排列。TextText：P P 列表项中被选定

6、的内容。列表项中被选定的内容。List1.Text=List1.list(list1.listIndex)List1.Text=List1.list(list1.listIndex)SelectedSelected：P P 逻辑数组。逻辑数组。Selected(i)Selected(i)的值为的值为TrueTrue表示第表示第i+1i+1项项被选中。被选中。MultiSelectMultiSelect:D :D 0-None0-None：禁止多项选择。：禁止多项选择。1-Simple1-Simple：简单多项选择。：简单多项选择。2-Extended2-Extended：扩展多项选择。：扩展多

7、项选择。Style:D 0-Style:D 0-传统的列表样式传统的列表样式 1-1-复选框形式。复选框形式。ColumnsColumns：D 0-D 0-垂直滚动垂直滚动 大于大于0-0-水平滚动。水平滚动。6.3 6.3 列表框和组合框列表框和组合框二、重要方法二、重要方法 AddItemAddItem：向列表框中添加新的项目，使用格式为：向列表框中添加新的项目，使用格式为：对象对象.AddItemAddItem 项目字符串项目字符串 ,索引值索引值 格式中的格式中的 表示要添加的位置。当表示要添加的位置。当 省略时，若省略时，若SortedSorted属性属性设置为设置为TrueTrue

8、，将添加到恰当的排序位置；若将添加到恰当的排序位置；若SortedSorted属性设置为属性设置为FalseFalse，将添加到列表的末尾。将添加到列表的末尾。RemoveItemRemoveItem：从列表框中移除项目，使用格式为：从列表框中移除项目，使用格式为：对象对象.RemoveItemRemoveItem 索引值索引值 格式中的格式中的 用于指定要删除的项目的索引。用于指定要删除的项目的索引。ClearClear：清除列表框中的所有项目，使用格式为清除列表框中的所有项目，使用格式为：对象对象.Clear.Clear 6.3 6.3 列表框和组合框列表框和组合框三、重要事件三、重要事件

9、 列表框接受列表框接受ClickClick、DblClickDblClick、GotFocusGotFocus、LostFocusLostFocus等等大多数控件的通用事件，但通常不编写大多数控件的通用事件，但通常不编写ClickClick事件过程，而是当事件过程，而是当单击某个命令按钮或双击列表框时读取列表框的单击某个命令按钮或双击列表框时读取列表框的TextText属性值。属性值。四、应用举例四、应用举例例例6.3 6.3 交换两个列表框中的项目。交换两个列表框中的项目。例例6.4 6.4 列表项添加和删除。列表项添加和删除。6.3 6.3 列表框和组合框列表框和组合框u 组合框组合框(C

10、omboBoxComboBox)组合框的作用与列表框类似，只是它组合框的作用与列表框类似，只是它将文本框和将文本框和列表框的特性结合在一起列表框的特性结合在一起，既可以在控件的文本框，既可以在控件的文本框(编编辑域辑域)部分部分输入信息输入信息，也可以在控件的列表框部分，也可以在控件的列表框部分选择选择一项一项。另外，组合框可以将列表项折叠起来，使用时再另外，组合框可以将列表项折叠起来，使用时再通过下拉列表进行选择，所以使用组合框比使用列表通过下拉列表进行选择，所以使用组合框比使用列表框更节省界面空间。框更节省界面空间。6.3 6.3 列表框和组合框列表框和组合框二、重要属性二、重要属性1 1

11、、ListList、ListIndexListIndex、ListCountListCount、SortedSorted、TextText2 2、组合、组合框的框的其他属性其他属性三、重要方法三、重要方法AddItemAddItem、RemoveItemRemoveItem、ClearClear类型类型Style输入输入下拉式组合框0能简单组合框1能下拉式列表框2不能 6.3 6.3 列表框和组合框列表框和组合框四、重要事件四、重要事件 当用户单击组合框的下拉箭头时，触发当用户单击组合框的下拉箭头时，触发DropDownDropDown事件；事件；而组合框可以接受文本编辑时，则可以触发而组合框

12、可以接受文本编辑时，则可以触发ChangeChange事件。通事件。通常是在命令按钮的单击事件中读取组合框的常是在命令按钮的单击事件中读取组合框的TextText属性。属性。组合框也能响应组合框也能响应ClickClick事件，但只有简单组合框才能响应事件，但只有简单组合框才能响应DblClickDblClick事件。事件。例例6.5 6.5 编写一个使用屏幕字体、字号的程序。编写一个使用屏幕字体、字号的程序。例例6.6 6.6 设计利用简单组合框对省和直辖市名称进行维护。设计利用简单组合框对省和直辖市名称进行维护。例例6.7 6.7 设计一个配餐应用程序。设计一个配餐应用程序。滚动条滚动条(

13、ScrollBarScrollBar)分为分为水平滚动条水平滚动条(HscrollbarHscrollbar)和和垂直滚动条垂直滚动条(VscrollBarVscrollBar)两种，通常附在窗体上两种，通常附在窗体上协助观协助观察数据或确定位置察数据或确定位置，也可用作，也可用作数据输入工具数据输入工具。演示演示6.4 6.4 滚动条滚动条u 滚动条滚动条 6.4 6.4 滚动条滚动条(1)Value:滑块所处位置所代表的值。滑块所处位置所代表的值。(5)LargeChange:用鼠标单击滑块两端空白区域时用鼠标单击滑块两端空白区域时,滑滑块块每次移动的大小。每次移动的大小。(2)Max：滚

14、动条最大位置所代表的值。滚动条最大位置所代表的值。-32,76832,767(3)Min：滚动条最小位置所代表的值。滚动条最小位置所代表的值。-32,76832,767 (4)SmallChange:用鼠标用鼠标单击滚动条两端箭头时单击滚动条两端箭头时,滑块滑块每次移动的大小。每次移动的大小。一、主要属性一、主要属性 二、二、主要事件主要事件(1)Change事件事件 滚动条的滚动条的Change事件在用户移动滑块时触事件在用户移动滑块时触发。发。6.4 6.4 滚动条滚动条(2)Scroll事件事件 滚动条的滚动条的Scroll事件在用户拖动滑块时会触事件在用户拖动滑块时会触发。发。三、滚动

15、条应用举例三、滚动条应用举例例例6.8 6.8 设计一个设计一个调色板调色板应用程序，如图所示。使用三应用程序，如图所示。使用三个滚动条作为三种基本颜色的输入工具，用合成的个滚动条作为三种基本颜色的输入工具，用合成的颜色设置文本框的颜色设置文本框的BackColorBackColor属性。属性。四、滚动条的其他用途四、滚动条的其他用途l输入成绩输入成绩 0100l设置移动速度设置移动速度 510l调整图形的大小调整图形的大小 设置图像的宽和高设置图像的宽和高 时钟控件（时钟控件（TimerTimer）又称计时器、定时器控件，又称计时器、定时器控件，用于有规律地定时执行指定的工作。用于有规律地定

16、时执行指定的工作。在程序运行阶段，在程序运行阶段，时钟控件时钟控件不可见。不可见。6.5 6.5 时钟时钟一、用途一、用途 二、主要属性二、主要属性 （1）Interval 取值范围在取值范围在0 65535，单位为，单位为毫秒毫秒(0.001秒秒)，表，表示计时间隔。示计时间隔。Interval0表示表示屏蔽计时器屏蔽计时器。（2）Enabled True：有效计时：有效计时。False：停止时钟工作：停止时钟工作。6.5 6.5 时钟时钟 三、主要事件三、主要事件 只有只有Timer事件。事件。当当Enabled属性值为属性值为True且且Interval属性值大于属性值大于0时，时，该事

17、件以该事件以Interval属性指定的时间间隔触发。属性指定的时间间隔触发。常常将需要定时执行的操作放在常常将需要定时执行的操作放在Timer事件事件过程中。过程中。6.5 6.5 时钟时钟 四、时钟应用举例四、时钟应用举例例例6.9 6.9 设计移动的地球程序。要求用时钟控件控制，设计移动的地球程序。要求用时钟控件控制，小球从左向右连续移动。小球从左向右连续移动。分析：分析：移动速度如何控制；移动速度如何控制；移动的实现：改变小球的移动的实现：改变小球的leftleft属性，或使用属性，或使用movemove方法。方法。移到右端再从左侧重新移动，如何处理？移到右端再从左侧重新移动，如何处理？

18、移动到窗体边界后改变移动方向，如何处理？移动到窗体边界后改变移动方向，如何处理？6.5 6.5 时钟时钟 五、思考题五、思考题 设设计计一一个个小小球球弹弹跳跳程程序序。要要求求用用时时钟钟控控件件控控制制，当小球碰到窗体边界时进行反弹。当小球碰到窗体边界时进行反弹。演示演示 6.6 6.6 图形控件图形控件u图形框（图形框（PictureBoxPictureBox）u图像框（图像框（ImageImage）u形状和直线形状和直线u图形方法图形方法 图形框图形框(PictureBoxPictureBox)一、用途一、用途 显示图形；显示显示图形；显示PrintPrint方法输出的内容。方法输出的

19、内容。二、重要属性二、重要属性 （1 1）PicturePicture：指定显示的图形。：指定显示的图形。两种设置方法：两种设置方法：a.a.在属性窗口设置在属性窗口设置 b.b.在代码中设置在代码中设置 对象名对象名.Picture=.Picture=LoadPicture(filenameLoadPicture(filename)（2 2）AutoSizeAutoSize：控件是否改变大小适应图形显示。：控件是否改变大小适应图形显示。图形框图形框(PictureBoxPictureBox)三、应用举例三、应用举例 例例6.10 6.10 设计程序，演示图片框在设计程序，演示图片框在Auto

20、SizeAutoSize属性为不同属性为不同值时的状态和用值时的状态和用PicturePicture属性加载、清除图形的功能。属性加载、清除图形的功能。图像框图像框(Image)(Image)一、用途一、用途 显示图形。显示图形。二、重要属性二、重要属性 （1 1）PicturePicture：指定显示的图形。：指定显示的图形。（2 2）StretchStretch：图形改变大小适应控件的大小。：图形改变大小适应控件的大小。FalseFalse：缩放控件适应图形的大小，默认值。：缩放控件适应图形的大小，默认值。TrueTrue：缩放图形适应控件的大小。：缩放图形适应控件的大小。例例6.11 6

21、.11 设计一个图形缩放程序。设计一个图形缩放程序。形状形状和直线和直线Shape属性值属性值形状形状0矩形（默认值）1正方形2椭圆3圆4圆角矩形5圆角正方形1.1.形状形状 形状控件（形状控件（ShapeShape）用来画矩形、正方形、椭圆、圆、）用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。通过设置圆角矩形及圆角正方形。通过设置ShapeShape属性可以得到需要属性可以得到需要的图形。的图形。ShapeShape属性设置值如下表所示：属性设置值如下表所示：形状和直线形状和直线2.2.直线直线 直线控件用来画水平线、垂直线或对角线。通过设置该直线控件用来画水平线、垂直线或对角线。通过

22、设置该控件的位置、长度、颜色、宽度和线型等属性可以产生不同控件的位置、长度、颜色、宽度和线型等属性可以产生不同风格、颜色的直线。风格、颜色的直线。常用属性：常用属性：BorderStyleBorderStyle:设置线条的类型，具体见书中的表设置线条的类型，具体见书中的表6-206-20BorderWidthBorderWidth：用于设置线条的宽度，即线条粗细。BorderColorBorderColor：用于设置线条颜色颜色。X1X1、X2X2、Y1Y1、Y2Y2：用于设置直线的起点和终点。在运行时，要移动或调整直线控件大小，可以通过改变X1、X2、Y1、Y2属性来进行。例例6.126.1

23、2形状控件示例。形状控件示例。图形方法图形方法图形操作基础图形操作基础一、坐标系统一、坐标系统 每每个个容容器器都都有有一一个个坐坐标标系系，构构成成一一个个坐坐标标系系，需需要要三三个个要要素素：坐坐标标原原点点、坐坐标标度度量量单单位位、坐坐标标轴轴的的长长度度与与方方向向。坐坐标标度度量量单单位位由由容容器器对对象象的的ScaleMode属属性性决决定定。缺缺省省时时为为Twip。每每英英寸寸1440个个Twip，20个个Twip为一磅。为一磅。图形方法图形方法图形操作基础图形操作基础二、自定义坐标系二、自定义坐标系方法一：通过方法一：通过ScaleTopScaleTop，ScaleLe

24、ftScaleLeft，ScaleWidthScaleWidth和和ScaleHeightScaleHeight属性实现。属性实现。Form1.ScaleLeft=-150Form1.ScaleTop=100Form1.ScaleWidth=300Form1.ScaleHeight=-200(-150,100)(150,-100)图形方法图形方法图形操作基础图形操作基础二、自定义坐标系二、自定义坐标系方法二：方法二：利用利用ScaleScale方法设置坐标系方法设置坐标系 (xLeft,yTop)(xRight,yBotton)对象对象.Scale(xLeft,yTop)-(xRight,yB

25、ottom)对象的左上角坐标值对象的左上角坐标值对象的右下角坐标值对象的右下角坐标值 图形方法图形方法画点方法画点方法PsetPset方法方法 画点，其语法格式为：画点，其语法格式为：对象对象.PsetPset step(x,ystep(x,y),),颜色颜色 其中，其中，x,yx,y为所画点的坐标，为所画点的坐标，StepStep表示采用当前作表示采用当前作图位置的相对值。图位置的相对值。例例6-13 6-13 在窗体上随机画出带颜色的点，实现满天星效在窗体上随机画出带颜色的点，实现满天星效果。果。例例6-14 6-14 用用PsetPset方法绘制以下参数方程决定的曲线。方法绘制以下参数方

26、程决定的曲线。图形方法图形方法画直线、矩形方法画直线、矩形方法LineLine方法方法:画直线或矩形，其语法格式为画直线或矩形，其语法格式为 对象对象.Line Step(x1,y1)-Step(x2,y2),.Line Step(x1,y1)-Step(x2,y2),颜色颜色,BF,BF 说明：说明：对象名：可以是窗体或图片框的名称，缺省为当前窗体名。对象名：可以是窗体或图片框的名称，缺省为当前窗体名。StepStep：可选项，有该参数时，表示坐标为相对于当前点的坐标，否则为：可选项，有该参数时，表示坐标为相对于当前点的坐标，否则为绝对坐标。绝对坐标。(x1(x1，y1)y1)：可选项，起点

27、坐标。：可选项，起点坐标。(x2(x2，y2)y2)：终点或右下角坐标。：终点或右下角坐标。颜色：直线或矩形的颜色，如果省略则使用颜色：直线或矩形的颜色，如果省略则使用ForecolorForecolor属性指定的颜色。属性指定的颜色。B B：可选项，如果有：可选项，如果有B B，则以，则以(x1(x1，y1)y1)为左上角坐标，以为左上角坐标，以(x2(x2，y2)y2)为右下角为右下角坐标画矩形。坐标画矩形。F F：可选项，只能在选择：可选项，只能在选择B B参数后才能选择，有参数后才能选择，有F F表示矩形以矩形边框的颜表示矩形以矩形边框的颜色填充，否则矩形用属性色填充，否则矩形用属性F

28、illcolorFillcolor和和FillstyleFillstyle填充。填充。例例6.15 6.15 用用LineLine方法画三角形和矩形示例。方法画三角形和矩形示例。图形方法图形方法画圆方法画圆方法CircleCircle方法方法 CircleCircle方法用于画圆、椭圆、圆弧和扇形。方法用于画圆、椭圆、圆弧和扇形。对象对象.circle.circle step(xstep(x，y)y)，radiusradius，colorcolor，startstart，endend，aspectaspect说明：说明：对象名：可以是窗体或图片框的名称，缺省为当前窗体名。对象名：可以是窗体或图

29、片框的名称，缺省为当前窗体名。StepStep：可选项，有该参数时，表示坐标为相对于当前点的坐标，否则为：可选项，有该参数时，表示坐标为相对于当前点的坐标，否则为绝对坐标。绝对坐标。(x(x，y)y)：圆、椭圆、圆弧或扇形的中心坐标。：圆、椭圆、圆弧或扇形的中心坐标。RadiusRadius：圆、椭圆、圆弧或扇形的圆半径。：圆、椭圆、圆弧或扇形的圆半径。ColorColor：可选项，圆、椭圆、圆弧或扇形的边框颜色。如果省略，则使：可选项，圆、椭圆、圆弧或扇形的边框颜色。如果省略，则使用用ForecolorForecolor属性指定的颜色。属性指定的颜色。图形方法图形方法画圆方法画圆方法 Sta

30、rtStart、EndEnd：可选项，指定弧的起始、终止位置，以弧度为单位，取值：可选项，指定弧的起始、终止位置，以弧度为单位，取值范围范围-2-222；StartStart缺省值为缺省值为0(0(水平轴正方向水平轴正方向)，EndEnd缺省值为缺省值为2(2(从水平轴从水平轴的正方向逆时针旋转的正方向逆时针旋转360360度度)；若两者为负数，则在画弧的同时还要画出圆；若两者为负数，则在画弧的同时还要画出圆心到弧的端点的连线。心到弧的端点的连线。AspectAspect：可选项，表示纵轴和横轴的尺寸比。：可选项，表示纵轴和横轴的尺寸比。AspectAspect1 1表示在表示在x x轴方轴方

31、向画椭圆，向画椭圆，AspectAspect1 1表示在表示在y y轴方向画椭圆，缺省值为轴方向画椭圆，缺省值为1 1。例例6-16 6-16 用用CircleCircle方法画圆。方法画圆。6.5 高级控件高级控件6.5.1 6.5.1 SSTabSSTab控件控件 控件存于控件存于MicrosoftMicrosoft Tabbed Dialog Control 6.0 Tabbed Dialog Control 6.0 部件中部件中，是为用户提供制作具有多个选项卡的对话框的控件。是为用户提供制作具有多个选项卡的对话框的控件。属性名属性值说明Style0Win3.1风格，活动选项卡的字体为粗

32、体显示1Win95风格，每个选项卡的宽度调整到其标题文本的长度TabsInt设定选项卡的总数TabsPerRowInt设定每一行选项卡的数目RowsInt设定选项卡的总行数TabInt设定活动选项卡 6.5 高级控件高级控件6.5.2 6.5.2 ProgressBarProgressBar控件控件 控件存在于控件存在于MicrosoftMicrosoft Windows Common Control 6.0 Windows Common Control 6.0 部部件中件中。属性名属性值说明MaxInt指定进度条的进程最大位置的值MinInt指定进度条的进程最小位置的值ValueInt指定进

33、度条的进程当前位置的值例例6.17 6.17 进度条示例。进度条示例。6.5 高级控件高级控件6.5.6.5.3 3 SliderSlider控件控件 控件存在于控件存在于MicrosoftMicrosoft Windows Common Control 6.0 Windows Common Control 6.0 部部件中件中。6.5.4 6.5.4 UpDownUpDown控件控件 控件存在于控件存在于Microsoft Windows Common Control-2 6.0 Microsoft Windows Common Control-2 6.0 部件中。部件中。主要事件主要事件:

34、UpClickUpClick,DownClickDownClick属性名属性值说明TickStyleInt指定控件的显示样式TickFrequencyInt指定控件上刻度的密度TextPositionInt指定鼠标操作时提示信息显示的位置 6.5 高级控件高级控件6.5.5 6.5.5 AnimationAnimation控件控件 控件存在于控件存在于MicrosoftMicrosoft Windows Common Control-2 6.0 Windows Common Control-2 6.0 部件中部件中。功能功能:播放无声的播放无声的AVIAVI视频文件视频文件 主要方法主要方法:

35、Open,Play,Stop,Close:Open,Play,Stop,Close 6.6 键盘和鼠标键盘和鼠标1.1.键盘事件键盘事件KeyPressKeyPress事件过程事件过程：用户按下并释放一个能产生用户按下并释放一个能产生AsciiAscii码的键时触发。码的键时触发。Sub Sub Form_KeyPress(KeyAsciiForm_KeyPress(KeyAscii As Integer)As Integer)Sub Sub object_KeyPress(indexobject_KeyPress(index As As Integer,KeyAsciiInteger,Key

36、Ascii As Integer)As Integer)KeyDownKeyDown事件过程事件过程：用户按下任一键时触发。用户按下任一键时触发。Sub Sub Form_KeyDown(keycodeForm_KeyDown(keycode As Integer,shift As Integer)As Integer,shift As Integer)Sub Sub object_KeyDown(indexobject_KeyDown(index As As Integer,keycodeInteger,keycode As Integer,shift As Integer,shift As

37、 Integer)As Integer)KeyUpKeyUp事件过程事件过程：用户释放任一键时触发。用户释放任一键时触发。Sub Sub Form_KeyUp(keycodeForm_KeyUp(keycode As Integer,shift As Integer)As Integer,shift As Integer)Sub Sub object_KeyUp(indexobject_KeyUp(index As As Integer,keycodeInteger,keycode As Integer,shift As As Integer,shift As Integer)Integer)

38、6.6 键盘和鼠标键盘和鼠标参数说明参数说明 Shift:Shift:根据按键时是否同时按下根据按键时是否同时按下ShiftShift、CtrlCtrl和和AltAlt键返回一个键返回一个整数。如果都没有按下，整数。如果都没有按下，ShiftShift为为0 0；如果同时按下；如果同时按下3 3个，个，ShiftShift为为各按键对应值的和。各按键对应值的和。KeyCodeKeyCode：键盘扫描码：键盘扫描码；KeyAsciiKeyAscii：字符：字符ASCIIASCII码码。例例6.18 6.18 设计一个应用程序，将文本框中输入的英文字符，转换设计一个应用程序，将文本框中输入的英文字

39、符，转换成大写字母并显示在标签中。成大写字母并显示在标签中。整数值符号常量说明1vbShiftMask按下Shift键2vbCtrlMask按下Ctrl键4vbAltMask按下Alt键 6.6 键盘和鼠标键盘和鼠标2.2.鼠标事件鼠标事件 除了除了ClickClick和和DblClickDblClick之外，还有之外，还有 (1)MouseDown(1)MouseDown事件事件 Sub Sub Form_MouseDown(ButtonForm_MouseDown(Button As Integer,Shift As As Integer,Shift As Integer,XInteger

40、,X As Single,Y As Single)As Single,Y As Single)(2)MouseUp(2)MouseUp事件事件 Sub Sub Form_MouseUp(ButtonForm_MouseUp(Button As Integer,Shift As As Integer,Shift As Integer,XInteger,X As Single,Y As Single)As Single,Y As Single)(3)(3)MouseMoveMouseMove事件事件 Sub Sub Form_MouseMove(ButtonForm_MouseMove(Butto

41、n As Integer,Shift As As Integer,Shift As Integer,XInteger,X As Single,Y As Single)As Single,Y As Single)6.6 键盘和鼠标键盘和鼠标参数说明参数说明 Button:Button:用户按下或释放的是鼠标左键、右键还是中间键，用户按下或释放的是鼠标左键、右键还是中间键，它是一个整数值。它是一个整数值。Shift Shift：同键盘事件的同键盘事件的shiftshift参数的含义；参数的含义；x,yx,y：鼠标的当前位置。：鼠标的当前位置。例例6.19 6.19 显示鼠标器指针所指的位置。显示鼠

42、标器指针所指的位置。例例6.20 6.20 利用鼠标左键画线，利用鼠标右键画圆。利用鼠标左键画线，利用鼠标右键画圆。整数值符号常量说明1vbLeftButton按下鼠标左键2vbRightButton按下鼠标右l键4vbMiddleButton按下中间按键6.7 6.7 常用控件综合举例常用控件综合举例例例6.216.21：设计和实现一个简单的给小学生出算术题的设计和实现一个简单的给小学生出算术题的程序，要求可以自动出题，选择判卷，列出结果和成程序，要求可以自动出题，选择判卷，列出结果和成绩。绩。演示演示6.7 6.7 常用控件综合举例常用控件综合举例程序功能的完善程序功能的完善l不答的题算错；不答的题算错；l错题重答；错题重答；l多种选择多种选择l除法整除除法整除6.7 6.7 常用控件综合举例常用控件综合举例练练习习：设设计计一一个个用用于于输输入入教教师师信信息息的的应应用用程程序序，如如图图所所示示。民民族族和和政政治治面面貌貌是是下下拉拉式式列列表表框框，其其中中的的项项目目请请用用户户自自己己确确定定。职职称称是是简简单单列列表表框框。水水平平滚滚动动条条用用于于输输入入外外语语熟熟练练程程度度(0100)(0100)。当当用用户户单单击击“确确定定”按按钮钮后后，能能够够在在“简简历历”下面的文本框中输出这些信息。下面的文本框中输出这些信息。