可在窗口上加一个PICTURE控件,然后选中picture1,再在PICTURE1中添加一个IMAGE控件。IMAGE1中的图片通过设置image1的picture属性添加。image1的宽度和高度的初始值设置为1(不能设置为0).然后再添加一个时间控件,在时间控件的TIMER事件中逐渐增加IMAGE1的高度和宽度,就有了图片逐渐放大的效果了。由此思路,你可以设置其它效果。下面是点击按钮后显示逐渐放大的程序: Private Sub Command1_Click() Timer1.Enabled = True End Sub
Private Sub Form_Load() Image1.Left = 0 Image1.top = 0 Image1.Height = 1 Image1.Width = 1 Timer1.Interval = 1 Timer1.Enabled = False End Sub
Private Sub Timer1_Timer() Static t As Integer t = t + 100 Image1.Width = t Image1.Height = t If Image1.Width >= Picture1.Width Then Timer1.Enabled = False End Sub