[[20021021094814]] 『userform のimageにpicutureをloadする方法』(hisao) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『userform のimageにpicutureをloadする方法』(hisao)

Cドライブの\my documents\my pictureに 1.jpg 2.jpg 3.jpg等のファイル

があるとします。

一方 CドライブのtableAのrange("A1")の数値を読み取って、これを変数Kとします。

tableAのuserformに k.jpg のimageをロードする方法を教えてください。

range("A1")が"1"なら 1.jpg を見せる、"2"なら 2.jpgを表示したいのですが

k=range("A1").value

image1.picture=loadpicture("c:\my documents\my picuture\" & k & ".jpg")

とか

k=range("A1").value

textbox1.text="c:\my documents\my picuture\" & k & ".jpg"

image1.picture=loadpicture(textbox1.text)

とか してみたのですが うまく表示されません。お助けください。


 私のマシンでは下の方法でうまく画像をロードして、表示できます。

 参考になれば。

 (kazu)

 Private Sub UserForm_Initialize()

 UserForm1.Image1.Picture = _

        LoadPicture("C:\Documents and Settings\kazu\My Documents\html-e\newyork5.jpg")

 End Sub


早速有難う御座います。いつもすみません。

loadpictureで 表示できたり出来なかったりします。

マシンが古いから ちょっときついのかも知れませんね。

それと iamgeのサイズと 原画の jpg のサイズが うまく適合してないのかもしれません。

(hisao)


 マシンの古さはあまり関係ないと思います。

 よかったら、下の2項目を試してみてください。

(1)UserForm1.Image1.Picture = LoadPicture("newyork5.jpg")

   のように先頭にUserForm名をつけてみる。

(2)基本的に画像を頻繁に変えるという設計になっていないので、

   Form_Initializeの時に、すべての画像をロードしてしまって、

   [非表示]Image1.visible = falseにしておいて、

   必要な時に[表示]Image1.visible = trueにする

    

(kazu)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.