vb实验报告【DOC精选】.docVIP

实验名称：综合实验（十二）－定时器与图形、图像控件的应用掌握定时器控件的使用方法掌握在应用程序中鼠标事件和键盘事件的使用方法掌握图片框控件和图像框控件的区别及其二者的使用方法掌握图形控件的使用方法OptionButton可使用数组控件方式，（p59例3_10）形状和填充图案由Shape和FillStyle这两个属性决定。 3）建立应用程序，编写简单动画演示程序。程序布局界面如图所示。程序要求： 单击“START”按钮，飞碟移动，再次单击“START”按钮能使飞碟暂停或继续移动。 通过滚动条可以调整飞碟移动的速度。 图片框中加载的图形文件 3.设计和分析 12. 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.Value 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