vb第14文本输入输出控件..doc

4.3~4.4　文本输入输出控件 2 1、掌握文本输入输出控件标签和文本框的设置与使用 2、掌握文本框的设置与使用 标签和文本框的设置与使用 标签、文本框的使用 10 9 　 15 复习 评讲单元测试部分难题。 新课 4.3　文本输入输出控件－－标签和文本框 一、标签和文本框简介 1、标签：只能显示文本，不能进行编辑 　与有些没有自己的标题（Caption）属性的控件（如TextBox）配合使用。 2、文本框：既可显示文本，又可输入文本 二、标签（Lable） 1、标签属性 Caption属性：标签框中显示的内容 BorderStyle :设置边界式样（1---有、0---无） Autosize：标签框的大小是否能根据内容自动改变尺寸 WordWrap：是否根据内容自动改变垂直方向的大小。(此时AutoSize也应设置为True) Alignment属性：确定标签中标题的放置位置。 BackStyle属性:用于设定标签的背景模式。 2、标签的事件与方法 虽然标签能响应绝大多数的事件，但在实际编程中不常使用。标签常用的方法是Move方法，其语法格式为： [〈对象名〉.] Move left[, top[, width[, height]]] 3、标签的使用 标签是Visual Basic中显示文本信息的主要控件。利用标签透明的特点，还可用来设计动态文字。 例1：编写代码实现图示功能 Private Sub Command1_Click() Label1.BorderStyle = 1 Command2.Visible = False End Sub Private Sub Command2_Click() Label1.BorderStyle = 0 Command1.Visible = False End Sub Private Sub Command3_Click() Label1.BackStyle = 0 Command4.Visible = False End Sub Private Sub Command4_Click() Label1.BackStyle = 1 Command3.Visible = False End Sub 例2：利用两个标签制作阴影文字效果。（在属性框口，backstyle设置为0透明） Private Sub Command1_Click() Label1.BackStyle = 0 Label2.BackStyle = 0 Label1.FontSize = 30 Label1.ForeColor = QBColor(8) Label2.FontSize = 30 Label2.ForeColor = QBColor(12) Label1.Top = Label2.Top + 40 设置阴影较文字向下偏移20 Label1.Left = Label2.Left + 40 设置阴影较文字向右偏移20 End Sub 备注：qbcolor(0~15); BackStyle， FontSize一样，forecolor颜色不一样， 二、文本框（TextBox） 文本框可以由用户输入或显示文本。缺省时，文本框只能输入单行文本，并且输入的字符最多为2048个。若将控件的MultiLine属性设置为True，则可以输入多行文本，并且文本的内容可多达32KB。 1. 文本框的属性 Text　文本框中包含的文本内容。 MultiLine　True、False 该属性值为True时可以接收多行文本。 ScrollBars 0、1、2、3 PassWordChar ?　指定显示在文本框中的替代符，如 “*”号等。MaxLength　指定显示在文本框中的字符数，超出部分不接收，并同时发出嘟嘟声。 Locked　True、False　决定控件是否可编辑。 2. 文本框的事件 1）最常用的是Change（改变）事件 Change事件当用户改变正文或通过代码改变Text属性的设置时发生。 例：单位发工资，设某职工应发工资x元，试求各种票额钞票总张数最少的付款方案。 分析：可以从最大的票额（100元）开始，算出所需的张数，然后在剩下的部分算出较小票额的张数，直到最小票额（0.1元）。 Private Sub Text1_Change() Dim x As Integer, y As Integer Dim a As Single, b As Single, z As Single a = Val(Text1.Text) a为实发工资数 x = Fix(a) x为工资的整数部分 b = a - x b为工资的小数部分 y =