vb.net 照片大小随着窗体大小变化 保持原比例

在VB.NET中，如果你想让照片大小随着窗体大小变化而保持其原始比例，可以使用图片控件（PictureBox）的SizeMode属性。以下是一个简单的步骤说明：

1. 首先，在窗体上添加PictureBox控件。
2. 设置PictureBox的SizeMode属性为`PictureBox.SizeMode.StretchImage`，这将使图片始终填充整个控制区域，保持其原始尺寸，但当窗体大小改变时，图片会自动缩放以适应新尺寸。

   PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

3. 如果你想在窗体缩放时保持原始比例，但限制图片的最大尺寸，可以使用SizeMode的另一种模式，如`PictureBox.SizeMode.Zoom`, 这样图片会在不失真的情况下按照比例缩放，超出部分会被裁剪。

   PictureBox1.SizeMode = PictureBoxSizeMode.Zoom

4. 当窗体加载时，你可以动态设置PictureBox的SizeMode，并计算出适当的图片宽度和高度，使其按比例缩放。例如，假设图片的原始Width和Height分别是picOriginalWidth和picOriginalHeight：

   Dim picOriginalWidth As Integer = <original_width>
   Dim picOriginalHeight As Integer = <original_height>

   Dim newWidth As Integer = PictureBox1.Width
   Dim newHeight As Integer = PictureBox1.Height

   ' 计算新的图片宽度和高度，保持比例
   If newWidth > 0 AndAlso newHeight > 0 Then
       Dim ratio As Double = Math.Min(picOriginalWidth / newWidth, picOriginalHeight / newHeight)
       PictureBox1.Image = New Bitmap(picOriginalWidth * ratio, picOriginalHeight * ratio)
   End If

这里需要替换`<original_width>`和`<original_height>`为实际图片的原始尺寸。