请教:Image1.Picture=要显示的JPG文件

Question

向各位大神请教:在DB中有一个五个字段(分别是:A,B,C,D,E;其中A为ID,E为存放JPG文件名)
mshflexgrid1中显示A,B,C,D,E字段
JPG文件放在当前文件夹的JPG文件夹中
我希望的结果是:在MSHFlexGrid1_RowColChange中取得JPG文件名,然后通过Image1.Picture = LoadPicture("")让Image显示选中的那一行返回的JPG文件,,,,,谢~谢~谢~谢~啊,

Answer 1

贴上我写的代码(别喷啊)
Private Sub MSHFlexGrid1_RowColChange()
If rsJPG.State <> adStateClosed Then rsJPG.Close
rsJPG.Open "select jpg from mpjg where id='" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) & "'", cn, adOpenKeyset
Set Image1.Picture = LoadPicture("& App.Path & " \ "jpg" \ " rsjpg.Fields(0)&.jpg")
'" & MSHFlexGrid2.TextMatrix(MSHFlexGrid2.Row, 1) & "'
End Sub

Answer 2

Private Sub MSHFlexGrid1_RowColChange()
If rsJPG.State <> adStateClosed Then rsJPG.Close
rsJPG.Open "select jpg from mpjg where id='" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) & "'", cn, adOpenKeyset
Set Image1.Picture = LoadPicture("& App.Path & " \ "jpg" \ " rsjpg.Fields(0)&.jpg")
'" & MSHFlexGrid2.TextMatrix(MSHFlexGrid2.Row, 1) & "'
End Sub

Answer 3

你不是E已经显示到表格里了吗？
Private Sub MSHFlexGrid1_RowColChange()
Set Image1.Picture = LoadPicture(App.Path & "\jpg\" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5) & “.jpg")End Sub

Answer 4

但Image1.Picture的值好像不对,拿不到数据Set Image1.Picture = LoadPicture(App.Path & "\jpg\" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5) & “.jpg")End Sub

Answer 5

loadpicture路径错了,最后改成了 Image1.Picture = LoadPicture(App.Path & rsJPG.Fields(0))正常了