1. vb如何把任意图片缩放到固定大小的PictureBox并保持图片原来的宽高比
PictureBox（图片框）是Visual Basic中用来显示图形的基本控件之一，用于在窗体指定位置显示图形信息，它支持多种格式的图形文件，包括位图文件(*.bmp,*.dib)、图标文件(*.ico)、光标文件(*.cur)、图元文件(*.wmf,*.emf)，还有Internet 上流行的压缩位图格式的JPEG文件和GIF文件。最重要的功能是可以在它上面绘图。但是PictureBox只有自动适应图片大小的属性，而没有图片适应控件的属性。
原题要“把任意图片缩放到固定大小的PictureBox并保持图片原来的宽高比”，也就是加载以后图片不能变形。这样比较繁琐一些，但是效果很好，仅供你参考。
准备：在窗体上放置两个PictureBox控件，Picture1的长宽要相同（要是按照你的“
PictureBox分辨率为，500*200”，图像就变形了！），一个CommonDialog控件，一个Command控件。
代码如下：
Option Explicit
Private Sub Command1_Click()
Dim imageWidth As Long
Dim imageHeight As Long
CommonDialog1.Filter = "(图片文件)*.BMP;*.JPG;*.JPEG|*.BMP;*.JPG;*.JPEG" '用来选择图片
CommonDialog1.FilterIndex = 0
CommonDialog1.Action = 1
If CommonDialog1.FileName <> "" Then
Picture2.Picture = LoadPicture(CommonDialog1.FileName) '图片加载到Pic2
If Picture2.ScaleWidth > Picture2.ScaleHeight Then
imageWidth = Picture1.ScaleWidth
imageHeight = Picture1.ScaleHeight * Picture2.ScaleHeight / Picture2.ScaleWidth
Else
imageWidth = Picture1.ScaleWidth * Picture2.ScaleWidth / Picture2.ScaleHeight
imageHeight = Picture1.ScaleHeight
End If
Picture1.Cls
Picture1.PaintPicture Picture2, (Picture1.ScaleWidth - imageWidth) / 2, (Picture1.ScaleHeight - imageHeight) / 2, imageWidth, imageHeight, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight
End If
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True '重绘图片
Picture1.AutoSize = False '图片框大小不变
Picture1.Visible = True
Picture1.BackColor = RGB(0, 255, 0) '设置图片框背景颜色
Picture2.AutoSize = True 'Picture2自动缩放以适应图片，不可见
Picture2.Visible = False
Command1.Caption = "选择图片"
End Sub
该代码在VB6测试通过，结果如下：
2. VB6.0怎么使用图片框
VB6.0中使用图片框的步骤如下：
启动软件并新建工程：
- 首先，启动VB6.0开发环境。
- 接着，在菜单栏中选择“文件”->“新建工程”，然后选择“标准Exe”作为新的工程类型。这将为您创建一个新的、空白的窗体，用于后续的开发。
找到图片框控件：
- 在VB6.0的工具箱中，寻找一个名为“PictureBox”（图片框）的控件。这个控件通常位于工具箱的中部或下部，图标为一个带有边框的小方块，有时可能包含一个小图片以表示其功能。
绘制图片框：
- 点击工具箱中的“PictureBox”控件，然后将其拖放到窗体上。此时，您会在窗体上看到一个带有边框的矩形区域，这就是图片框。
- 另外，您也可以通过双击工具箱中的“PictureBox”控件来快速在窗体上绘制一个默认大小的图片框。
调整图片框属性：
- 选中图片框后，您可以在属性窗口中查看和修改其各种属性，如大小（Width和Height）、位置（Top和Left）、边框样式（BorderStyle）等。
- 如果对图片框的外观不满意，可以在属性窗口中直接更改这些属性以达到满意的效果。
加载和显示图片：
- 要在图片框中显示图片，您需要在代码中设置其Picture属性。这可以通过在代码窗口中使用LoadPicture函数来实现，例如：PictureBox1.Picture = LoadPicture("C:pathtoyourimage.jpg")。
- 请确保提供的图片路径是正确的，并且图片文件是可访问的。
运行和测试：
- 完成上述步骤后，您可以运行程序来查看图片框是否按预期显示图片。
- 如果图片没有显示或显示不正确，请检查图片路径、文件格式和图片框的属性设置是否正确。
通过以上步骤，您就可以在VB6.0中成功使用图片框来显示图片了。