实验七 窗体和常用内部控件实验七 窗体和常用内部控件.docVIP

实验七 窗体和常用内部控件（二） 一、实验目的 1、掌握VB常用控件的属性、常用事件和重要方法； 2、掌握事件过程的代码编写； 3、了解VB中的键盘事件、鼠标事件等过程的编写。 二、实验内容 1、验证实验。 2、程序设计一。 3、程序设计二。 三、实验指导 1、验证实验。 （1）在窗体Forml上设置标签控件Label1，时钟控件Timer，每过1秒钟标签Label1的背景颜色由红到蓝，由蓝到绿，再由绿到红循环变化，并自动修改标签Label1的Left，Top值使其从左上角沿窗体的对角线移动到窗体的右下角，如此往复从而实现动画，窗口布局如图7.1。（窗口最大化时观察程序运行情况） 图7.1 设计界面 参考代码 Dim flag As Integer Private Sub Form_click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Interval = 1000 Label1.Left = Left Label1.Top = Top Label1.BackColor = vbRed Timer1.Enabled = False End Sub Private Sub Timer1_Timer() If Label1.Left Left + Width And Label1.Top =