VB常用标准控件(一)课件

1、表单的常用控件陈耀清摄于三亚西安工大北信经济、市营、国贸适用第1页，共44页。1.标签2.文本控件3.计时器4.命令按钮5.组合框6.单选钮7. 复选框陈耀清摄于太湖（2001年2月）8.微调按钮9.图像10.表格11.命令按钮组12.页框13.形状14.线条本章主要内容第2页，共44页。6.1文本控件Label和Text陈耀清摄于三亚海滨2003.8第3页，共44页。标签一般用于在程序的运行中显示不变的文本信息，常用来标注不具有Caption 特性的控件。 标签控件的图标为 标签的默认名称为LableX，其中“X”为建立文本框先后顺序的序号。如对象名：Lable1、Lable2等。标签的属性

2、可分为通用属性和其他属于性。其中通用属性是许多控件共同具有的属性。6.1.1 标签 Lable通用属性,实用于Lable Text(无Caption) Form command Pictrue image等控件 第4页，共44页。控件的的通用属性汇总如下：Caption 显示在对象上的字符 Name 对象名称FontBold 粗体FontItalic 斜体Fontname 字体名Fontsize 字大小 FontUnderline 下画线Height 对象的高度 Width 对象的宽度 Left 左边矩 Top 上边矩Backcolor 背景色Forecolor 前景色Enabled 是否有效

3、 (true 有效 false无效)Visible 是否可见 (true 可见 false隐藏)第5页，共44页。一、 标签（Lable) 的通用属性1.名称与标题 Name 名称 Caption 标题(给出标签中显示的文本). 2.大小和位置 Height 高度 Width 宽度 Lift 左边距 Top 顶边距6.1 标签的属性第6页，共44页。3.字体、字号和字形FontName 字体FontSize 字号FontBold 粗体FontItalic 斜体 FontUnderline 下画线Fontstirkethru 删除线6.1 标签的属性以上属性为通用属性,实用于Lable Text

4、(无Caption) Form command Pictrue image 第7页，共44页。二、 标签（Lable) 的其他属性1. 对齐方式与大小调整Alignment 0 左对齐显示 1 右对齐显示 2 居中显示Autosizr True 自动调整大小以容下标题 False 保持设计时的大小.超出字符不显示WordWrap True 在垂直方向改变大小与标题匹配 False 在水平方向改变大小与标题匹配6.1 标签的属性第8页，共44页。2. 外观属性Visible 对象可见不可见 TRUE 可见 False 不可见Enabled 对象有效 True 有效,清晰显示 False 无效,灰

5、色显示BackStyle 标签透明与不透明 0 透明 1 不透明（默认） BorderStyle 标签的边框 0 无边框（默认） 1 有边框6.1 标签的属性第9页，共44页。Private Sub Label1_Click() Label1.FontSize = 22 : Label1.FontName = 华文行楷 Label1.WordWrap = False 水平方向改变大小与内容匹配 BorderStyle = 0 :Label1.BackStyle = 0 无边框 标签透明 Label1.ForeColor = RGB(0, 0, 255) Label1.Caption = “风急

6、天高猿啸哀, 褚青沙白乌飞回。； 无边落木萧萧下, 不尽长江滚流来。 Label2.FontSize = 22 : Label2.FontName = 方正舒体 Label2.WordWrap = False BorderStyle = 0 : Label2.BackStyle = 0 Label2.ForeColor = RGB(255, 0, 0) Label2.Caption = “万里悲秋常作客, 百年多病独登台。； 艰难苦恨繁霜鬓, 潦倒新停浊酒杯。“ End Sub例:标签的字体字形设置.Caption 属性.边框.透明设置PB06第10页，共44页。PB07例:标签中字形、字体、

7、字号的设置Private Sub Label1_Click() Label1.Caption = “信息管理 Label1.Parent.FontName = 华文行楷 Label1.FontSize = 40 Label1.FontItalic = True 斜体 Label1.FontUnderline = True 加下画线 Label1.Alignment = 2 居中 Label1.BorderStyle = 0 无边框 Label1.BackStyle = 0 透明Label1.ForeColor = RGB(255, 0, 0) 设置前景(字符)为红色End Sub第11页，共4

8、4页。6.1.2 文本框（Text) 文本框 是一个文本编辑区，一般用于在程序的运行中输入、编辑和显示文本。 文本框控件的图标为 文本框的默认名称为TextX，其中“X”为建立文本框先后顺序的序号。如对象名：Text1、Text2等。6.1.2 文本枉的属性第12页，共44页。一、Text的通用属性：Text 显示在文本框中的字符（无Capation属性）Name 对象名称Enabled 是否有效 (true 有效清晰显示，false无效灰色显示)Visible 是否可见 (true 可见 false隐藏)FontBold 粗体FontItalic 斜体Fontname 字体名Fontsize

9、 字大小 FontUnderline 下画线Height 高度 Width 宽度 Left 左边矩 Top 上边矩第13页，共44页。二、文本框的其也属性1. 外观属性BackColor 背景色ForeColor 前景(字符)色BorderStyle 标签的边框 0 无边框（默认） 1 有边框6.1 标签的属性前景色、背景色、有边框和无边框的设置效果第14页，共44页。MaxLength 允许最大字符数 0 允许32k多行文本(默认)Multiline 设置本文是否换行 True 允许多行文本 False 不允许换行Scrollbars 为文本框设置滚动条 0 无滚动条 1 只有水平滚动条 2

10、 只有垂直滚动条 3 同时有水平和垂直滚动条2. 文本显示方式第15页，共44页。三、文本框的事件和方法1.文本框的事件Clisk 单击文本框时触发该事件Change 向文本框中输入字符或改变或新设置文本框的属性都可触发该事件.GotFocus 当焦点进入文本框时触发该事件LostFocus 当文本框失去焦点时触发该事件2.文本框常用方法:SetFocus 对象. SetFocus 将光标移到指定的文本框中6.1 文本控件第16页，共44页。Private Sub Command1_Click() Command1.Move 200, 8000, 1500, 700 Command2.Move

11、 200, 9000, 1500, 700 Text1.FontName = 华文行楷: Text1.FontSize = 20 Text1.Text = 长安一片月，万户捣衣声。秋风吹不尽，总是玉关情。何日平胡虏，良人罢远征。 + 明朝驿使发，一夜絮征袍。素手抽针冷，哪堪把剪刀。裁缝寄远道，几日到临洮。End SubPrivate Sub Text1_Change() Text1的Change事件 Text2.FontName = 华文行楷: Text2.FontSize = 20 Text2.BorderStyle = 0 Text2.Text = Text1.TextEnd SubPB0

12、9 例 ：命令按钮的移动定位，文本框的字体、字形设置，Text属性第17页，共44页。Private Sub Command1_Click() Text1.FontSize = 20 Text1.Text = Mcrosoft Visual Basic End SubPrivate Sub Text1_Change() 文本框的Change事件 Text2.FontSize = 20 Text2.Text = LCase(Text1.Text) Text3.FontSize = 20 Text3.Text = UCase(Text1.Text) End SubPrivate Sub Comma

13、nd2_Click() EndEnd Sub6.1 文本控件程序PA03例：Change事件，字体字号设置第18页，共44页。例：文本框的Change事件、Text属性、BorderStyle属性Private Sub Command1_Click() Text1.FontName = 华文行楷: Text1.FontSize = 20 Text1.Text = “长安一片月，万户捣衣声。秋风吹不尽，总是玉关情。何日 平胡虏，良人罢远征。明朝驿使发，一夜絮征袍。素手抽针冷，哪堪把剪刀。裁缝寄远道，几日到临洮。End SubPrivate Sub Text1_Change() Text2.Fon

14、tName = 华文行楷: Text2.FontSize = 20 Text2.BorderStyle = 0 Text2.Text = Text1.TextEnd SubPrivate Sub Command2_Click() EndEnd SubPB09第19页，共44页。Text1 Text2PB09第20页，共44页。Private Sub Command1_Click() EndEnd SubPrivate Sub Text1_Change() MultiLine = True 接受多行文本 ScrollBars = 3 设置滚动条 Text1.FontSize = 24 Text1

15、.PasswordChar = “*” 输入的字符显示为* Text2.FontSize = 24 Text2.BackColor = RGB(200, 250, 150) Text2.Text = Text1.Text Text1文本复制到Text2中End Sub例：设置输入的字符的显示字符. Text.PassWordChar=*PB02第21页，共44页。Private Sub Score_LostFocus() x = Val(Score.Text) FontSize = 20 :Text1.FontSize = 20 Text2.FontSize = 20: Text3.FontS

16、ize = 20 If x 100 Then Score.Text = Score.SetFocus Text1.ForeColor = RGB(255, 0, 0) Text1.Text = 请重新输入！ Else Text1.Text = x s = s + x: Text2.Text = s n = n + 1: Text3.Text = Format(s / n, #.#0) Score.Text = “ End IfEnd SubScore6.1 文本控件PD07例：Text的SetFocus属性、事件，Text与Lable的作用第22页，共44页。四、 Lable与Text作用和用

17、法比较PD07图中用白线圈出的部分均Lable,用红线圈出的部分均Text,1. 作用: 在程序运行中不变的字符应放在标签中. 变动的内容放在Text中.2. 用法Lable中的字符用Caption属性实现:Text中的内容用Text属性实现例如:Lable1.Caption=“请输入成绩:”Text1. Text=Score第23页，共44页。6.2图形控件6.2 图形控件 -Image和PictureBox第24页，共44页。6.2.1图片框与图像框一、图片框与图像框的比较1.图片框是容器,图像框则不是.2.图片框可以通过Print接改文本, 图像框则不能。3.图像框有Stretch属性图

18、片框则无此属性图片框有Autosize属性,图像框无此属性4.图像框比图片框占用内存少,运行速度快5.图片框的默认名称为PictureX，图像框图为ImageX.PictureBox图片框图标Image图像框图标6.2 图形控件第25页，共44页。二、图片框和图像框的通用属性NameHeightWidthLeftTop FontBoldFontItalicFontNameFontSizeFontUnderlineEnabledVisibleAutoRedraw6.1 图形控件第26页，共44页。三、图像框的Stretch属性与图片框的Autosize属性1.图像框的Stretch属性 Imag

19、e1.Stretch=True 图形自动调整其大小,以与 图像框匹配 Image1.Stretch=Falsr 图形不能调整其大小 图片框无此属性.2.图片框的Autosize属性 Picture1.Autosize=True 图像框自动调整其大小, 以与图形匹配 Picture1.Autosize= Falsr 图像框不能调整其大小 图像框无此属性.第27页，共44页。Private Sub Picture1_Click()Picture1.FontSize = 16Picture1.FontName = 黑体Picture1.AutoSize = TruePicture1.Print 图片

20、框通过print接收文本End SubPrivate Sub Picture2_Click()Picture2.AutoSize = TruePicture2.Picture = LoadPicture(L:PICP9.GIF)End SubPF09 Picture的Print属性和Autosize属性运行前（左）和运行后（右）的窗体第28页，共44页。4. Stretch属性（图像框的属性） True 自动调整图片的大小，以与图像框大小相符(左) Flase 不能调整图片大小(右)6.1 图形控件PB04第29页，共44页。PB04第30页，共44页。四、 图形文件的装入1.可装入图形控件的

21、图形文件的格式Bitmap 位图Icon 图标.扩展名为ico或curMetafile 图元文件,扩展名为WMF、EMFJPEG 压缩位图格式，扩展名为JPGGIF 压缩位图格式,扩展名为GIF第31页，共44页。(1)通过属性窗口的Picture设置，将选定的图形文件装入图像框、图片框、窗体中。(2)将剪切板中的图片贴粘到图片框或图片中去.(3)在运行期间装入图形文件。格式为: 对象. Picture=LoadPicture(“文件名”)“文件名”包括路径、文件名和扩展名。缺省路径则为当前路径。例如：FM = “L:PICB2.BMPPicture1.Picture = LoadPictur

22、e(FM) 或：Picture1.Picture = LoadPicture( “L:PICB2.BMP) 2. 装入图片的一般方法第32页，共44页。Private Sub Command1_Click() EndEnd SubPrivate Sub HScroll1_Change() X = HScroll1.Value Text1.Text = X N = Trim$(Str$(X) FM = L:PICB + N + .BMP Picture1.Picture = LoadPicture(FM)End Sub 在文件夹“L:PIC“中存放有B1、B2、B10的BMP图形文件，拖动动滚动

23、条可依次观查这些图片。滚动条在本章稍后介绍。6.1 图形控件PE01第33页，共44页。Private Sub Command1_Click() Image1.Picture = LoadPicture(l:picp4.gif) Image2.Picture = LoadPicture(l:picp6.gif)End SubPrivate Sub Timer1_Timer() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.Picture Image3.Picture

24、 = LoadPicture()End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Command1_Click() Image1.Picture = LoadPicture(l:picp4.gif) Image2.Picture = LoadPicture(l:picp6.gif)End SubPrivate Sub Timer1_Timer() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.Pict

25、ure Image3.Picture = LoadPicture()End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Command1_Click() Image1.Picture = LoadPicture(l:picp4.gif) Image2.Picture = LoadPicture(l:picp6.gif)End SubPrivate Sub Timer1_Timer() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Pic

26、ture = Image3.Picture Image3.Picture = LoadPicture()End SubPrivate Sub Command2_Click() EndEnd Sub例：两图片框定时交换图片(据例6.4修改)PD01第34页，共44页。Private Sub Command1_Click() If Image1.Visible = True Then Image1.Visible = False 不可见 Image2.Visible = True 可见 ElseIf Image2.Visible = True Then Image2.Visible = False

27、 Image3.Visible = True Else Image3.Visible = False Image1.Visible = True End If End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Image2.Visible = False Image3.Visible = FalseEnd Sub 命令按钮按下时，按钮中出现图片，这一方法稍后介绍。6.3 按钮控件PF02 例图像框可见与不可见第35页，共44页。五、当前坐标的设置设置格式: 对象.CurrentX=X 对象.Current

28、Y=Y对象可以是窗体、图片框和打印机。缺省对象为窗体；缺省=X 、=Y为返回当前坐标。默认坐标单位为缇(tiwp)6.1 图形控件第36页，共44页。6.2.2 直Line和形状Shape一、直线Line的属性：Name 直线的名称Visible 可见与不可见 (X1,Y1) (X2,Y2) 直线的起点坐标、终点坐标BorderColor 直线的颜色BorderStyle 线型 0透明 1 实线 2 虚线 3点线 4 点划线 5 双点划线 6 内实线BorderWidth 直线的宽度第37页，共44页。二、形状Shape的属性：Name Visible Height Width Top Lef

29、tBorderColor 形状边界线的颜色BorderWidth 形状边界线的宽度BorderStyle 形状边界线的线型 0透明 1 实线 2 虚线 3点线 4 点划线 5 双点划线 6 内实线BackStyle 0形状透明 1 形状可被选定的颜色填充BackColor 指定形状内部的填充色第38页，共44页。Fillstyle 选择形状的填充图案 格式： Fillstyle=X X=07间的整数Shape 设置形状图形 格式：Shape1. Shape=X X=05间的整数第39页，共44页。Private Sub Command1_Click()EndEnd SubPrivate Sub

30、 Form_Paint()For i = 0 To 7 FillStyle = i Line (1400 * i, 1150)-(1400 * i + 900, 2050), , B CurrentY = 2300 CurrentX = 1400 * i Print 填充式样; iNext iEnd SubPB08Shape的FillStyle属性第40页，共44页。PE08Private Sub Command1_Click() Shape1.Shape = 0： Shape2.Shape = 1 Shape3.Shape = 2： Shape4.Shape = 3 Shape5.Shape = 4： Shape6.Shape = 5 FontSize = 16 a = Shape2.Left - Shape1.Left F