使用大小写转换函数设计程序,实现在文本框中输入英文字母,按“转大写”按钮,文本变为大写;按“转小写”按钮,文本变为小写。 提示: 本题主要使用大小写转换函数UCase( )和LCase( ),另外还用到了KeyUp(键抬起)事件。 设计步骤如下。 (1)建立应用程序用户界面,并设置对象属性。新建一个工程,进入窗体设计器,在窗体中增加一个标签Label1,一个文本框Text1和三个命令按钮Command1~Command3,参照图3-10设置各个对象的属性。 (a) (b) (c) 图3-10 大小写转换 (2)设计代码。 首先设计文本框的KeyUp事件代码,使得输入的字符存入文本框的Tag属性中: Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Text1.Tag = Text1.Text End Sub 编写命令按钮Command1的Click事件代码: Private Sub Command1_Click( ) Text1.Text = (Text1.Tag) End Sub 编写命令按钮Command2的Click事件代码: Private Sub Command2_Click( ) Text1.Text = (Text1.Tag) End Sub 编写命令按钮Command3的Click事件代码: Private Sub Command3_Click( ) Text1. = Text1. End Sub