![]() |
![]() |
イメージコントロールの画像を動的に替える方法 | フォーム、VBA |
![]() 次の例では、オプショングループ"fraPictureChange"が更新されたら、つまり現在表示されている画像とは別の画像ファイルが選択されたら、そのオプションボタンの[オプション値]プロパティに対応した画像ファイルのフルパスをイメージコントロール"イメージ1"の[Picture/ピクチャ]プロパティにセットしています。なお、雲.bmp・花見.bmp・森.bmpのオプション値はそれぞれ 1、2、3となっています。 Private Sub fraPictureChange_AfterUpdate()
Me!イメージ1.Picture = Choose(Me!fraPictureChange, _ "C:\WINDOWS\雲.bmp", _ "C:\WINDOWS\花見.bmp", _ "C:\WINDOWS\森.bmp") End Sub ※このような使い方をする場合には、ディスク上にあからじめ画像ファイルが存在しているはずですから、イメージコントロールの[ピクチャタイプ]プロパティは"リンク"に設定しておいた方がいいでしょう。 |
|||
|
Copyright © T'sWare All rights reserved | ![]() ![]() |