vb6 - 画像付きDataGrid

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")