国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

 

最簡(jiǎn)單的方法，而且不用借助其他圖像控件：

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

Private Sub Form_Resize()
Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

在VB中我們常用到image控件來做適應(yīng)窗體大小的圖片
因?yàn)榭刂瓶丶拇笮『苋菀?br /> 并且image控件有Stretch=True的屬性可以設(shè)置
舉個(gè)例子
一個(gè)form  在里面加入image1控件（不是picture控件）
image1的圖片隨便載入一個(gè)
然后代碼寫成
Private Sub Form_Load()
Me.Image1.Stretch = True
End Sub

Private Sub Form_Resize()
Me.Image1.Top = 200: Me.Image1.Left = 200
Me.Image1.Width = Me.Width - 400: Me.Image1.Height = Me.Height - 400
End Sub

試試看