首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

PictureBox中图片左右各加一定空间的空白如何做

2013-06-26 
PictureBox中图片左右各加一定空间的空白怎么做?原图是正方形的,现在想在正方形左右各拼一块白色形成长方

PictureBox中图片左右各加一定空间的空白怎么做?
原图是正方形的,现在想在正方形左右各拼一块白色形成长方形,原图在中间。

我现在的做法是将空间自动适用大小=true,然后加载图片,之后修改图片的宽度,这样图片的右面就有了一块空白,但是左面的怎么加?

求给个思路。谢谢。
[解决办法]
A)PicitureBox 中放一个 Image 控件,属性 Stretch = True;
加载图片到 Image 控件;
根据 Image 控件宽度调整 Image 的 X 坐标。

B)加载图片到 pic 变量;
ScaleX(pic.Width, vbHimetric) 算得图片宽度;
PictureBox1.PaintPicture 在指定坐标输出图片。
[解决办法]
方法1,pic控件上放一个image控件,图片放在img控件上,加载后,调整大小和位置
方法2,
dim p as stdpicture
dim W as long,H as long
p=loadpicture(....)
按P计算W,H

pic.move L,T,W+边框宽*2,H+边框高*2
pic.paintpicture(.....)'控制参数,确定Paint的位置大小

热点排行