第3章+数据的输入与输出.pptVIP

【例3-7】有框和无框的标签，可在运行时改变标签的尺寸和内容，如图3-9所示。 图3-9 有框和无框的标签 编写命令按钮Command1的单击（Click）事件代码： Private Sub Command1_Click() Label1.Caption = 运行时改变标签的标题 Label2.Caption = 对于一个较长的或在运行时可能变化的标题， _ 标签控件提供了两种属性：AutoSize和WordWrap来改变 _ 控件尺寸以适应较长或较短的标题。 End Sub 【例3-8】利用标签制作阴影文字效果，如图3-11所示。单击“效果1”按钮后文字的阴影效果如图3-12（左）所示。单击“效果2”按钮后文字阴影的间距加大，如图3-12（右）所示。 图3-11 阴影文字效果 编写Command1的Click事件代码： Private Sub Command1_Click() Label1.Top = Label2.Top + 20 设置阴影较文字向下偏移20 Label1.Left = Label2.Left + 20 设置阴影较文字向右偏移20 End Sub 编写Command2的Click事件代码： Private Sub Command2_Click() Label1.Top = Label2.Top + 40 设置阴影较文字向下偏移40 Label1.Left = Label2.Left + 40 设置阴影较文字向右偏移40 End Sub 3.2 数据输入 在VB中，允许用户输入文本信息的最直接的方法是使用文本框。另外，还可以通过输入框，来实现信息的交流。 3.2.1 使用“文本框”控件 文本框（TextBox）是一种通用控件，可以由用户输入或显示文本。缺省时，文本框只能输入单行文本，并且输入的字符最多为2048个。若将控件的MultiLine属性设置为True，则可以输入多行文本，并且文本的内容可多达32KB。 1. 文本框的属性 文本框的主要属性见表3-10。 表3-10 文本框的属性 名称 取值 说明 Text 文本框中包含的文本内容。 MultiLine True、False 该属性值为True时可以接收多行文本。 Enabled True、False 决定控件是否可用。 ScrollBars 0、1、2、3 0 - 没有滚动条，1 - 水平，2 - 垂直，3 - 同时具有水平及垂直。 PassWordChar 指定显示在文本框中的替代符，如一串“*”号等。主要用于口令的输入。 MaxLength 指定显示在文本框中的字符数，超出部分不接收，并同时发出嘟嘟声。 Visible True、False 决定控件是否可见。 Locked True、False 决定控件是否可编辑。 【例3-9】输入球体的半径，然后计算并输出球体的体积和表面积，如图3-14所示。 图3-14 计算球的体积和表面积 分析：设球的半径为r，球体积和球表面积分别为：v和f，依题义可得计算公式： 、 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() Dim r As Single, v As Single, f As Single Const pi = 3.14159 r = Val(Text1.Text) v = 4 / 3 * pi * r ^ 3 : f = 4 * pi * r ^ 2 Text2.Text = v : Text3.Text = f End Sub 编写命令按钮Command2的Click事件代码： Private Sub Command2_Click() Unload Me End Sub 说明：代码r = Val(Text1.Text)中使用了转换函数Val()将文本框中的内容转换为数值型数据，以便处理。如果不转换，可能出现数据类型不匹配的情况。 2. 文本框的事件 文本框可以接受许多事件，其中最常用的是Change（改变）事件和GotFocus（得到焦点）事件。Change事件当用户改变正文或通过代码改变Text属性的设置时发生；而当控件接收焦点时，会引发GotFocus事件，当控件失去焦点时，会引发LostFocus（失去焦点）事件。 【例3-10】单位发工资，设某职工应发工资x元，试求各种票额钞票总张数最少的付款方案。 分析：可以从最大的票额（100元）开