我在SQL数据库中存有照片，有横片也有竖片，在VB中调用时，想限制它们的大小在一个框中，这个框该怎么做？

把picturebox的stretch属性设为true

1\做两个picturebox
2\第一个picturebox 是隐藏的,负责读数据库里的图片
3\使用图片复制的方法,把图片从第一个复制到第二个,复制的过程中,按第二个框的大小进行比例缩放.

这种应该可以满足你的要求,可以确保图片不变形失真.

版主能否说得更具体一些？例如代码怎么写？还有怎么复制？如何进行比例缩放？

Private Sub Command1_Click()

'模拟读入一个图片
Picture1.Picture = LoadPicture("c:\windows\FeatherTexture.bmp")


Dim i As Single     '计算比例
Dim j As Single

Dim x As Single     '图片居中用的坐标
Dim y As Single

i = (Picture2.Width) / Picture1.Width        '计算各自缩放比例
j = (Picture2.Height) / Picture1.Height

If i > j Then i = j     '取最小的那个方向的比例

x = (Picture2.Width - Picture1.Width * i) / 2       '计算居中的坐标
y = (Picture2.Height - Picture1.Height * i) / 2

'复制图片,按比例进行缩放
Picture2.PaintPicture Picture1.Picture, x, y, Picture1.Width * i, Picture1.Height * i

End Sub

非常感谢！