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
===设计意图是PICTUREBOX里的图像随FORM的变化而变化。
但是，在FORM最大化时出了问题。
 RT，上面的代码基本偶实现了题目中问题，但是还有问题，我无法解决：当FORM最大化操作时，图像不能完全显示，只能显示一部分。求大神指点小菜鸟。
 同样的代码写在ResizeEnd，Paint，MaximumSizeChanged都无法解决。
 用户不能操作鼠标。


[ 本帖最后由 sjh桑 于 2014-3-14 08:10 编辑 ]