[リストへもどる]
一括表示

投稿時間:2002/08/19(Mon) 16:12
投稿者名:おれ
Eメール:
URL :
タイトル:
loadpictureにて
えー、loadpictureを使って、画像フォルダからJPEGを取り出したいんですが、
うまくいきません。あるはずの画像がない、と表示されます。

ソースは以下のとおりです

imgcar はフォルダ名です!
rs(1)はファイル名になります

Dim getfile As String
getfile = App.Path & "\" & "imgcar" & "\" & r
s(1) & ".jpeg"
Image1.Picture = LoadPicture(getfile)

画像ファイル、ファイル名(rs(1))は全角です。
よろしくお願いします。

投稿時間:2002/08/19(Mon) 16:39
投稿者名:よねKEN
Eメール:
URL :http://www5b.biglobe.ne.jp/~yone-ken/
タイトル:
Re: loadpictureにて
> getfile = App.Path & "\" & "imgcar" & "\" & rs(1) & ".jpeg"
この続きに
Debug.Print """" & getfile & """"
と書いて、変数getfileの中身をご覧ください。
きっと期待している文字列(存在する画像ファイルのパス)
になっていないのだと思います。

投稿時間:2002/08/19(Mon) 16:58
投稿者名:おれ
Eメール:
URL :
タイトル:
Re^2:(解決&お礼) loadpictureにて
JPEGをJPGになおすとできました。
ありがとう出ス!!