Question

求一个用VB编写图片的程序,并且让该图片能够由小变大的显示出来!

比如说是一个地球,里面是中国地图,这种简单的线条图象

Answer 1

VB控制图片不是强项，下面的代码效果希望你能满意！ 

Private Sub Form_DblClick() 

Timer1.Enabled = True 

End Sub 

Private Sub Form_Load() 

Image1.Width = 400 

Image1.Height = 300 

Image1.Left = 0 

Image1.Top = 0 

Image1.Stretch = True 

Image1.Picture = LoadPicture(App.Path + "\百度知道.jpg") 

Timer1.Interval = 100 

Timer1.Enabled = False 

End Sub 

Private Sub Timer1_Timer() 

If Image1.Width < Form1.Width And Image1.Height < Form1.Height Then 

Image1.Width = Image1.Width * 1.02 

Image1.Height = Image1.Height * 1.02 

End If 

End Sub 

代码很简单，不解释了哈！

Answer 2

编写图片 太夸张了吧 自己写Photoshop
由小变大还能写
用image载入个图片，stretch属性改为true，建个timer，interval=500
用以下代码
Private Sub Timer1_Timer()
Image1.Width = Image1.Width + 100
Image1.Height = Image1.Height + 100
End Sub

Answer 3

用PaintPicture...