预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共44页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

6.1文本控件Label和Text标签一般用于在程序的运行中显示不变的文本信息,常用来标注不具有Caption特性的控件。 标签控件的图标为 标签的默认名称为LableX,其中“X”为建立文本框先后顺序的序号。如对象名:Lable1、Lable2等。 标签的属性可分为通用属性和其他属于性。其中通用属性是许多控件共同具有的属性。控件的的通用属性汇总如下:一、标签(Lable)的通用属性 1.名称与标题 Name名称 Caption标题(给出标签中显示的文本). 2.大小和位置 Height高度 Width宽度 Lift左边距 Top顶边距3.字体、字号和字形二、标签(Lable)的其他属性2.外观属性 Visible对象可见不可见 TRUE可见False不可见 Enabled对象有效 True有效,清晰显示 False无效,灰色显示 BackStyle标签透明与不透明 0透明1不透明(默认) BorderStyle标签的边框 0无边框(默认)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=False BorderStyle=0:Label2.BackStyle=0 Label2.ForeColor=RGB(255,0,0) Label2.Caption=“万里悲秋常作客,百年多病独登台。; 艰难苦恨繁霜鬓,潦倒新停浊酒杯。“ EndSubPB07例:标签中字形、字体、字号的设置6.1.2文本框(Text)一、Text的通用属性:二、文本框的其也属性 1.外观属性 BackColor背景色 ForeColor前景(字符)色 BorderStyle标签的边框 0无边框(默认) 1有边框MaxLength允许最大字符数 0允许32k多行文本(默认) Multiline设置本文是否换行 True允许多行文本 False不允许换行 Scrollbars为文本框设置滚动条 0无滚动条 1只有水平滚动条 2只有垂直滚动条 3同时有水平和垂直滚动条三、文本框的事件和方法PrivateSubCommand1_Click() Command1.Move200,8000,1500,700 Command2.Move200,9000,1500,700 Text1.FontName="华文行楷":Text1.FontSize=20 Text1.Text="长安一片月,万户捣衣声。秋风吹不尽,总是玉关情。何日平胡虏,良人罢远征。"+"明朝驿使发,一夜絮征袍。素手抽针冷,哪堪把剪刀。裁缝寄远道,几日到临洮。" EndSub PrivateSubText1_Change()‘Text1的Change事件 Text2.FontName="华文行楷":Text2.FontSize=20 Text2.BorderStyle=0 Text2.Text=Text1.Text EndSub PrivateSubCommand1_Click() Text1.FontSize=20 Text1.Text="McrosoftVisualBasic" EndSub PrivateSubText1_Change()‘文本框的Change事件 Text2.FontSize=20 Text2.Text=LCase(Text1.Text) Text3.FontSize=20 Text3.Text=UCase(Text1.Text) EndSub PrivateSubCommand2_Click() End EndSub例:文本框的Change事件、Text属性、BorderStyle属性Text1Text2PrivateSubCommand1_Click() End EndSub PrivateSubText1_Change() MultiLine=True‘接受多行文本 ScrollBars=3‘设置滚动条 Text1.FontSize=24 Text1.PasswordChar=“*”‘输入的字符显示为"*" Text2.FontSize=24 Text2.BackColor=RGB(200,250,150) Text2.Text=Text1.Text‘Te