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 编辑 ]

既然这个img是存在的，那么就不要用PictureBox的Graphics对象来画嘛，直接设置PictureBox的Image属性或者BackgroundImage属性为img不就行啦。至于Pic随着窗体变化，直接设置Pic的Anchor属性为Top + Bottom + Left + Right就行了，或者直接设置Dock为Fill吧，一句代码都不要写的。