Visual Basic程序设计第5章 VB常用控件.pptVIP

5.3 实训指导 5.3.1 技能训练目的 ☆ 了解控件在程序中的作用。 ☆ 掌握常用内部控件的属性，事件和方法。 ☆ 熟练掌握常用内部控件的使用方法。 5.3.2技能训练内容 【实训5.1】能自动适应其内容的标签。建立如图5-1a界面，当单击“欢迎”按钮时，标签中显示“欢迎使用Visule Basic 6.0”，如图5-1b，当单击“日期”按钮时，标签中显示当前系统日期，如图5-1c。 图5-1a 图 5-1b 图 5-1c 参考代码： Private Sub Command1_Click() Label1.Caption = 欢迎使用 Chr(13) Visule Basic 6.0 End Sub Private Sub Command2_Click() Label1.Caption = 今天是： Chr(13) Chr(13) Year(Date) 年 Month(Date) 月 Day(Date) 日 End Sub Private Sub Command3_Click() Unload Me End Sub 【实训5.2】设计一个程序，窗体如图5-2所示。要求在“输人数据”框中输入一个数字。当单击“计算”命令按钮时，将输入的数据乘以100后显示在另一个标签框中。 图5-2 参考代码： 单击“计算”按钮时执行的事件过程： Private Sub Command1_Click() Dim pl As Single pl = Val(Text1.Text) Text2.Text = Str(pl * 100) End Sub 单击“退出”按钮时执行的事件过程： Private Sub Command2_Click() End End Sub 【实训5.3】文本框的密码。窗体上有两个标签框、一个文本框、两个命令按钮。在文本框中输入密码，然后单击“核对密码”命令按钮，如果密码不正确，显示“重新输入密码”的信息，如果输入了三次错误的密码，程序自动结束。密码正确，显示第二个窗体，窗体上的有“欢迎!”的文字。窗体外观如图5-3a和图5-3b所示。 窗体Forml及各控件的属性设置见表5-1 表 5-1 实训5.2的窗体及控件属性设置 对象 属性 设置 窗体 Caption 文本框密码 Name Forml 标签框1 Caption 请输入密码 Name Labell 文本框 PassWordChar * 命令按钮1 Caption 核对密码 Name Commandl 命令按钮2 Caption 退出 Name Command2 图5-3a 图5-3b 参考代码： Private Sub Command1_Click() Static counter As Integer password = Text1.Text If password = VisualBasic Then Form1.Hide Form2.Show Else If password VisualBasic Then counter = counter + 1 MsgBox 密码错误,请重新输入! Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) If counter = 3 Then End End If End If End If End Sub 单击“退出”按钮时执行的事件过程。 Private Sub Command2_Click() End End Sub 【实训5.4】设计一个电子倒计时器。先由用户给定倒计时的初始分秒数，然后开始倒计时，当计到0分0秒时，通过消息对话框显示“倒计时结束”。 设计界面及属性： 在窗体上建立一个计时器（Timer1）、两个标签、两个文本框（Text1和Text2）和一个命令按钮（Command1）,如图5-4所示。计时器采用默认的属性值，即Enabled属性值为True，Interval属性值为0。两个文本框Text1和Text2分别用于显示倒计时的分钟数和秒数。 图5-4 参考代码： Dim m As Integer, s As Integer 声明模块级变量 Private Sub Form_Load() Timer1.Interval = 1000 设置每隔1秒触发1次Timer事件 Timer1.Enabled = False 关闭计时器 End Sub Private Sub Comman