大佬救救命
怎么用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控件中也不显示,是什么原因?
怎么用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控件中也不显示,是什么原因?