欧美成人精品手机在线观看_69视频国产_动漫精品第一页_日韩中文字幕网 - 日本欧美一区二区

 

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

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)窗體大小的圖片
因為控制控件的大小很容易
并且image控件有Stretch=True的屬性可以設(shè)置
舉個例子
一個form  在里面加入image1控件（不是picture控件）
image1的圖片隨便載入一個
然后代碼寫成
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

試試看