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

msflexgrid单元格中插入一个图像,图像能不能适应单元格的大小?解决方案

2012-03-06 
msflexgrid单元格中插入一个图像,图像能不能适应单元格的大小?RT,原始图片较大,想在单元格中以较小的方式

msflexgrid单元格中插入一个图像,图像能不能适应单元格的大小?
RT,原始图片较大,想在单元格中以较小的方式显示,有这个设置吗?

[解决办法]

VB code
Private Sub Form_Load()MSFlexGrid1.Rows = 2MSFlexGrid1.FixedRows = 0MSFlexGrid1.Cols = 10MSFlexGrid1.FixedCols = 0MSFlexGrid1.Row = 0MSFlexGrid1.Col = 0MSFlexGrid1.ColWidth(0) = 1000MSFlexGrid1.RowHeight(0) = 1000Picture1.Picture = LoadPicture("D:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Sunset.jpg")Picture2.AutoRedraw = TruePicture2.PaintPicture Picture1, 0, 0, 1000, 1000, Picture1.Width, Picture1.HeightSet MSFlexGrid1.CellPicture = Picture2.ImageEnd Sub 

热点排行