msflexgrid单元格中插入一个图像,图像能不能适应单元格的大小?
RT,原始图片较大,想在单元格中以较小的方式显示,有这个设置吗?
[解决办法]
Private Sub Form_Load()
MSFlexGrid1.Rows = 2
MSFlexGrid1.FixedRows = 0
MSFlexGrid1.Cols = 10
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.ColWidth(0) = 1000
MSFlexGrid1.RowHeight(0) = 1000
Picture1.Picture = LoadPicture("D:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Sunset.jpg")
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture1, 0, 0, 1000, 1000, Picture1.Width, Picture1.Height
Set MSFlexGrid1.CellPicture = Picture2.Image
End Sub