VB常用标准控件(一)

表单的常用控件陈耀清摄于三亚西安工大北信经济、市营、国贸适用1.标签2.文本控件3.计时器4.命令按钮5.组合框6.单选钮7.复选框陈耀清摄于太湖（2001年2月）8.微调按钮9.图像10.表格11.命令按钮组12.页框13.形状14.线条本章主要内容6.1文本控件Label和Text陈耀清摄于三亚海滨2003.8标签一般用于在程序的运行中显示不变的文本信息，常用来标注不具有Caption特性的控件。标签控件的图标为标签的默认名称为LableX，其中“X”为建立文本框先后顺序的序号。如对象名：Lable1、Lable2等。标签的属性可分为通用属性和其他属于性。其中通用属性是许多控件共同具有的属性。6.1.1标签Lable通用属性,实用于LableText(无Caption)FormcommandPictrueimage等控件控件的的通用属性汇总如下：Caption显示在对象上的字符Name对象名称FontBold粗体FontItalic斜体Fontname字体名Fontsize字大小FontUnderline下画线Height对象的高度Width对象的宽度Left左边矩Top上边矩Backcolor背景色Forecolor前景色Enabled是否有效(true有效false无效)Visible是否可见(true可见false隐藏)一、标签（Lable)的通用属性1.名称与标题Name名称Caption标题(给出标签中显示的文本).2.大小和位置Height高度Width宽度Lift左边距Top顶边距6.1标签的属性3.字体、字号和字形FontName字体FontSize字号FontBold粗体FontItalic斜体FontUnderline下画线Fontstirkethru删除线6.1标签的属性以上属性为通用属性,实用于LableText(无Caption)FormcommandPictrueimage二、标签（Lable)的其他属性1.对齐方式与大小调整Alignment0左对齐显示1右对齐显示2居中显示AutosizrTrue自动调整大小以容下标题False保持设计时的大小.超出字符不显示WordWrapTrue在垂直方向改变大小与标题匹配False在水平方向改变大小与标题匹配6.1标签的属性2.外观属性Visible对象可见不可见TRUE可见False不可见Enabled对象有效True有效,清晰显示False无效,灰色显示BackStyle标签透明与不透明0透明1不透明（默认）BorderStyle标签的边框0无边框（默认）1有边框6.1标签的属性PrivateSubLabel1_Click()Label1.FontSize=22:Label1.FontName=华文行楷Label1.WordWrap=False‘水平方向改变大小与内容匹配BorderStyle=0:Label1.BackStyle=0‘无边框标签透明Label1.ForeColor=RGB(0,0,255)Label1.Caption=“风急天高猿啸哀,褚青沙白乌飞回。；无边落木萧萧下,不尽长江滚流来。Label2.FontSize=22:Label2.FontName=方正舒体Label2.WordWrap=FalseBorderStyle=0:Label2.BackStyle=0Label2.ForeColor=RGB(255,0,0)Label2.Caption=“万里悲秋常作客,百年多病独登台。；艰难苦恨繁霜鬓,潦倒新停浊酒杯。“EndSub例:标签的字体字形设置.Caption属性.边框.透明设置PB06PB07例:标签中字形、字体、字号的设置PrivateSubLabel1_Click()Label1.Caption=“信息管理Label1.Parent.FontName=华文行楷Label1.FontSize=40Label1.FontItalic=True'斜体Label1.FontUnderline=True'加下画线Label1.Alignment=2'居中Label1.BorderStyle=0'无边框Label1.BackStyle=0'透明Label1.ForeColor=RGB(255,0,0)'设置前景(字符)为红色EndSub6.1.2文本框（Text)文本框是一个文本编辑区，一般用于在程序的运行中输入、编辑和显示文本。文本框控件的图标为文本框的默认名称为TextX，其中“X”为建立文本框先后顺序的序号。如对象名：Text1、Text2等。6.1.2文本枉的属性一、Text的通用属性：Text显示在文本框中的字符（无Capation属性）Name对象名称Enabled是否有效(true有效清晰显示，false无效灰色显示)Visible是否可见(true可见false隐藏)FontBold粗体FontItalic斜体Fontname字体名Fontsize字大小FontUnderline下画线Height高度Width宽度Left左边矩Top上边矩二、文本框的其也属性1.外观属性BackColor背景色ForeColor前景(字符)色BorderStyle标签的边框0无边框（默认）1有边框6.1标签的属性前景色、背景色、有边框和无边框的设置效果MaxLength允许最大字符数0允许32k多行文本(默认)Multiline设置本文是否换行True允许多行文本False不允许换行Scrollbars为文本框设置滚动条0无滚动条1只有水平滚动条2只有垂直滚动条3同时有水平和垂直滚动条2.文本显示方式三、文本框的事件和方法1.文本框的事件Clisk单击文本框时触发该事件Change向文本框中输入字符或改变或新设置文本框的属性都可触发该事件.GotFocus当焦点进入文本框时触发该事件LostFocus当文本框失去焦点时触发该事件2.文本框常用方法:SetFocus[对象.]SetFocus将光标移到指定的文本框中6.1文本控件PrivateSubCommand1_Click()Command1.Move200,8000,1500,700Command2.Move200,9000,1500,700Text1.FontName=华文行楷:Text1.FontSize=20Text1.Text=长安一片月，万户捣衣声。秋风吹不尽，总是玉关情。何日平胡虏，良人罢远征。+明朝驿使发，一夜絮征袍。素手抽针冷，哪堪把剪刀。裁缝寄远道，几日到临洮。EndSubPrivateSubText1_Change()‘Text1的Change事件Text2.FontName=华文行楷:Text2.FontSize=20Text2.BorderStyle=0Text2.Text=Text1.TextEndSubPB09例：命令按钮的移动定位，文本框的字体、字形设置，Text属性PrivateSubCommand1_Click()Text1.FontSize=20Text1.Text=McrosoftVisualBasicEndSubPrivateSubText1_Change()‘文本框的Change事件Text2.FontSize=20Text2.Text=LCase(Text1.Text)Text3.FontSize=20Text3.Text=UCase(Text1.Text)EndSubPrivateSubCommand2_Click()EndEndSub6.1文本控件程序PA03例：Change事件，字体字号设置例：文本框的Change事件、Text属性、BorderStyle属性PrivateSubCommand1_Click()Text1.FontName=华文行楷:Text1.FontSize=20Text1.Text=“长安一片月，万户捣衣声。秋风吹不尽，总是玉关情。何日平胡虏，良人罢远征。明朝驿使发，一夜絮征袍。素手抽针冷，哪堪把剪刀。裁缝寄远道，几日到临洮。EndSubPrivateSubText1_Change()Text2.FontName=华文行楷:Text2.FontSize=20Text2.BorderStyle=0Text2.Text=Text1.TextEndSubPrivateSubCommand2_Click()EndEndSubPB09Text1Text2PB09PrivateSubCommand1_Click()EndEndSubPrivateSubText1_Change()MultiLine=True‘接受多行文本ScrollBars=3‘设置滚动条Text1.FontSize=24Text1.PasswordChar=“*”‘输入的字符显示为*Text2.FontSize=24Text2.BackColor=RGB(200,250,150)Text2.Text=Text1.Text‘Text1文本复制到Text2中EndSub例：设置输入的字符的显示字符.Text.PassWordChar=*PB02PrivateSubScore_LostFocus()x=Val(Score.Text)FontSize=20:Text1.FontSize=20Text2.FontSize=20:Text3.FontSize=20Ifx0Orx100ThenScore.Text=Score.SetFocusText1.ForeColor=RGB(255,0,0)Text1.Text=请重新输入！ElseText1.Text=xs=s+x:Text2.Text=sn=n+1:Text3.Text=Format(s/n,###.#0)Score.Text=“EndIfEndSubScore6.1文本控件PD07例：Text的SetFocus属性、事件，Text与Lable的作用四、Lable与Text作用和用法比较PD07图中用白线圈出的部分均Lable,用红线圈出的部分均Text,1.作用:在程序运行中不变的字符应放在标签中.变动的内容放在Text中.2.用法Lable中的字符用Caption属性实现:Text中的内容用Text属性实现例如:Lable1.Caption=“请输入成绩:”Text1.Text=Score6.2图形控件6.2图形控件------Image和PictureBox6.2.1图片框与图像框一、图片框与图像框的比较1.图片框是容器,图像框则不是.2.图片框可以通过Print接改文本,图像框则不能。3.图像框有Stretch属性图片框则无此属性图片框有Autosize属性,图像框无此属性4.图像框比图片框占用内存少,运行速度快5.图片框的默认名称为PictureX，图像框图为ImageX.PictureBox图片框图标Image图像框图标6.2图形控件二、图片框和图像框的通用属性NameHeightWidthLeftTopFontBoldFontItalicFontNameFontSizeFontUnderlineEnabledVisibleAutoRedraw6.1图形控件三、图像框的Stretch属性与图片框的Autosize属性1.图像框的Stretch属性Image1.Stretch=True图形自动调整其大小,以与图像框匹配Image1.Stretch=Falsr图形不能调整其大小图片框无此属性.2.图片框的Autosize属性Picture1.Autosize=True图像框自动调整其大小,以与图形匹配Picture1.Autosize=Falsr图像框不能调整其大小图像框无此属性.PrivateSubPicture1_Click()Picture1.FontSize=16Picture1.FontName=黑体Picture1.AutoSize=TruePicture1.Print图片框通过print接收文本EndSubPrivateSubPicture2_Click()