Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52077 / 76732

←次へ　｜　前へ→


	【29498】Re:リスト選択で別々画像表示させる方法...

初心者 - 05/10/6(木) 14:56 -


	引用なし

	パスワード

▼hine さん：
>初心者さん
>こんにちは
>ヒントです
>
>Private Sub ListBox1_Click()
>MsgBox ListBox1.Value
>End Sub

hineさんありがとうございました。
なんとか別々の画像を表示させることができました。

あらかじめ作っておいたデータに番号を振り、
Private Sub ListBox1_Change()
　　Dim no As Variant
　　Dim pname As String
　　no = ListBox1.ListIndex
　　
　　pname = "ファイルの場所 & Format(no, "00") & ".jpg"
　　If Dir(pname) <> "" Then
　　　　Image1.Picture = LoadPicture(pname)
　　Else
　　　　Image1.Picture = LoadPicture()
　　End If
End Sub
上記をリストボックスに書き込んだら、
なんとか表示させることができました。

ヒントを与えてくださったこと、とても感謝しています。
また、お世話になると思いますが、
これから、初心者ながら少しずつ勉強していきたいと思いますので
よろしくお願いします。
ありがとうございました。

0 hits

▼

【29484】リスト選択で別々画像表示させる方法を･･･ 初心者 05/10/6(木) 10:49