vb6 - 带图片的数据网格

Question

我在 Visual Basic 6 中有一个 DataGrid。这个 DataGrid 显示产品列表，如下所示：

每当用户从 DataGrid 中选择产品时，我都想更改 Image 控件中的图像。我正在通过以下代码执行此操作：

Private Sub txtBarcode_Change()
On Error GoTo nosuchfile
    picture.picture = App.Path & "Images\products\" & txtBarcode.Text & ".jpg"
nosuchfile:
picture.picture = App.Path & "Images\products\no_image.jpg"
End Sub

txtBarcode 是一个隐藏的文本框，其中包含当前在 DataGrid 中选择的条形码/id。

我的问题：图像似乎没有改变。

Answer 1

要加载图片，您需要调用 LoadPicture()

Picture1.Picture = LoadPicture("c:\temp\pic.bmp")