大佬救救命
怎么用picture控件显示MSHFlexGrid控件中的图片
Private Sub Form_Load()
Dim row As Integer
Dim col As Integer
Dim imagedata As Variant
' 获取选定单元格的行和列
row = frm5.MSHFlexGrid1.row
col = frm5.MSHFlexGrid1.col
' 检查选定单元格是否包含图像数据
If Not IsNull(frm5.MSHFlexGrid1.TextMatrix(row, 5)) Then
' 获取图像数据
imagedata = frm5.MSHFlexGrid1.TextMatrix(row, 5)
' 将图像数据加载到Picture1控件中
Picture1.Picture = LoadPicture(imagedata)
Else
MsgBox "选定单元格不包含图像数据！", vbExclamation
End If
' 显示标签的文本
Label2(0).Caption = frm5.MSHFlexGrid1.TextMatrix(row, 0)
Label3(1).Caption = frm5.MSHFlexGrid1.TextMatrix(row, 1)
Label4(2).Caption = frm5.MSHFlexGrid1.TextMatrix(row, 2)
Label5(3).Caption = frm5.MSHFlexGrid1.TextMatrix(row, 3)
Label6(4).Caption = frm5.MSHFlexGrid1.TextMatrix(row, 4)
End Sub
这个我直接网上参考，然后自己修改了一下，但弹出来的窗口中picture控件不显示图片是什么原因，零件图片在access数据库中已经加载出来了，采用的是数据类型OLE对象，其次在MSHFlexGrid控件中也不显示，是什么原因？

你这也没有把图片放进表格里的代码啊，你的数据库里的内容是怎么放到表格当中的，数据绑定么？如果这样不能正确获取图片数据的话，可能你需要换一种把数据放进表格的方式
如果图片正常显示到表格中了，那么使用CellPicture属性即可返回由表格的Row和Col属性指定的单元格中的图片（注意不是TextMatrix属性，这个只能获取文字），把这个属性直接赋值给图片框的Picture，即可显示到图片框中了