【答案解析】[解析]
时钟控件作用是以一定的时间间隔激发计时器事件(Timer)而执行相应程序代码,Interval属性决定时间间隔的长短,以毫秒为单位,所以要改变两个图片交替的速度可将滚动框的Value值赋值给Interval属性即可:当时钟控件的
Enabled属性为True时,时钟控件才起作用,当为False时该控件不起作用。所以要使开始的时候图片不改变,将Timer控件的Enabled属性设置为False,单击命令按钮要使图片开始改变时,将时钟控件的Enabled属性设置为True;程序运行时用
LoadPicture()方法在图形框里装入图形,其格式为:
图形框.Picture=LoadPicture(图形文件名)。解题步骤:
第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表12-3。
表 12-3
控 件 |
属 性 |
设 置 值 |
按纽 |
Name Caption |
C1 开始 |
图象框 |
Name |
Image1 |
计时器 |
Name |
Timer1 |
滚动框 |
Name |
HScroll1 |
第二步:编写程序代码。
程序提供的代码:
Private
Sub C1_Click()
Timer1.Enabled=True
End Sub
Private Sub
HScroll1_Change()
'Timer1.?=1000-HScroll1.?
End
Sub
Private Sub Timer1_Timer()
Static i As Integer
If
i=0
Then
'Image1.Picture=?("2.ico")
i=1
Else
'Image1.Picture=?("1.ico")
i=0
End
If
End Sub
参考代码:
Private Sub
C1_Click()
Timer1.Enabled=True
End Sub
Private Sub
HScroll1_Change()
Timer1.Interval=1000-HScroll1.Value
End
Sub
Private Sub Timer1_Timer()
Static i As Integer
If
i=0
Then
Image1.Picture=LoadPicture("2.ico")
i=1
Else
Image1.Picture=LoadPicture("1.ico")
i=0
End
If
End Sub
第三步:调试并运行程序。
第四步:按题目要求存盘。
(2) [解析]
在窗体上建立好控件后,先设置控件属性,再编写事件过程。
按钮标题由Caption来设置;在“属性”窗口中通过Picture属性来设置图像框的图片。控件的大小由Width属性和Height属性来设置,Width决定控件的宽,Height决定控件的高度,可在属性窗口中直接设置,也可在程序运行中用代码来设置。
解题步骤:
第一步:建立界面并设置控件属性。程序中用到的控件及其属性设置见表12-4。
表 12-4
控 件 |
属 性 |
设 置 值 |
按钮 |
Name Caption |
C1 放大 |
按钮 |
Name Caption |
C2 缩小 |
图像框 |
Name |
Image1 |
第二步:编写程序代码。
程序提供的代码:
Private Sub C1_Click()
If Image1.Height <3000 Or Image1.Width<3000
Then
'Image1.Height=Image1.?+500
Image1.Width=Image1.Width+500
End
If
End Sub
Private
Sub C2_Click()
If Image1.Height>1000 Or
Imagel.Width>1000 Then
Image.Height=Image1.Height-500
'Image1.Width=Image1.Width ? 500
End
If
End Sub
参考代码:
Private Sub C1_Click()
If
Image1.Height<3000 Or Image1.Width<3000 Then
Image1.Height=Image1.Height+500
Image1.Width=Image1.Width+500
End If
End Sub
Private Sub C2_Click()
If
Image1.Height>1000 Or Image1.Width>1000 Then
Image1.Height=Image1.Height-500
Image1.Width=Image1.Width-500
End If
End Sub
第三步:调试并运行程序
第四步:按题目要求存盘