VB中添加图片后，可以更改图片的大小吗？

利用picture控件的话，图片大小可用代码控制。

利用image控件，把stretch属性该为true，就可以通过改变控件大小改变图片大小

移动图片可以移动其所在控件来移动，利用其left

,top

等属性

对与控件的边框可通过改其borderstyle、apperence等属性，选择你喜欢的样式。

方法如下：

1、读取该图片；

2、使用PaintPicture方法缩放绘制图片；

3、保存PictureBox中的图片。

注意：VB的SavePicture只能保存BMP，想保存为其他格式，只能自己根据文件格式写，或者找控件。

简单一点的方式是，在mdi主窗体内添加一个picturebox控件，然后在这个picturebox中添加一个image控件。

picture1的属性：

1.align=top

2.appearance=flat

3.bordestyle=none

4.tabstop=false

image1的属性：

1.stretch=true

在mdi窗体的resize事件中添加如下代码：

private

sub

mdiform_resize()

me.picture1.height

=

me.height

end

sub

在picture1控件的resize事件中添加如下代码：

private

sub

picture1_resize()

me.image1.move

0,

0,

me.picture1.width,

me.picture1.height

end

sub

上面的代码是比较粗略的代码，至于在resize的时候picture1和image1的宽和高的精确数值可以自己调试，以便图像显示的最为完整和精确。

这个方法的缺点是，由于窗体大小可以随意调节，所以背景图形可能会变形。当然也可以考虑控制窗体大小的变化，使窗体按照图片的纵横比放大和缩小，但是相应的控制代码会增加一些。

---