1.如果原图片为空,拷贝时会出错,请问如果原图片为空的代码怎么写?
2.我用以下代码将picture1按比例拷贝到pictuer2:
Public Sub copyim(Picture1, Picture2)
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
Debug.Print "i="; i; "j="; j
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

两个图片,picture1总能显示出来(picture1绑定数据库的photo字段）,而picture2总是显示不出来（有时只是显示出一小部分）。请问是怎么回事？该怎么解决？

[ 本帖最后由 冰雪清风 于 2009-11-22 21:31 编辑 ]

1.picture的自动重绘设为自动，代码怎么写？
picture2为空的代码是不是picture2.picture=""？
2.不是的，没有别的控件或窗体盖过它。我程序设的是点击picture2时打开文件夹选择图像文件，并装入picture1，再在picture2重绘。第一次点击后只有picture1有显示，picture2没有或只有一部分。再点击一次，不选择图像文件，点取消，之后picture2的图像就出现了。很奇怪，该怎么办？

[ 本帖最后由 冰雪清风 于 2009-11-23 20:31 编辑 ]