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

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

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

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

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

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

第六章第一节文本控件 一、标签(Label) 用于显示一段文本信息。 一般用于标识没有Caption属性的控件,给它们加上一个标题,或显示一段正文(如安装信息)或其它一些不想让用户修改的信息,它的长度最长可设为1024字节。 在工具箱中的标签控件是按钮。1、主要属性 ①、名称属性(Name):前缀Lbl。 ②、标题属性(Caption):设置显示在标签上的文本。 ③、对齐属性(Alignment):用来设置标签上文本的对齐方式,有左对齐、右对齐和中对齐三种;系统默认使用左对齐方式: 0——代表左对齐 1——代表右对齐 2——代表中对齐。④、自动缩放属性(Autosize):用于设置标签的大小是否随显示文本的多少自动进行调整; 如果被设置为True,则自动进行调整; 系统默认设置为False。 ⑤、边框属性(BorderStyle):设置标签的边框类型:0代表标签无边框,1代表有一条线的边框; 配合Appearance(外观属性:平面、立体)的设置可以具有三维效果(如同一个文本框)。⑥、文本卷绕属性(WordWrap)(自动换行属性):用来决定AutoSize属性为True的Label控件超过宽度的文本的扩展方式; True——垂直扩展False——水平扩展 设置此属性的语句是: LblText.WordWrap=True或False。 2、常用的事件 一般情况下,从标签扮演的角色来谈,不需要通过某种操作产生什么事件,不写事件代码; 当然严格地讲,也可以有它的事件: 鼠标单击事件(Click) 鼠标双击(DblClick) 鼠标移动事件(MouseMove)。二、文本框 用于显示和输入文本。 1、常用属性: ①、名称属性(Name):名称前缀为TXT; ②、文本属性(Text):是显示在文本框中的文本内容。 ③、长度限制属性(MaxLength):用来设置用户在文本框中输入的字符串的最大长度;系统默认此设置为0,表示文本输入的最大长度在文本框所能容纳的字符数之内没有限制; 在数据库程序中一般应设置为一个具体设置,如用户登陆输入框中的用户名总不能无限长。 文本框所能容纳的字符数是32K. ④、多行属性(MultiLine):用来设置文本框是否能显示或输入多行文本。⑤、密码字符属性(PassWordChar):用指定的字符代替输入到文本框中的文本,起到屏蔽输入回显的功能; 一般用户输入的密码是不能显示的。⑥、滚动条属性(ScrollBar):MultiLine为True的前提下,用来设置是否需要附带滚动条; 0——不添加滚动条(默认) 1——添加水平滚动条 2——添加垂直滚动条 3——同时添加水平和垂直滚动条 当MultiLine设为True时,才能设置滚动条属性。当MultiLine设为False时,不论ScrollBar为何值,都不会出现滚动条。⑦、选择属性(SelText):用于返回或设置包含当前所选中文本的字符串;(选中的目的) 使用剪贴板的SetText方法将文本框中选中的文本复制到剪贴板: Clipboard.SetTextText1.SelText 通过重新设置文本框的SelText属性实现粘贴操作: Text1.SelText=Clipboard.GetText⑧、SelStart:返回被选文本第一个字符的位置,也可用于设置欲选文本第一个字符的位置。 SelStart属性是一个数字,指示文本串内的插入点,其中0表示最左边的位置,往后依次为1,2,3……。如为0,则从第一个字符开始被选中。 ⑨、SelLength:用于设置从SelStart开始的欲选文本的长度,或者返回被选文本的长度。 ⑩、只读属性(Locked) 用于阻止用户改变文本框的内容,用户只可以看文本而不能改变它。 为True,则不能修改。 默认为False。2、主要事件 支持鼠标单击、双击、按下、弹起等事件,除此以外,还有下列常用事件。 ①、文本改变事件(Change) 是默认事件;当文本框中的文本被改变时,就会产生这个事件。 ②、获得焦点事件(GetFocus) 当用户用Tab健或鼠标单击文本框使其获得焦点后,将会发生这个事件。③、失去焦点事件(LostFocus) 当用户用Tab健或鼠标单击选择了其它的控件后,文本框将会失去焦点,发生这个事件 ④、键盘事件 主要有:keydown——按下事件、keyup——弹起事件和kepress——按键事件。事件过程的形式为: PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger) <语句> EndSub例如,如果希望将文本框中的所有字符都强制转换为大写字符,则可在输入时使用此事件转换大小写: PrivateSubText1_KeyPress(KeyAscii