实验报告
姓名顾晓雪班级0914101 学号01 组别实验日期：2011-12-16 课程名称：VB程序设计基础同实验者指导教师：汤彬成绩：
验名称：综合实验（十二）－定时器与图形、图像控件的应用
1．实验目的：
1）掌握定时器控件的使用方法，掌握在应用程序中鼠标事件和键盘事件的使用方法；
2）掌握图片框控件和图像框控件的区别及其二者的使用方法，掌握图形控件的使用方法。

2．实验内容：
1）建立一个应用程序，编写一个模拟数字机的程序。

单击“点击”按钮时，生成一个随机数，若这个数为7，则在图像框控件(Image1)显示一幅图片，当单击“结束”按钮时终止程序。

运行界面如图1所示。

2）建立一个应用程序，编写一个程序，在窗体上显示不同的形状和填充图案。

程序布局界面如图2所示。

提示：使用图形控件Shape，来显示框架内的单选按钮所要的形状和填充图案。

单选按钮OptionButton可使用数组控件方式，（p59例3_10）形状和填充图案由Shape和FillStyle 这两个属性决定。

3）建立应用程序，编写简单动画演示程序。

程序布局界面如图3所示。

程序要求：
⑴单击“START”按钮，飞碟移动，再次单击“START”按钮能使飞碟暂停或继续移动。

⑵通过滚动条可以调整飞碟移动的速度。

⑶图片框中加载飞碟的图形文件也可以自己选择其他图形文件。

3.设计和分析
1 2.
3.
4.代码设计
1. Private Sub Command1_Click()
Image1.Visible = False '隐藏图像
Label1.Caption = Int(Rnd * 8) '获得随机数
If (Label1.Caption = 7) Then Image1.Visible = True End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Randomize
End Sub
2. Private Sub Combo1_Click()
Select Case Combo1.Text
Case "兰色"
Shape1.BackColor = vbBlue
Case "红色"
Shape1.BackColor = vbRed
Case "黄色"
Shape1.BackColor = vbYellow
Case "绿色"
Shape1.BackColor = vbGreen
Case "白色"
Shape1.BackColor = vbWhite
Case "黑色"
Shape1.BackColor = vbBlack
End Select
End Sub
Private Sub Combo2_Click()
Select Case Combo2.Text
Case "兰色"
Shape1.FillColor = vbBlue
Case "红色"
Shape1.FillColor = vbRed
Case "黄色"
Shape1.FillColor = vbYellow
Case "绿色"
Shape1.FillColor = vbGreen
Case "白色"
Shape1.FillColor = vbWhite
Case "黑色"
Shape1.FillColor = vbBlack
End Select
End Sub
Private Sub HScroll1_Change()
txtH.Text = HScroll1.V alue
Shape1.Width = HScroll1.Value
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Option1_Click(Index As Integer) Select Case Index
Case 0
Shape1.Shape = 0
Case 1
Shape1.Shape = 1
Case 2
Shape1.Shape = 2
Case 3
Shape1.Shape = 4
End Select
End Sub
Private Sub Option2_Click(Index As Integer) Select Case Index
Case 0
Shape1.FillStyle = 2
Case 1
Shape1.FillStyle = 3
Case 2
Shape1.FillStyle = 6
Case 3
Shape1.FillStyle = 7
End Select
End Sub
3. Private Sub Command1_Click()
If Timer1.Enabled Then
Timer1.Enabled = False
Command1.Caption = "Continue"
Else
Timer1.Enabled = True
Command1.Caption = "Pause"
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub HScroll1_Change()
Timer1.Interval = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 40 '
If (Picture1.Left) > ScaleWidth Then
Picture1.Left = -3600
End If
'Image1.Left = Image1.Left + 30
End Sub
5.结果讨论
根据老师给的提示和书上的过程，很快就做好了3道题目，简单了解了picture和sharp 属性的运用。