南邮 VisualBasic程序设计课件 ch ch选择结构设计学习指导书.pptVIP

图5.7 设置对象属性 (3) 编写事件代码。根据题中要求，当在“输入字符串”文本框中每输入一个字符键时，马上就进行判断，这就要求对“输入字符串”文本框对象Text1对应的KeyPress事件进行编程。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim aa As String * 1 aa = Chr$(KeyAscii) 将ASCII码转换成字符 Select Case aa Case A To Z aa = LCase(aa) 大写转换成小写 Case a To z aa = UCase(aa) 小写转换成大写 Case aa = Case Else aa = * End Select Text2.Text = Text2.Text aa 将转换文本框已有的内容与刚输入并转换的字符连接 End Sub 命令按钮Command1的Click事件代码为 Private Sub Command1_Click() Text1.Text = 清除文本框Text1的内容 Text2.Text = 清除文本框Text2的内容 End Sub 命令按钮Command2的Click事件代码为 Private Sub Command2_Click() Unload Me End Sub 程序运行结果如图5.8所示。 图5.8 大小写字母转换 5.5 计 时 器 控 件 计时器(Timer)控件能有规律地以一定的时间间隔激发计时器事件(Timer)而执行相应的事件代码。计时器控件在设计时显示为一个小时钟图标，而在运行时并不显示在屏幕上，通常用标签来显示时间。计时器控件的主要属性如表5-6所示。 表5-6 Timer控件的属性 【例5-14】 在窗体上建立数字计时器。 设计步骤如下： (1) 建立用户界面。在窗体上建立一个计时器控件和两个标签控件，如图5.9所示。 (2) 按表5-7所示设置对象属性。 图5.9 建立用户界面 表5-7 属性设置 图5.10 程序运行结果 (3) 编写事件代码。 编写计时器控件Timer1的Timer事件代码： Private Sub Timer1_Timer() Label2.Caption = Time$ End Sub 程序运行结果如图5.10所示。 5.6 选 择 性 控 件 5.6.1 单选钮 单选钮(OptionButton)的左边有一个“○”。一般来说，单按钮总是成组(单选按钮组)出现，用户在一组单选钮中必须选择一项，并且最多只能选择一项。当某一项被选定后，其左边的圆圈中出现一个黑点。单选钮主要用于在多种功能中由用户选择一种功能的情况。 【例5-15】 单选按钮用法示例。 设计步骤如下： (1) 建立应用程序用户界面和设置对象属性。在窗体中建立了两组单选钮，分别放在名称为“字体”和“字号”的框架中，如图5.11所示。 图5.11 建立用户界面和设置属性 (2) 编写事件代码。下面是该窗体中涉及的两个事件过程： Private Sub Command1_Click() If Option1.Value Then Text1.FontName = 宋体 Else Text1.FontName = 黑体 End If If Option3.Value Then 图5.12 单选钮程序运行结果 Text1.FontSize = 10 Else Text1.FontSize = 14 End If End Sub Private Sub Command2_Click() Unload Me End Sub 程序运行结果如图5.12所示。 4. 使用图形选项按钮 可以将单选钮设计成图形按钮的形式。 5.6.2 复选框 1. 复选框的常用属性 复选框的常用属性与单选钮基本相同，如复选框的Caption属性可以指定出现在复选框旁边的文本，而Picture属性用来指定当复选框被设计成图形按钮时的图像。 2. 复选框的使用 【例5-17】 用复选框控制文本输入是否加上