聂第2章-VB可视化界面设计.pptVIP

第2章 VB可视化界面设计 ;第2章 VB可视化界面设计 ;2.1 导学案例;设计步骤如下：;（2）编写事件过程代码如下：;说明：;本例中用到几个常用界面元素及其作用：;2.2 面向对象基本的概念 ;2.2.2 属性;对象属性的设置;2.2.3 事件、事件过程和事件驱动 ;1. 事件;2. 事件过程;VB事件过程的一般格式如下：;3. 事件驱动;对象、事件和事件过程之间的关系如下图所示：;2.2.4 方法;对象方法调用格式为：;2.2.5 控件;2.3 窗体和基本控件 ;2.3.2窗体;;1、窗体主要属性;2、窗体事件;【例2.2】窗体的Click、DblClick和Load事件以及Cls、Print方法和相关属性的使用。运行界面如图2-7所示。;属性设置：;例2.2程序代码如下：;例2.2 程序代码如下：;说明：;2.3.3 命令按钮控件CommandButton;;;2.2.4 标签控件Label;标签主要属性;2. 标签的方法 ;3. 标签的事件;【例2.3】 编写一个如图2-10所示的简易的键盘指法练习程序。单击“开始”按钮，进行指法练习，同时“开始”按钮变为“结束”按钮。字母在屏幕上向上移动，输入正确则会消失，同时随机产生新的字母。要求能统计正确率、击键次数和所用的时间。 ;（1）界面设计;（2）程序代码如下：;Private Sub Command2_Click() End End Sub Private Sub Form_KeyPress(KeyAscii As Integer) m = m + 1 统计击键次数 If Chr(KeyAscii) = Label1.Caption Then Label1.Caption = “”： n = n + 1 End If If Chr(KeyAscii) = Label2.Caption Then Label2.Caption = “”： n = n + 1 End If If Chr(KeyAscii) = Label3.Caption Then Label3.Caption = “”： n = n + 1 End If If Chr(KeyAscii) = Label4.Caption Then Label4.Caption = “”： n = n + 1 End If End Sub;Private Sub Timer1_Timer() Randomize If Label1.Caption = Then Label1.Top = Form1.ScaleHeight Label1.Caption = Chr(CInt(Rnd * 26) + 97) 随机产生一个小写字母 Else Label1.Top = Label1.Top - 20 End If If Label2.Caption = Then Label2.Top = Form1.ScaleHeight Label2.Caption = Chr(CInt(Rnd * 26) + 97) 随机产生一个小写字母 Else Label2.Top = Label2.Top - 20 End If ;If Label3.Caption = Then Label3.Top = Form1.ScaleHeight Label3.Caption = Chr(CInt(Rnd * 26) + 97) Else Label3.Top = Label3.Top - 20 End If If Label4.Caption = Then Label4.Top = Form1.ScaleHeight Label4.Caption = Chr(CInt(Rnd * 26) + 97) Else Label4.Top = Label4.Top - 20 End If If Label1.Top=0 Then Label1.Top = Form1.ScaleHeight If Label2.Top=0 Then Label2.Top = Form1.ScaleHeight If Label3.Top=0 Then Label3.Top = Form1.ScaleHeight If Label4.Top=0 Then Label4.Top = Form1.ScaleHeight End Sub;;2.3.5 文本框控件Text