南邮VisualBasic程序的设计教学课件ch2VB语言基本.ppt

【例4-9】 在例4-8中使用命令关闭程序窗体，如图4.12所示。 图4.12 关闭程序窗体 只需在上例中增加一个命令按钮Command2(关闭)，并且编写Command2的Click事件代码如下即可： Private Sub Command2_Click() Unload Me Me表示按钮所在的窗体对象 End Sub 4.2.3 注释语句 Rem〈注释内容〉 或 〈注释内容〉 4.3 利用文本框进行数据输入 4.3.1 使用“文本框”控件 文本框(TextBox)是一个文本编辑区域，用户可以在该区域输入、编辑和显示文本内容。缺省时，文本框只能输入单行文本，并且输入的字符最多为2048个。若将控件的MultiLine属性设置为True，则可以输入多行文本，并且文本的内容可多达32K。文本框的主要属性如表4-6所示。 表4-6 文本框的属性 1. 使用文本框控件 文本框中显示的文本是受Text属性控制的。Text属性可以用以下3种方式设置： (1) 设计时在“属性”窗口进行设置。 (2) 运行时通过代码设置。 (3) 在运行时由用户输入。 【例4-10】 输入球体的半径，然后计算并输出球体的体积和表面积，如图4.13所示。 ? 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 (3) 编写事件代码。 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 2. 多行文本框 (1) MultiLine多行属性。 ScrollBars属性。 【例4-11】 应用MultiLine和ScrollBars属性，建立两个文本框。 表4-8 属性设置 (3) 编写事件代码。事件过程如下： Private Sub Form_Click() Text1.SelStart=0 将文本框Text1中的第1个字符前设为标识区的起点 Text1.SelLength=24 将整个标识区长度定为24 Text2.Text=Text1.SelText 被标识的字符串存入Text2中 End Sub 4.3.2 焦点与Tab键序 1. 焦点 焦点(Focus)就是光标，当对象具有“焦点”时才能响应用户的输入，因此对象也就具有了接收用户鼠标单击或键盘输入的能力。 2. Tab键序 TabIndex属性决定控件接收焦点的顺序，TabStop属性决定焦点是否能够停在该控件上。 4.3.3 使用“框架”控件 如同图片框一样，框架(Frame)控件是一种容器控件，在框架控件内部的控件可以随框架一起移动，并且受到框架控件某些属性(Visible、Enabled)的控制。 在多数情况下只需使用框架控件将其他控件分成可标识的控件组，而不必响应框架控件的事件。需要修改的可能是框架控件的Name、Caption或Font属性。 【例4-12】 在文本框中输入长、宽、高，求长方体的表面积，并输出。设长方体的长、宽、高为a、b、c，表面积为s。根据数学知识有： s