Private Sub Form例題一2_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
PictureBox1.Height = Me.Height - 20
PictureBox1.Width = Me.Width - 20
Dim grfx As Graphics = PictureBox1.CreateGraphics
grfx.DrawImage(img, 0, 0, PictureBox1.Width, PictureBox1.Height)
End Sub
RT，上面的代碼基本偶實作了題目中問題，但是還,有問題，我無法解決：當FORM最大化操作時，影像不能完全顯示，只能顯示一部分。求大神指點小菜鳥。
同樣的代碼寫在ResizeEnd，Paint，MaximumSizeChanged都無法解決。
用戶不能操作滑鼠。
uj5u.com熱心網友回復：
換顯卡試試。uj5u.com熱心網友回復：
好像有個屬性，可以設定圖片自適應，圖片框大小，Picture1.AutoSize = True或者，
PictureBox1.Height = Me.Height - 20
PictureBox1.Width = Me.Width - 20
這個下面，也加上
圖片的高= PictureBox1.Height-10
圖片的高= PictureBox1.Widtht-10
試試看吧，自己估計的，沒測驗
uj5u.com熱心網友回復：
圖片加載的時候運行這個程序Private Sub Piclogo_Resize()
If Piclogo = 0 Then Exit Sub
Piclogo.PaintPicture Piclogo, Piclogo.ScaleLeft, Piclogo.ScaleTop, Piclogo.ScaleWidth, Piclogo.ScaleHeight
DoEvents
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/116744.html
標籤：控件