1、 5.1 5.1 控件的属性、事件和方法控件的属性、事件和方法 5.2 5.2 文本控件文本控件 5.3 5.3 图形图象控件图形图象控件 5.4 5.4 按钮控件按钮控件 5.5 5.5 选择控件选择控件 5.6 5.6 滚动条控件滚动条控件 5.7 5.7 框架控件框架控件 5.8 5.8 时钟控件时钟控件 5.9 5.9 焦点顺序焦点顺序第第5 5章章 常用标准控件常用标准控件1 1控件共有的属性（控件共有的属性（2.3.2 2.3.2 窗体的属性，窗体的属性，P17P17）(1)Name(1)Name 控件的控件的名称名称，只能在设计时指定。，只能在设计时指定。(2)Appearanc
2、e(2)Appearance 设置设置/返回控件在运行时是否以返回控件在运行时是否以3D3D效果效果显示。显示。0-Flat0-Flat不以不以3D3D效果显示。效果显示。1-3D1-3D以以3D3D效果显示。（默认）效果显示。（默认）5.1 5.1 控件共有的属性、事件和方法控件共有的属性、事件和方法(3)BackColor(3)BackColor 设置设置/返回控件中文本和图形的返回控件中文本和图形的背景背景色。色。可以赋值可以赋值(&HBBGGRR)(&HBBGGRR)，可以在调色板中选择。，可以在调色板中选择。(4)ForeColor 设置设置/返回控件中文本和图形的返回控件中文本和图
3、形的前景色。前景色。(5)BorderStyle 设置设置/返回控件的返回控件的边框样式。边框样式。0-None控件没有边框。控件没有边框。1-Fixed Single控件有固定的单线边框。控件有固定的单线边框。(6)Enabled 设置设置/返回一个值，决定控件是否响应用户产生的返回一个值，决定控件是否响应用户产生的事件。事件。True 能够响应用户生成事件能够响应用户生成事件(默认）。默认）。False 不响应用户生成事件（控件暂时灰色）。不响应用户生成事件（控件暂时灰色）。(7)Visible 设置设置/返回一个值，决定控件在运行时是否可见。返回一个值，决定控件在运行时是否可见。取值为取
4、值为True（默认）和（默认）和 False(8)Left(8)Left，TopTop，HeightHeight，WidthWidth(12)FontBold(12)FontBold，FontItalicFontItalic，FontNameFontName，FontSizeFontSize，FontUnderlineFontUnderline(1)鼠标鼠标事件事件:Click、DblClick、MouseDown、MouseUp、MouseMove，见第，见第9章。章。(2)键盘键盘事件事件:KeyPress、KeyDown、KeyUp，见第见第9章。章。2控件共有的事件控件共有的事件5.1
5、 5.1 控件共有的属性、事件和方法控件共有的属性、事件和方法(3)GotFocus 控件获得焦点控件获得焦点(即由非活动状态变为活动状态即由非活动状态变为活动状态)时，触发该事件。时，触发该事件。获得焦点的方法：获得焦点的方法：鼠标单击该控件鼠标单击该控件 鼠标双击该控件鼠标双击该控件 按按Tab键键(4)LostFocus 控件失去焦点控件失去焦点(即由活动状态变为非活动状态即由活动状态变为非活动状态)时，触发该事件。时，触发该事件。通常通过按通常通过按Tab键使控件失去焦点。键使控件失去焦点。(1)Move(4.2.4 与与Print有关的方法，有关的方法，P86)将控件移动到一个新的位
6、置，并且可以改变控件将控件移动到一个新的位置，并且可以改变控件的大小。的大小。格式：格式：Object.Move Left，Top，Width，Height参数含义：参数含义：(2)SetFocus 使控件获得焦点使控件获得焦点,即由非活动状态变为活动状态。即由非活动状态变为活动状态。格式：格式：Object.SetFocus3控件共有的方法控件共有的方法5.2 文本控件文本控件标签标签文本框文本框 标签控件主要用来显示静态文本信息标签控件主要用来显示静态文本信息-v对其它不具备对其它不具备CaptionCaption属性的控件提供提示或属性的控件提供提示或标识功能。标识功能。v在程序中显示程
7、序运行的结果、打印帮助和提在程序中显示程序运行的结果、打印帮助和提示信息。示信息。一、标签（Label）1标签控件的属性标签控件的属性(1)Alignment设置设置/返回一个值，决定控件中的文本的对齐方式。返回一个值，决定控件中的文本的对齐方式。0-Left Justify 靠左对齐（默认）靠左对齐（默认）1-Right Justify 靠右对齐靠右对齐2-Center 居中对齐居中对齐(2)AutoSize 决定决定签控件是否能够根据文本的多少自动调整大小签控件是否能够根据文本的多少自动调整大小以显示所有内容以显示所有内容。True/False(默认默认)。(3)WordWrap 确定标签
8、控件自动调整大小时的方向。确定标签控件自动调整大小时的方向。True-只在垂直方向上调整大小，以显示所有文本。只在垂直方向上调整大小，以显示所有文本。False-垂直和水平方向上调整大小（默认）。垂直和水平方向上调整大小（默认）。为了使为了使WordWrap起作用起作用 应把应把AutoSize属性设置为属性设置为True。(4)Caption 设置设置/返回标签控件中显示的文本，是一个字返回标签控件中显示的文本，是一个字符串。符串。回车换行符号为回车换行符号为vbCrLf，但只在运行时才有，但只在运行时才有效果。效果。例如：例如：Label1.Caption=“my&vbCrLf&VB(5)
9、BackStyle 决定标签决定标签背景样式是否透明的。背景样式是否透明的。0-Transparent 背景样式是透明的（与窗体同色）背景样式是透明的（与窗体同色）1-Opaque 背景样式是不透明的背景样式是不透明的(保持自身颜色，默认）保持自身颜色，默认）标签控件具有鼠标、焦点的所有事件，但是标签控件具有鼠标、焦点的所有事件，但是没没有键盘事件有键盘事件,具有一个具有一个changechange事件。事件。vChange事件事件 标签中的文本内容（标签中的文本内容（Caption属性）变化时，触属性）变化时，触发该事件。只有在运行中，通过给标签控件的发该事件。只有在运行中，通过给标签控件的
10、Caption属性赋新的值属性赋新的值才能触发该事件。才能触发该事件。1标签控件的属性标签控件的属性2标签控件的事件标签控件的事件一、一、标签（标签（Label）一、一、标签（标签（Label）3标签控件的方法标签控件的方法标签控件具有标签控件具有Move方法，但是没有方法，但是没有 SetFocus方方法法。4标签控件的应用标签控件的应用(1)显示只需显示不需要编辑的信息。显示只需显示不需要编辑的信息。(2)对其他不具备标题的控件进行注释。对其他不具备标题的控件进行注释。一、一、标签（标签（Label）功能：功能：显示文本信息显示文本信息 在在运行中编辑文本运行中编辑文本二、文本框控件二、文
11、本框控件(Text)1文本框控件的属性选讲文本框控件的属性选讲(1)Locked 确定文本框控件的内容是否允许编辑。确定文本框控件的内容是否允许编辑。True/False（默认）（默认）(2)MaxLength 设置设置/返回可输入的字符的最大个数。返回可输入的字符的最大个数。如果设置为如果设置为0（默认），则字符个数不能超过（默认），则字符个数不能超过32K。(3)MultiLine 确定确定文本框控件是否可以输入多行文本。文本框控件是否可以输入多行文本。True/False(默认默认)。(4)ScrollBars 确定文确定文本框控件是否具有水平和垂直滚动条。本框控件是否具有水平和垂直滚动
12、条。0-None 没有滚动条没有滚动条(默认默认)1-Horizontal 只有水平滚动条只有水平滚动条 2-Vertical 只有垂直滚动条只有垂直滚动条 3-Both 同时具有水平和垂直滚动条同时具有水平和垂直滚动条 设置的前提：设置的前提：MultiLine属性设置为属性设置为True。(5)PasswordChar 显示输入字符还是显示输入字符还是保密字符保密字符，多用于口令输入。，多用于口令输入。v默认状态下，该属性设置为空字符串，用户键入默认状态下，该属性设置为空字符串，用户键入的字符会在控件中显示出来。的字符会在控件中显示出来。v如果把该属性设置为某一字符，则在该文本框中如果把该
13、属性设置为某一字符，则在该文本框中键入字符时，显示的是该属性设置的字符。键入字符时，显示的是该属性设置的字符。图5-5 用户登录窗体(6)SelLength、SelStart、SelText 在运行期间设置在运行期间设置/返回文本框中的文本的选择信返回文本框中的文本的选择信息。息。SelLength：设置设置/返回当前选中的字符个数。返回当前选中的字符个数。SelStart：设置设置/返回当前选择的文本的起始位返回当前选择的文本的起始位置。置。SelText：返回当前选择的文本字符串；若设置返回当前选择的文本字符串；若设置该属性，则用该属性值代替选中的文本。该属性，则用该属性值代替选中的文本。
14、(7)Text 设置设置/返回文本框控件中显示的文本内容。返回文本框控件中显示的文本内容。(1)Change事件事件 当向文本框中输入新内容时，或当程序中修改当向文本框中输入新内容时，或当程序中修改文本控件的文本控件的Text属性时，触发该事件。属性时，触发该事件。(2)Gotfocus事件事件(3)Lostfocus事件事件 2文本框控件的事件文本框控件的事件3文本框控件的方法文本框控件的方法 文本框控件具有文本框控件具有Move和和SetFocus方法方法4 4文本框控件应用文本框控件应用 输入确认输入确认 身份验证身份验证Private Sub TxtScore_LostFocus()D
15、im S As Single If IsNumeric(TxtScore.Text)=False Then 判断文本框中的内容判断文本框中的内容是否为数字是否为数字 MsgBox 输入的字符无效，请重新输入输入的字符无效，请重新输入!,vbOKOnly+vbExclamation TxtScore.SetFocus TxtScore.SelStart=0 Else S=Val(TxtScore.Text)将文本框中的内容转换成数字将文本框中的内容转换成数字 If S 100 Then 判断输入的成绩是否在判断输入的成绩是否在0-100之间之间 MsgBox 输入的成绩不在有效范围之内，请重新输
16、入输入的成绩不在有效范围之内，请重新输入!,vbOKOnly+vbExclamation TxtScore.SetFocus TxtScore.SelStart=0 End If End IfEnd SubP106.vbpP106 例：利用文本框控件输入学生成绩。第5章 第1次结束5.3 图形图像控件图形图像控件图形图像控件包括：图形图像控件包括：直线控件（直线控件（Line）形状控件形状控件(Shape)图片框控件图片框控件(PictureBox)图像控件图像控件(Image)。一、直线（Line）和形状（Shape）1.1.直线和形状控件直线和形状控件没有没有事件和方法。事件和方法。2.2
17、.直线和形状控件常用的属性直线和形状控件常用的属性(1)BorderColor 设置设置/返回直线或形状控件的边框颜色值。是一个返回直线或形状控件的边框颜色值。是一个8 8位的十六进制数。位的十六进制数。(2)BorderStyle 设置设置/返回直线和形状控件的边框样式值。返回直线和形状控件的边框样式值。0-Transparent（透明，能看到背景颜色）（透明，能看到背景颜色）1-Solid （实线）（实线）（默认）（默认）2-Dash（虚线）（虚线）3-Dot（点线）（点线）4-Dash-Dot（点划线）（点划线）5-Dash-Dot-Dot（双点（双点划线）划线）6-Inside Sol
18、id（内实线）（内实线）(3)BorderWidth 设置设置/返回直线和形状控件的边界线的宽度，默认返回直线和形状控件的边界线的宽度，默认的单位是像素。的单位是像素。(4)BackStyle 设置返回一个值，确定形状控件边框内的区域设置返回一个值，确定形状控件边框内的区域是否被指定的颜色填充。是否被指定的颜色填充。0-Transparent 透明的，即不填充（默认）透明的，即不填充（默认）1-Opaque 由由BackColor属性指定的颜色填充。属性指定的颜色填充。(5)FillColor 设置设置/返回形状控件边框内的区域的填充颜色值。返回形状控件边框内的区域的填充颜色值。(6)Fill
19、Style 确定形状控件边框内的区域的填充图案。确定形状控件边框内的区域的填充图案。0-Solid（实心）（默认）（实心）（默认）1-Transparent（透明）（透明）2-Horizontal Line（水平线）（水平线）3-Vertial Line（垂直线）（垂直线）4-Upward Diagonal（左上角到右下角的对角线）（左上角到右下角的对角线）5-Downward Diagonal（右上角到左下角的对角线）（右上角到左下角的对角线）6-Cross（交叉线）（交叉线）7-Diagonal Cross（对角交叉线）（对角交叉线）(7)Shape 确定形状控件的几何形状。确定形状控件的
20、几何形状。0-vbShapeRectangle（矩形）（矩形）（默认）（默认）1-vbShapeSquare（正方形）（正方形）2-vbShapeOval（椭圆形）（椭圆形）3-vbShapeCircle（圆形）（圆形）4-vbShapeRoundedRectangle（圆角矩形）（圆角矩形）5-vbShapeRoundedSquare（圆角正方形）（圆角正方形）二、二、图片框（图片框（PictureBox）控件和图像）控件和图像（Image）控件）控件1图片框和图像控件的常用属性图片框和图像控件的常用属性 v图片框可以显示图片，也可以作为其他控件的容器；图片框可以显示图片，也可以作为其他控件
21、的容器；v图像框只能显示图片图像框只能显示图片，属性很少。，属性很少。(1)Align 设置设置/返回一个值，确定返回一个值，确定图片框图片框控件在窗体上的显示位置控件在窗体上的显示位置 0-Align None放在窗体上的任意位置（默认）。放在窗体上的任意位置（默认）。1-Align Top 靠窗体顶端放置，宽度等于窗体宽度。靠窗体顶端放置，宽度等于窗体宽度。2-Align Bottom 靠窗体底端放置，宽度等于窗体宽度。靠窗体底端放置，宽度等于窗体宽度。3-Align Left靠窗体左端放置，高度等于窗体高度。靠窗体左端放置，高度等于窗体高度。4-Align Right靠窗体右端放置，高度
22、等于窗体高度。靠窗体右端放置，高度等于窗体高度。(2)AutoSize (5.2.1标签控件的属性标签控件的属性 p103)设置设置/返回一个值，确定返回一个值，确定图片框图片框控件能否根据显示控件能否根据显示的内容调整自身的大小。的内容调整自身的大小。(3)Picture 设置设置/返回返回图片框图片框和和图像图像控件中要显示的图片。控件中要显示的图片。可以显示的图片类型包括可以显示的图片类型包括:位图位图(*.bmp;*.dib););GIF图像图像(*.gif););JPEG图像图像(*.jpg););元文件元文件(*.wmf;*.emf););Icons图标图标(*.ico；*.cur
23、)例如：例如：Image1.Picture=LoadPicture(App.Path+“诱人的水果小诱人的水果小2.jpg”)exam4_8.vbp(4)Stretch 设置设置/返回一个值，确定返回一个值，确定图像图像控件是否能根据自身的大控件是否能根据自身的大小调整显示的内容。小调整显示的内容。True：图像框能根据自身大小图像框能根据自身大小调整显示内容的大小。调整显示内容的大小。False：不：不根据显示内容的大小调整自身大小（默根据显示内容的大小调整自身大小（默认）。认）。此属性此属性仅用于图像框仅用于图像框，图片框不具备该属性，调，图片框不具备该属性，调整图片框控件的大小时，将会对
24、显示的内容执行裁剪整图片框控件的大小时，将会对显示的内容执行裁剪 例：例：Image1.Stretch=True 例例4.8(1)Paint 当向当向图片框图片框控件上输出任何内容时都将触发该事件。控件上输出任何内容时都将触发该事件。(2)Resize 当在运行期间改变当在运行期间改变图片框图片框控件大小时将触发该事件。控件大小时将触发该事件。2图片框和图像框控件的事件图片框和图像框控件的事件(1)图像图像 图像控件方法较少，只有图像控件方法较少，只有Move（移动）和（移动）和Refresh（刷新）方法。（刷新）方法。(2)图片框图片框图片框控件方法较多，具有图片框控件方法较多，具有Move
25、、Cls、Circle、Line、Pset、Print、PaintPicture等方法。等方法。3图片框和图像控件方法图片框和图像控件方法Circle(x,y),radius,colorLine(x1,y1)-(x2,y2),colorPset(x,y),color4.图片框控件和图像控件的区别图片框控件和图像控件的区别(1)图像控件方法较少图像控件方法较少,图片框控件方法较多。图片框控件方法较多。(2)图片框可以作为父控件，图象框则不可。图片框可以作为父控件，图象框则不可。(3)图片框有图片框有currentx和和currenty属性。属性。(4)图象框占内存少图象框占内存少，显示速度比图片
26、框快，在两，显示速度比图片框快，在两者都能满足需要时优先考虑图象框。者都能满足需要时优先考虑图象框。例.在图片框上显示一个表格及表内信息。P111.VBP1.在设计阶段装入图形文件在设计阶段装入图形文件 利用属性窗口利用属性窗口 点击点击Picture属性后面的带属性后面的带“”符号的按钮，符号的按钮，打开打开“加载图片加载图片”对话框，通过浏览找到需要对话框，通过浏览找到需要的图形文件。的图形文件。利用利用Windows的剪切板的剪切板 将要装入的图形拷贝到将要装入的图形拷贝到Windows的剪切板，的剪切板，然后选中要装入的图片框，执行然后选中要装入的图片框，执行“粘贴粘贴”命令。命令。三
27、、三、图形文件的装入图形文件的装入2.在运行阶段装入图形在运行阶段装入图形 利用利用LoadPicture()函数函数例：例：LoadPicture函数应用举例。函数应用举例。P113.vbpLoadPicture()函数函数功能：把图片装入窗体的功能：把图片装入窗体的Picture属性、属性、PictureBox控件或控件或Image控控件。件。调用格式：调用格式：LoadPicture(filename,size,colordepth,x,y)参数说明：参数说明：Filename 可选，可选，String类型，指定文件名；如果没有指定类型，指定文件名；如果没有指定filename参数，函数
28、参数，函数LoadPicture清除该清除该PictureBox控件或控件或Image控件。控件。Size 可选，变体。如果可选，变体。如果filename是一个光标文件或图标文件，指定是一个光标文件或图标文件，指定所希望图片显示尺寸类别。所希望图片显示尺寸类别。Colordepth 可选，变体。如果可选，变体。如果filename是一个光标文件或图标文件，是一个光标文件或图标文件，指定图片显示时所希望的颜色深度。指定图片显示时所希望的颜色深度。X,y 可选，变体。如果可选，变体。如果filename是一个光标文件或图标文件，指定是一个光标文件或图标文件，指定所希望图片的宽度和高度。所希望图片
29、的宽度和高度。5.1 5.1 控件的属性、事件和方法控件的属性、事件和方法 5.2 5.2 文本控件文本控件 5.3 5.3 图形图象控件图形图象控件 5.4 5.4 按钮控件按钮控件 5.5 5.5 选择控件选择控件 5.6 5.6 滚动条控件滚动条控件 5.7 5.7 框架控件框架控件 5.8 5.8 时钟控件时钟控件 5.9 5.9 焦点顺序焦点顺序第第5 5章章 常用标准控件常用标准控件(new)(new)1按钮控件的属性（选讲）按钮控件的属性（选讲）(1)Caption 设置设置/返回命令按钮显示的标题。返回命令按钮显示的标题。如果输入以如果输入以“&”开头的字符开头的字符，则按，则
30、按Alt键加该键加该字符键字符键相当于相当于单击该按钮。单击该按钮。例：例：Command1.Caption=“退出系统退出系统&Q”5.4 按钮控件按钮控件(2)Cancel (修改书中的注解修改书中的注解)Cancel属性是命令按钮独有的。用来设置该命属性是命令按钮独有的。用来设置该命令按钮是否为按令按钮是否为按Esc键默认的命令按钮。键默认的命令按钮。True-按按Esc键与单击该命令按钮的作用相键与单击该命令按钮的作用相同。同。False-不是不是Esc的的等价按钮。等价按钮。(3)Default 取值：取值：True/False（默认）（默认）v当一个命令按钮的当一个命令按钮的Def
31、ault 属性被设置为属性被设置为True时，时，按回车键按回车键与单击该命令按钮的效果相同。与单击该命令按钮的效果相同。v在一个窗体中，只能有一个命令按钮的在一个窗体中，只能有一个命令按钮的Default属性被设置为属性被设置为Ture.(4)Style 确定该命令按钮的外观是标准的还是图形的。确定该命令按钮的外观是标准的还是图形的。0-Standard外观为标准的外观为标准的(Windows)(默认默认)1-Graphical外观为图形的外观为图形的(带有自定义图片带有自定义图片)按钮图片属性.VBP该属性只能在设计时设置，运行时是只读的。该属性只能在设计时设置，运行时是只读的。(5)Pi
32、cture、DownPicture、DisabledPicture 当当Style属性设置属性设置1-Graphical时，这三个属性分别时，这三个属性分别是按钮是按钮正常正常、按下按下和和无效无效时显示的图片的路径及时显示的图片的路径及文件名。文件名。常用的事件：鼠标单击事件常用的事件：鼠标单击事件(Click）不支持鼠标双击事件不支持鼠标双击事件(DblClick)事件事件2按钮控件的事件按钮控件的事件3按钮控件的按钮控件的常用常用方法方法 Move SetFocus方法方法 Refresh:强制重绘按钮的全部。强制重绘按钮的全部。例：按钮控件应用举例 P115.vbp5.4 按钮控件按钮
33、控件（1）窗体界面设计）窗体界面设计例：按钮控件应用举例 P115.vbp控件控件Name CaptionFillColor FillStyleEnableVisible形状形状ShapeShpRedOpen亮红色亮红色0-SolidFalseShpRedClose暗红色暗红色TrueShpYellowOpen亮黄色亮黄色FalseShpYellowClose暗黄色暗黄色TrueShpGreenOpen亮绿色亮绿色FalseShpGreenClose暗绿色暗绿色True按钮按钮CommandCmdStart启动系统启动系统&STrueCmdRed点亮红灯点亮红灯&RFalseCmdYellow
34、点亮黄灯点亮黄灯&YFalseCmdGreen点亮绿灯点亮绿灯&GFalse（2）控件属性设置）控件属性设置（3）程序代码）程序代码5.5 选择控件选择控件Visual Basic提供了四个用于选择的标准控件提供了四个用于选择的标准控件:单选按钮单选按钮复选框复选框列表框列表框组合框组合框简单的选择简单的选择复杂的选择复杂的选择一、单选钮 OptionButton 和复选框CheckBox每一个单选按钮代表一个选项，而且在每一个单选按钮代表一个选项，而且在同一同一个容器中个容器中的单选按钮是互斥的。的单选按钮是互斥的。复选框是表示一个开关状态，即当被标记时复选框是表示一个开关状态，即当被标记时
35、表示该开关被打开，当没有被标记时表示表示该开关被打开，当没有被标记时表示该开关被关闭，该开关被关闭，多个复选框之间互不影响多个复选框之间互不影响(1)Alignment 设置设置/返回一个值，返回一个值，确定标题文本与按纽的排列位确定标题文本与按纽的排列位置置。0-Left Justify 左对齐左对齐,按钮在文本左侧按钮在文本左侧(默认）默认）1-Right Justify 右对齐右对齐,按钮在文本的右侧按钮在文本的右侧(2)Caption 设置设置/返回显示的标题，可在该属性中输入以返回显示的标题，可在该属性中输入以“&”开头的字符。开头的字符。1单选按钮和复选框控件的属性单选按钮和复选框
36、控件的属性(3)Style（与（与Command按钮类似）按钮类似）确定外观是标准的还是图形的。确定外观是标准的还是图形的。0-Standard外观为标准的（默认）外观为标准的（默认）1-Graphical外观为图形的外观为图形的(4)Picture，DownPicture，DisabledPicture（与（与Command按钮类似）按钮类似）分别设置按钮正常、按下和无效时显示的图分别设置按钮正常、按下和无效时显示的图片文件名。片文件名。(5)Value表示单选按钮和复选框控件的表示单选按钮和复选框控件的状态。状态。对于单选按钮对于单选按钮 True：单选按钮是选中的单选按钮是选中的 Fal
37、se：单选按钮是未被选中的（默认）单选按钮是未被选中的（默认）对于复选框来说，有三个值可以选择：对于复选框来说，有三个值可以选择：0-Unchecked 复选框未被标记（默认）。复选框未被标记（默认）。1-Checked 复选框被标记。复选框被标记。2-Grayed 复选框灰色显示复选框灰色显示(是一种状态显是一种状态显示，并不是无效示，并不是无效)。(1)交互界面设置交互界面设置例：应用举例。P119.vbp控件控件NameCaptionTextStyle文本框文本框(Text)TxtShow单选按钮和复选框单选按钮和复选框单选按钮单选按钮(OptionButton)OptFontS宋体宋体
38、&S0-StandardOptFontH黑体黑体&HOptFontK楷体楷体&K复选框复选框(CheckBox)ChkFontB粗体粗体&B0-StandardChkFontI斜体斜体&IChkFontU下划线下划线&U(2)控件属性交互界面设置控件属性交互界面设置Private Sub OptFontH_Click()TxtShow.FontName=黑体黑体End SubPrivate Sub OptFontL_Click()TxtShow.FontName=楷体楷体_GB2312End SubPrivate Sub OptFontS_Click()TxtShow.FontName=宋体宋
39、体End Sub(3)程序代码程序代码Private Sub ChkFontB_Click()If ChkFontB.Value=0 Then TxtShow.FontBold=False Else TxtShow.FontBold=True End IfEnd SubPrivate Sub ChkFontI_Click().End SubPrivate Sub ChkFontU_Click().End Sub二、二、列表框（列表框（ListBox）列表框是将所有的可选项以表格形式列出来，供列表框是将所有的可选项以表格形式列出来，供 用户选择，但不能由键盘输入。用户选择，但不能由键盘输入。1.
40、列表框控件的常用属性列表框控件的常用属性(1)Columns 设置或返回一个值，表示表项是单列还是多列显示。设置或返回一个值，表示表项是单列还是多列显示。0（默认）：内容显示在一列中并垂直滚动。（默认）：内容显示在一列中并垂直滚动。大于大于0时：内容以指定的列数显示，并水平滚动。时：内容以指定的列数显示，并水平滚动。二、二、列表框（列表框（ListBox）(2)List 该属性是一个数组，包含了所有的表项，通过下该属性是一个数组，包含了所有的表项，通过下标访问数组中的值（下标从标访问数组中的值（下标从0开始）。开始）。例如：例如：List1.List(3)表示列表框控件中第四个表项。表示列表框
41、控件中第四个表项。(3)ListCount 返回列表框控件中包含的返回列表框控件中包含的表项个数表项个数，该属性只读，该属性只读。(4)ListIndex 返回列表框控件中返回列表框控件中被选中的被选中的表项的索引，范围表项的索引，范围在在0ListCount-1之间之间，没有表项被选中属性的，没有表项被选中属性的值为值为-1 。如果选择多个表项，如果选择多个表项，listindex只表示最后一次的只表示最后一次的选择选择(5)MultiSelect 设置设置/返回一个值，确定列表框控件中是否可以返回一个值，确定列表框控件中是否可以进行多项选择。进行多项选择。0-None 每次只能选择一项。（
42、默认）每次只能选择一项。（默认）1-Simple 可以同时选多项，可用鼠标键和空格可以同时选多项，可用鼠标键和空格键选择键选择 2-Extended Shift+单击：连续选择单击：连续选择 Ctrl+单击：不连续选择单击：不连续选择(6)Selected 该属性为该属性为布尔值数组布尔值数组，Selected(N)为为True，表，表示第示第N+1项项被选中，否则未被选中被选中，否则未被选中。(7)SelCount 返回列表框控件中返回列表框控件中被选中的表项的数目。被选中的表项的数目。(8)Sorted 设置设置/返回表项是否按字符编码顺序进行排序返回表项是否按字符编码顺序进行排序 Tru
43、e、False。(9)Style 该属性设置列表框控件的外观该属性设置列表框控件的外观 0-Standard 列表框控件标准形式（默认）列表框控件标准形式（默认）1-CheckBox 每个表项前加一复选框。每个表项前加一复选框。(10)Text 返回列表框控件中返回列表框控件中最后被选中的表项的文本最后被选中的表项的文本，该属性只在运行时使用，并且为只读。该属性只在运行时使用，并且为只读。(1)单击单击click：Private Sub List1_Click()(2)双击双击dblclick(3)ItemCheck：Private Sub List1_ItemCheck(Item As In
44、teger)Style属性设置为属性设置为1时时,鼠标单击表项前面的复选框鼠标单击表项前面的复选框时触发该事件时触发该事件(4)Scroll 拖动列表框的垂直滚动条时触发该事件。拖动列表框的垂直滚动条时触发该事件。2列表框控件的事件列表框控件的事件3列表框控件的方法列表框控件的方法 (1)AddItem 功能：向列表框中添加表项。功能：向列表框中添加表项。格式为：格式为：Listx.AddItem 字符串字符串,索引值索引值 (2)RemoveItem 功能：从列表框中删除指定的表项。功能：从列表框中删除指定的表项。格式为：格式为：Listx.RemoveItem 索引值索引值(3)Clear
45、 功能：清楚列表框中的全部内容。功能：清楚列表框中的全部内容。清除列表框中的全部内容清除列表框中的全部内容 Listx.Clear Private Sub Form_Load()List1.AddItem 00000 List1.AddItem 111111 List1.AddItem 222222End SubPrivate Sub List1_Click()单击表项单击表项 Print 你好你好End SubPrivate Sub List1_ItemCheck(Item As Integer)单击表项前面的复选框单击表项前面的复选框 If Item=2 Then MsgBox 快乐千金难
46、买快乐千金难买End Sub例：列表框控件的事件、方法举例。例：列表框控件的事件、方法举例。P122.vbp例：例：列表框控件的综合应用，列表框控件的综合应用，p123.vbp(1)窗体界面设计控件控件NameCaptionMultiSellect列表框列表框(List)List12-ExtendedList2命令按钮命令按钮(Command)CmdAdd添加添加&ACmdRemove清除清除&R(2)控件属性设置Private Sub Form_Load()List1.AddItem 语文语文 List1.AddItem 数学数学 List1.AddItem 英语英语 List1.AddIt
47、em 物理物理 List1.AddItem 化学化学 List1.AddItem 政治政治 List1.AddItem 历史历史 List1.AddItem 生物生物 List1.AddItem 地理地理 List1.AddItem 体育体育End Sub(3)程序代码Private Sub CmdAdd_Click()Dim i As Integer If List1.SelCount 1 Then 在在List1中选择多项时中选择多项时 For i=0 To List1.ListCount-1 If List1.Selected(i)=True Then List2.AddItem Lis
48、t1.List(i)End IfNext i Else 在在List1中选择一项时中选择一项时 List2.AddItem List1.Text End IfEnd SubPrivate Sub CmdRemove_Click()Dim i As Integer If List2.SelCount 1 Then 在在List2中选择多项时中选择多项时 For i=List2.ListCount-1 To 0 Step-1 If List2.Selected(i)=True Then List2.RemoveItem i End If Next i Else 在在List2中选择一项时中选择一项
49、时 List2.RemoveItem List2.ListIndex End IfEnd SubPrivate Sub List1_DblClick()List2.AddItem List1.TextEnd SubPrivate Sub List2_DblClick()List2.RemoveItem List2.ListIndexEnd Sub 组合框由列表框部分和文本框部分组成，组合框由列表框部分和文本框部分组成，兼有列表框和文本框的功能，既允许用兼有列表框和文本框的功能，既允许用户在列表框部分进行选择，也允许用户户在列表框部分进行选择，也允许用户在文本框部分输入和编辑。在文本框部分输入和
50、编辑。三、三、组合框（组合框（ComboBox）文本框文本框列表框列表框New1组合框控件的属性组合框控件的属性 组合框控件默认的名称是组合框控件默认的名称是Combon（n为为1，2，3，）(1)Locked 确定组合框控件的文本框部分是否允许编辑。确定组合框控件的文本框部分是否允许编辑。True:文本框部分不允许编辑也不能从下拉列表文本框部分不允许编辑也不能从下拉列表中选择。中选择。False:文本框部分允许编辑。文本框部分允许编辑。(2)Text 设置设置/返回组合框控件文本框部分的文本返回组合框控件文本框部分的文本。(3)Style 设置设置/返回组合框控件的类型及列表框部分的行为。返
