常用标准控件

常用标准控件6.16.1.1标签

主要属性：Alignment（对齐方式）：0-左对齐（默认）；1-右对齐；2-Autosize（自动调整大小）：True-自动按标题内容调整标签大小；False-不自动调整（默认）BorderStyle

（边框样式）：0-无边框（默认）；1-Caption

（标题）：标签显示的内容Enabled（有效性）：True-允许对事件做出反应（默认）；False-不允许对事件做出反应Backstyle（背景风格）：0-透明；1-覆盖（默认）WordWrap（显示方式）：True-垂直；False-水平（默认）。(为使WordWrap起作用，应把Autosize设为True)文本框主要属性：MaxLength（最大字符数）：允许输入的最大字符数MultiLine（多行属性）：True-可以多行；False-单行（默认）PasswordChar（口令字符属性）：按指定字符显示输入内容，显示的字符个数和输入的字符个数相同ScrollBars（滚动条属性）：0-无（默认）；1-水平滚动条；2-垂直；3-水平和垂直SelLength（选中的字符长度）：返回或设置所选择的字符数。SelStart（起始位置）：返回或设置所选择的文本的起始点；如果没有文本被选中，则指出插入点的位置。SelText（选中的文本）：返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为空字符串(“”)。Text（文本属性）：返回或设置编辑区域中的文本。Locked（是否锁定）：返回或设置一个值，以指定控件是否被锁定。此属性为True时，不可以编辑，但可以选择、复制文本；当为False时(默认)，可以编辑文本。文本框事件和方法：Change事件：改变文本框的内容时发生。该事件当用户改变正文或通过代码改变Text属性的设置时发生。GotFocus事件：当对象获得焦点时产生该事件；获得焦点可以通过诸如TAB切换，或单击对象之类的用户动作，或在代码中用SetFocus方法改变焦点来实现。LostFocus事件：此事件是在一个对象失去焦点时发生，焦点的丢失或者是由于制表键移动或单击另一个对象操作的结果，或者是代码中使用SetFocus方法改变焦点的结果。SetFocus方法：格式:对象名称.SetFocus让指定的对象获得焦点。6.2图形控件6.2.1图片框和图像框主要属性：CurrentX和CurrentY：用来设置下一个输出的水平和垂直坐标。用于窗体、图片框和打印机，不能用于图像框。Picture返回或设置控件中要显示的图片。可用于窗体、图片框和图像框。Stretch图像调整属性：用于图像框，图片框无此属性。设置其值为True时，可以自动调整图形内容的大小来适应图像框大小的变化。AutoSize属性：用于图片框，返回或设置一个值，以决定控件是否自动改变大小以显示其全部内容。可以在图片框中使用的主要方法：ClsPrint

图形文件的装入图片框与图像框的区别图片框是“容器”控件，可作为父控件，图像框不能。

图片框可接收Print方法输出的信息，图像框不能。

图像框比图片框占用的内存少，显示速度快。在设计阶段装入图形文件用属性窗口中的Picture属性装入利用剪贴板把图形粘贴到窗体、图片框或图像框中在运行期间装入图形文件[对象.]Picture=LoadPicture("文件名")例6.2交换两个图片框中的图形。PrivateSubForm_Click()Picture3.Picture=Picture1.Picture Picture1.Picture=Picture2.Picture Picture2.Picture=Picture3.Picture Picture3.Picture=LoadPicture()EndSub6.2.3直线和形状主要属性：BorderColor返回或设置对象的边框颜色。BoderStyle返回或设置对象的边框样式。BoderWidth返回或设置控件边框的宽度。BackStyle返回或设置控件是否被指定的颜色填充。

FillStyle返回或设置填充图案的样式。FillColor返回或设置填充图案的颜色。Shape形状属性。

例通过程序改变形状属性。PrivateSubForm_Click()FontSize=12CurrentX=350Print"0";Fori=1To5Shape1(i).Left=Shape1(i-1).Left+1050Shape1(i).Shape=ishape1(i).visible=trueCurrentX=CurrentX+750Printi;NextiEndSub图形方法1缺省窗体的大小

Height=3600(Twip)Width=4800ScaleHeight=3195ScaleWidth=46802自定义坐标系[对象名.]Scale[(xLeft,yTop)-(xRight,yBottom)]3画点方法[对象名.]Pset[Step](x,y)[,颜色]例PrivateSubCommand1_Click()Scale(0,0)-(200,200)DrawWidth=10PSet(100,100),vbRedCurrentX=30CurrentY=30PSetStep(50,50),vbBlueEndSub4画直线、矩形方法[对象名.]Line[[Step](x1,y1)]-[Step](x2,y2)[,颜色][,B[F]]Step可选的。关键字，指定起点坐标，它们相对于由CurrentX

和CurrentY

属性提供的当前图形位置。(x1,y1)可选的。Single（单精度浮点数），直线或矩形的起点坐标。ScaleMode属性决定了使用的度量单位。如果省略，线起始于由CurrentX和CurrentY指示的位置。Step可选的。关键字，指定相对于线的起点的终点坐标。(x2,y2)必需的。Single（单精度浮点数），直线或矩形的终点坐标。B可选的。如果包括，则利用对角坐标画出矩形。F可选的。如果使用了B选项，则F选项规定矩形以矩形边框的颜色填充。不能不用B而用F。如果不用F光用B，则矩形用当前的FillColor和FillStyle填充。FillStyle的缺省值为transparent。例6-7PrivateSubForm_Click()Scale(0,0)-(100,100)DrawWidth=5Line(10,30)-(10,80),vbRedLine-(40,80),vbGreenLine-(10,30),vbBlueLine(50,30)-(80,80),vbRed,BFEndSub5画圆方法[对象名.]Circle[Step](x,y),r,[color],[start],[end][,纵横比]例如PrivateSubForm_Click()Constpi=3.1415926Scale(0,0)-(100,100)Circle(50,50),30,vbRed,-0.25*pi,-0.75*piEndSub6.3按钮控件属性和事件

Cancel属性当一个命令按钮的Cancel属性设置为True而且该窗体是活动窗体时，按ESC键与单击该命令按钮的作用相同。Default属性当一个命令按钮的Default属性设置为True而且其所在窗体是活动的，按ENTER键与单击该命令按钮的作用相同。Style属性返回或设置一个值，该值用来指示控件的显示类型和操作。值为0：标准样式；值为1：图形格式。Picture、DownPicture、DisabledPicture属性

单击（Click）事件命令按钮最常用的事件是单击事件。（注意命令按钮不支持双击事件。）应用举例例6.6模拟交通信号灯切换。PrivateSubCommand1_Click()IfImage1.Visible=TrueThenImage1.Visible=FalseImage2.Visible=TrueElseIfImage2.Visible=TrueThenImage2.Visible=FalseImage3.Visible=TrueElseImage3.Visible=FalseImage1.Visible=TrueEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Image2.Visible=FalseImage3.Visible=FalseEndSub6.4选择控件6.4.1复选框和单选按钮的属性和事件

Value属性复选框的Value属性：0——未选定1——选定2——禁止状态单选钮的Value属性：True

——选定False

——未选定Alignment属性设置或返回一个值，决定复选框和单选钮控件中的文本的对齐方式。0——（缺省值）控件居左，标题在控件右侧。1——控件居右，标题在控件左侧。Style属性指定复选框或单选按钮的显示方式。0:标准;1:图形单击(Click)事件复选框和单选按钮都可以接收Click事件。例6.10用复选框控制文本显示方式。PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubPrivateSubForm_Load()Text1.FontSize=20EndSub例6.11用单选按钮控制显示不同字体。PrivateSubOption1_Click()Text1.FontSize=24Text1.FontName="TimesNewRoman"EndSubPrivateSubOption2_Click()Text1.FontSize=20Text1.FontName="Modern"EndSubPrivateSubOption3_Click()Text1.FontSize=18Text1.FontName="Courier"EndSub框架框架用来对控件进行分组，即把指定的控件放到框架中。必须先画出框架，然后在框架内画出需要成为一组的控件，这样才能使框架内的控件成为一个整体，和框架一起移动。对窗体上已有的控件，要把它们放到框架中，可使用“剪切—粘贴”的方法。列表框和组合框1列表框

主要属性：Columns确定列表框的列数。如果为0，则为单列显示（内容大于显示区域增加垂直滚动条）；如果大于等于1，则为多列显示（内容大于显示区域将增加水平滚动条）。List可以列出列表项的内容。可以通过下标访问或改变其值：

格式：对象名称.List(下标)[=字符串]

Listcount返回列表框中表项的个数。

例：下面的过程可以显示列表框中的所有表项。PrivateSubCommand1_Click() Fori=0ToList1.ListCount-1 PrintList1.List(i) NextiEndSubListIndex返回或设置控件中当前选择项目的索引，在设计时不可用。

List1.List(List1.ListIndex)返回当前选择项目的字符串。

Multiselect指示能否进行复选以及如何进行复选。在运行时是只读的。0（缺省值）不允许复选。1简单复选。2扩展复选。可以使用Shift、Ctrl键。Selected返回或设置一个项的选择状态。在设计时是不可用的。格式：对象名称.Selected(下标)[=True|False]

SelCount返回被选中项的数目。Sorted指定控件的元素是否自动按字母表顺序排序。在设计时设定，在运行时是只读的。Style指定控件的外观。在运行时是只读的。当它为0时，（缺省值）标准的；为1时，带有复选框，可进行多项选择。Text返回列表框中最后一次选择的项目；List1.Text等价于List1.List(List1.ListIndex)，设计和运行时都是只读的。列表框事件： 列表框接收Click事件和DblClick事件。

主要方法：AddItem将项目添加到列表框中。

Clear清除列表框中所有的项目。RemoveItem删除列表框中指定的项目。

例6.13建立两个列表框。当双击某个项目时，该项目移到另一个列表框中。PrivateSubList1_DblClick() List2.AddItemList1.Text List1.RemoveItemList1.ListIndexEndSubPrivateSubList2_DblClick() List1.AddItemList2.Text List2.