vb.net 照片大小随着窗体大小变化 不变形

在VB.NET中，如果你想要PictureBox的图片大小随窗体大小变化而自动调整，但是始终保持图片的原始比例，通常会使用PictureBox的SizeMode属性。`StretchImage`模式是一个很好的选择，因为它会在保证宽高比的前提下，拉伸或压缩图片以适应PictureBox。

下面的示例展示了如何做到这一点：

Dim pictureBox1 As New PictureBox()
pictureBox1.SizeMode = PictureBoxSizeMode.StretchImage ' 使用StretchImage模式
pictureBox1.Dock = DockStyle.Fill ' 让PictureBox填充满窗体，这样它会按比例缩放图片

' 加载图片
pictureBox1.Image = Image.FromFile("your_image_path.jpg") ' 替换为实际图片路径

' 将PictureBox添加到Form上
Me.Controls.Add(pictureBox1)

' 当窗体大小发生改变时，PictureBox的大小也会相应地调整
Private Sub Form_Resizing(sender As Object, e As EventArgs) Handles Me.Resize
    Dim ratio As Double = Me.ClientSize.Width / pictureBox1.Width
    pictureBox1.Size = New Size(Me.ClientSize.Width, CInt(pictureBox1.Height * ratio))
End Sub

在这个例子中，当窗体被调整大小时，会触发`Form_Resizing`事件处理程序，根据PictureBox原来的宽高比计算新的大小。