如题Private Sub Form_Resize()End SubpictureBox 里的图像 怎么让图片随窗口变化而变化怎么让图片随窗口变化而变化

解决方案 »

  1.   

    好的谢谢猴哥,我以为picturebox也能做的
      

  2.   

    picturebox是可以的,看下面这个(里面5楼我写的这个):
    http://topic.csdn.net/u/20080910/20/1ab23882-3cb0-49dc-9b86-eb169e58a823.html
      

  3.   

    PictureBox是可以的,调节窗体的大小时也调节PictureBox的大小,同时也可使用StretchBlt函数来改变图片的大小。
      

  4.   

    Dim Pic As StdPicture
    Private Sub Form_Load()
       Picture1.AutoRedraw = True
       Picture1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
       Set Pic = LoadPicture("c:\test.jpg")
       Picture1.PaintPicture Pic, 0, 0, Me.ScaleWidth, Me.ScaleHeight
    End SubPrivate Sub Form_Resize()
       Picture1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
       Picture1.PaintPicture Pic, 0, 0, Me.ScaleWidth, Me.ScaleHeight
    End Sub