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

解决方案 »

  1.   

    好像有个属性,可以设置图片自适应,图片框大小,Picture1.AutoSize = True
    或者,
            PictureBox1.Height = Me.Height - 20
            PictureBox1.Width = Me.Width - 20
    这个下面,也加上
            图片的高= PictureBox1.Height-10
            图片的高= PictureBox1.Widtht-10试试看吧,自己估计的,没测试
      

  2.   

    图片加载的时候运行这个过程
    Private Sub Piclogo_Resize()
        If Piclogo = 0 Then Exit Sub
        Piclogo.PaintPicture Piclogo, Piclogo.ScaleLeft, Piclogo.ScaleTop, Piclogo.ScaleWidth, Piclogo.ScaleHeight
        DoEvents
    End Sub