Pictureの値を取得するには？

解決

からす 2003-12-05 23:56:16 No: 110494

画像をランダムに表示させ、表示させた画像によって実行するコマンドが違うプログラムを作っています。
そこで質問なんですが、
ランダムで表示させた画像が何の画像であるか
（選択された画像の名前---"〜.gif"など---）
を取得するにはどうすればよいのでしょうか？
わかりにくい文章で申し訳ありませんが、よろしくお願いします。
ちなみに環境はXPでVB6.0で、ランダムは↓のようにしています。

（画像"1.gif","2.gif","3.gif"を用意）
Randomize
i = Int(Rnd * 3) + 1
Image1.Picture = LoadPicture("\画像\" & i & ".gif")

nanashi 2003-12-06 00:22:47 No: 110495

LoadPictureしてる時点でファイル名分かってると思いますが…？

いちゆ 2003-12-06 00:33:30 No: 110496

ちなみに親ディレクトリを指定しないとカレントディレクトリあたりが指定されていることになりますが、
CurDir([dir])なんかでとることができます。

からす 2003-12-10 21:37:44 No: 110497

アドバイスありがとうございます。
CurDir関数で、パス名が取得できたのは分かったのですが、
ランダム関数によって与えられた値が何であるかを知るにはどうすれば良いのでしょうか。
説明下手なので申し訳ありませんが、
上記の説明を例にしてみると
ランダム関数で変数iに数字の１が割り当てられたら、Image1.Pictureに"1.gif"が表示されますよね。
それをラベルなどで「Image1.picture = 1.gif」のように表示させたいのですが、なにか良い方法はないでしょうか。

よねＫＥＮ 2003-12-10 22:45:01 No: 110498

nanashiさんのアドバイスに既にある話ですが、

> i = Int(Rnd * 3) + 1

Label1.Caption = "Image1.picture = " & CStr(i) & ".gif"

> Image1.Picture = LoadPicture("\画像\" & i & ".gif")

とするだけでは？

からす 2003-12-11 21:54:49 No: 110499

あ、そうですね！
自分のなかでこんがらがってなってました。
自分でラベル使うとか言っといて何やってたんだろ。
無事解決できました。
nanashiさん、いちゆさん、よねＫＥＮさんありがとうございました！