| |
▼hine さん：
>初心者 さん
>こんにちは
>ヒントです
>
>Private Sub ListBox1_Click()
>MsgBox ListBox1.Value
>End Sub
hineさん
ヒントありがとうございます。
お忙しい中、ありがとうございます。
初心者の自分には、ヒントを見ながら試行錯誤しました。
その後、ヒントを元に検索して周り、
Private Sub ListBox1_Change()
Dim no As Variant
Dim pname As String
menu_ = ListBox1.Value
pname = "ファイルの場所" & Format(menu_, "00") & ".jpg"
If Dir(pname) <> "" Then
Image1.Picture = LoadPicture(pname)
Else
Image1.Picture = LoadPicture()
End If
End Sub
としてみました。
しかし、画像は表示されず、また途方に暮れてしまいました。
何をどうしたらよいでしょうか？
度々、申し訳ありません。
ファイル名は「menu_04.jpg」となっており、
連番で、「menu_16.jpg」まであります。
よければ、またご教授よろしくお願いします。
|
|
初心者
- 05/10/6(木) 13:23 -
