第6章_常用控件课件.pptVIP

第6章 常用控件;本章内容;6.1.1 标签;6.1.2 文本框;6.1.2 文本框;2．文本框常用事件 （1）Change事件：当文本框的内容发生改变时触发的事件。例如，用户输入“ABC”时就会触发3次Change事件。 （2）KeyPress事件：当用户按下具有ASCII码值的键并释放时触发。 文本框的KeyPress事件的过程代码如下格式： Private Sub Text1_KeyPress(KeyAscii As Integer) ……. End Sub 其中括号内的参数KeyAscii就是所按键的ASCII码值，比如按下“A”键，KeyAscii为65 按下回车键，KeyAscii为13；但如果按下“Ctrl”（无ASCII码值）时，不会触发KeyPress事件。 注：当KeyAscii值为97时，表示“a”键；当KeyAscii值为48时，表示“0”键。当KeyAscii值为0时，表示空操作（取消操作）。 3．文本框常用方法 文本框最常用的方法是SetFocus，设置焦点。实现的功能是将光标移到指定的文本框。该方法往往用在将若干个文本框清空后，希望重新输入内容。可在清空文本框语句后，用上该方法。语法格式为： [对象.]SetFocus ;【例6-1】建立一个加法器的应用程序，运行效果如图6-1所示。 要求： a．窗体上有三个文本框，上面两个用于输入加数，单击“=”按钮，将两个数的和显示在下面一个文本框中。 b．三个文本框的对齐方式均为右对齐，设置相关属性使得下面一个文本框不能进行编辑操作。 c．设置相关属性使得上面两个文本框均不接受非数字键。 d．单击“清空”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。;程序代码如下： Private Sub Form_Load() 属性设置可在设计阶段属性窗口完成 Form1.Caption = 加法器 Text1.Text = Text2.Text = Text3.Text = Text1.Alignment = 1 文本框右对齐 Text2.Alignment = 1 Text3.Alignment = 1 Text3.Locked = True 第三个文本框不能编辑 End Sub Private Sub Command1_Click() Val()函数将文本类型转换为数值类型 Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus 文本框获得焦点 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) 用户输入非数字，则取消输入操作 If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub ;6.1.3 命令按钮;【例6-2】建立一个类似记事本的应用程序，运行界面如图6-2所示。 要求： a．设计4个命令按钮，分别实现对选中文本的“复制”、“剪切”、“粘贴”和“删除”功能； b．文本框Text1可以多行显示文字;代码如下： Dim str1 As String 通用变量 Private Sub Command1_Click() 复制 str1 = Text1.SelText End Sub Private Sub Command2_Click() 剪切 str1 = Text1.SelText Text1.SelText = End Sub Private Sub Command3_Click() 粘贴 Text1.SelText = str1 End Sub Private Sub Command4_Click() 删除 Text1.SelText = End Sub ;【例6-3】设计一个类似电灯开关的程序，界面如图6-3所示： 要求：运行时，显示图6-3左图；当单击“打印”按钮，窗体打印输出“欢迎使用VB”，同时