VB第4章-常用控件.ppt

4.7 计时器控件 例：在窗体上添加图片框、计时器及标题分别为“开始”、“停止”的命令按钮。单击“开始”按钮，图片框每隔1秒钟向右移动50。单击“停止”按钮，图片框停止移动。 为实现图片框的移动，添加计时器控件。程序运行时，计时器控件不显示在窗体上，因此计时器控件在窗体上的位置对程序没有影响。 对象 属性 设置 图片框 (名称) Picture1 Picture e:\yuanVB\trophy.wmf 计时器 (名称) Timer1 Interval 1000 Enabled False 命令按钮1 (名称) cmdStart Caption 开始 命令按钮2 (名称) cmdStop Caption 停止 4.7 计时器控件 属性窗口中，计时器控件的Enabled属性被设置为False，也就是说程序开始运行时，计时器控件是不可用的。 当单击“开始”按钮时，计时器控件Enabled属性被设置为True，计时器控件才开始工作，按照设定的时间间隔触发Timer事件过程。 Private Sub cmdStart_Click() Timer1.Enabled = True End Sub 4.7 计时器控件 计时器控件的Interval属性：设置时间间隔，时间单位是毫秒。 本题将该属性设置为1000，即时间间隔为1秒，每隔1秒钟就会触发计时器的Timer事件过程。 Private Sub Timer1_Timer() Picture1.Left = Picture1.Left + 50 End Sub 单击“停止”命令按钮时，触发cmdStop_Click事件过程，将计时器控件的Enabled属性设置为False，使之不可用。 Private Sub cmdStop_Click() Timer1.Enabled = False End Sub 本章结束了！ 4.1.3字体与字型的控制 FontSize属性用于设置字体的大小。分别单击“14磅”、“18磅”命令按钮，可以将字号改为14磅或18磅。代码如下： Private Sub cmdFontSize1_Click() txtText.FontSize = 14 End Sub Private Sub cmdFontSize2_Click() txtText.FontSize = 18 End Sub 4.1.3字体与字型的控制 设置文本框文本显示风格的属性： FontItalic属性用来设置字体输出的形式是否为斜体，它有两种选择，属性值为True（-1）为斜体，属性值为False(0)不是斜体。 FontUnderline属性用来设置是否为输出的文本加下划线，有两种选择，属性值为True（-1）加下划线，属性值为False（0）不加下划线。 FontBold属性用来设置字体是否为粗体，如果属性值设置为True（-1），输出的字体为粗体，属性值设置为False（0），输出的字体不为粗体。 4.2使用标签控件显示字符信息 标签控件的作用是按指定格式显示文字信息，往往用做说明或提示。 例如，修改例题，将其中的运算符“+”和运算结果改用标签显示。如图 4.2使用标签控件显示字符信息 使用标签为每个文本框加上说明,各对象以及其属性设置如表 标签的BorderStyle属性用于设定标签是否有边界。 对象 属性 设置 窗体 （名称） Form1 Caption 标签使用 文本框1 （名称） txtOp1 Text ? 文本框2 （名称） txtOp2 Text ? 标签1 （名称） lblOp1 Caption 被加数 BorderStyle 0 标签2 （名称） lblOp2 Caption 加数 BorderStyle 0 标签3 （名称） lblOp3 Caption + BorderStyle 0 标签4 （名称） lblOp4 Caption 结果 BorderStyle 0 标签5 （名称） lblResult Caption ? BorderStyle 1 命令按钮1 （名称） cmdAdd Caption = 命令按钮2 （名称） cmdClear Caption 清除 命令按钮3 （名称） cmdExit Caption 退出 4.2使用标签控件显示字符信息 文本框1和文本框2是用来输入运算数的。运算结果显示在标签控件。事件过程如下： Private Sub cmdAdd_Click() Dim op1 As Integer, op2 As Integer Dim Sum As Integer op1 = Val(txtOp1.Text) op2 = Val(txtOp2.Text)