如何让MSHFlexGrid1控件显示SQL中的image字段,并且控制图片大小....

Question

我用以下代码:  Set MSHFlexGrid1.DataSource = rs   '只用了这一句赋值的话,显示不了图片字段....要怎么写??  '不加以下标题行的话,该 MSHFlexGrid1控件会自动用数据库中的字段名作为标题'
  MSHFlexGrid1.ColWidth(0) = 12 * 17 * 2
  MSHFlexGrid1.ColWidth(1) = 12 * 24 * 2
  MSHFlexGrid1.ColWidth(2) = 12 * 18 * 2
  MSHFlexGrid1.ColWidth(3) = 12 * 25 * 3
  MSHFlexGrid1.ColWidth(4) = 12 * 25 * 4
  MSHFlexGrid1.FixedRows = 1
  MSHFlexGrid1.FixedCols = 1
  MSHFlexGrid1.TextMatrix(0, 0) = "序号"
  MSHFlexGrid1.TextMatrix(0, 1) = "姓名"
  MSHFlexGrid1.TextMatrix(0, 2) = "性别"
  MSHFlexGrid1.TextMatrix(0, 3) = "出生年月"
  MSHFlexGrid1.TextMatrix(0, 4) = "图片"
  For i = 1 To rs.RecordCount
  MSHFlexGrid1.TextMatrix(i, 0) = i
  Next i
 End If
  
   上面代码显示不了SQL数据库中的"图片" 字段, ,如果能显示的,还要怎么控制图片的大小????
  谢谢,请指教...

Answer 1

上面代码显示不了SQL数据库中的"图片" 字段, ,如果能显示的,还要怎么控制图片的大小????

Answer 2

例子参考，这个可以实现控制图片大小Private   Sub   Command1_Click() 
addpicture   1,   1,   "d:\2.jpg " 
End   Sub Sub   addpicture(ByVal   row   As   Integer,   ByVal   col   As   Integer,   ByVal   picpath   As   String) 
Dim   pic1   As   PictureBox,   pic2   As   PictureBox MSHFlexGrid1.row   =   row 
MSHFlexGrid1.col   =   col 
Set   pic1   =   Controls.Add( "vb.picturebox ",   "pic1 ",   Me) 
Set   pic2   =   Controls.Add( "vb.picturebox ",   "pic2 ",   Me) 
pic1.Visible   =   False 
pic2.Visible   =   False 
pic2.AutoRedraw   =   True 
pic1.AutoSize   =   True 
pic2.Move   0,   0,   MSHFlexGrid1.CellWidth   *   1.1,   MSHFlexGrid1.CellHeight   *   1.1 
pic1.Picture   =   LoadPicture(picpath) 
pic2.PaintPicture   pic1,   0,   0,   MSHFlexGrid1.CellWidth,   MSHFlexGrid1.CellHeight,   0,   0,   pic1.Width,   pic1.Height 
SavePicture   pic2.Image,   "c:\temp.bmp " 
Set   MSHFlexGrid1.CellPicture   =   LoadPicture( "c:\temp.bmp ") 
Controls.Remove   pic1 
Controls.Remove   pic2 
Kill   "c:\temp.bmp " 
End   Sub

Answer 3

我不会用你的代码:,请指教....
 
  我在窗体上添加了一个Command1 \MSHFlexGrid1 \picturebox1 \picturebox2在运用过程中报错显示:不是一个合法的对象名"pic1.:"  是不是要引用什么部件或工程??请指教一下....谢谢!!!