Question

VB,Picture图片怎么才能实现随窗体变化而变化？

要简便一点的代码，打上注释。谢谢。

Answer 1

要使图片随窗体变化而跟着变化，建议采用Image控件来实现。PictureBox控件加载的图像没有拉伸作用。一定要用PictureBox控件的话也要借用Image控件图像拉伸作用来实现。

追问

代码呢？

追答

Private Sub Form_Load()
    Image1.Stretch = True
    Picture1.Left = 0
    Picture1.Top = 0
    Image1.Left = 0
    Image1.Top = 0
End Sub

Private Sub Form_Resize()
    Picture1.Width = Me.Width
    Picture1.Height = Me.Height
    Image1.Width = Picture1.Width
    Image1.Height = Picture1.Height
End Sub

Answer 2

Dim x!, y! '这里要定义两个模块变量，用以记录两比值
Private Sub Form_Load() '加载窗体时，获取图片框宽度，高度与窗体宽度，高度的比值
x = Picture1.Width / Me.Width
y = Picture1.Height / Me.Height
End Sub

Private Sub Form_Resize() '当窗体发生大小变化时，重新设定图片框的宽度和高度
Picture1.Width = x * Me.Width
Picture1.Height = y * Me.Height
End Sub