读书人

msflexgrid单元格中插入一个图像图像

发布时间: 2012-03-06 20:47:55 作者: rapoo

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 

读书人网 >VB

热点推荐