vb6.0 添加图片缩放显示

在VB6.0中，你可以通过以下步骤将图片添加到控件并实现缩放显示：

1. **添加图片控件**：首先，在工具箱（ Toolbox）中找到`PictureBox`或`ImageList`控件，并将其拖放到窗体上。

2. **设置图片路径**：双击控件打开其属性窗口，找到`Picture`属性，点击浏览按钮选择你想显示的图片文件。

3. **初始化大小**：如果想保持原始比例缩放，可以设置控件的初始宽度和高度与图片的尺寸一致；如果需要自定义缩放，可以在设计时调整控件的大小。

4. **程序代码缩放**：如果你想在运行时动态缩放图片，可以编写事件处理程序如`Resize`或`Load`事件。例如，你可以使用`ScaleMode`属性控制缩放模式，如`Stretch`（拉伸）、`Zoom`（等比缩放）或`Fit`（适合）。

Private Sub PictureBox1_Resize(sender As Object, e As EventArgs) Handles PictureBox1.Resize
    Dim scalePercent As Integer = (PictureBox1.Width / PictureBox1.Image.Size.Width)
    PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage ' 或者改为Zoom、Fit等
End Sub