ユーザーフォーム上にアイコンの表示

　ＶＢＡでユーザーフォーム上にＭｓｇＢｏｘ関数のようにvbCritical(警告アイコン）をだしたいのですが、そうゆうことはできないでしょうか？よろしくお願いします。

No.1 ベストアンサー 回答者： nishi6 回答日時： 2002/06/25 00:44

原始的な方法です。

メッセージボックスのvbCriticalと同じように見えるだけです。

１．vbCritical を使って、メッセージボックスを出してみる。
２．Alt + PrintScreen でメッセージボックスをコピー。
３．Paint を開いて、貼り付け（Alt + PrintScreen したメッセージボックスを貼り付ける）
４．アイコン部分（赤い丸と白い×の箇所ですよね）を選択してコピー
５．Paint で新規作成してコピーした箇所を貼り付け(キャンパスはなるべく小さくしておく)
６．これを保存
７．ユーザーフォーム上にラベル(Label1)を配置
８．ユーザーフォームを開いた時に画像を読み込む
　　Private Sub UserForm_Initialize()
　　　　Label1.Picture = LoadPicture("D:\・・・\・・・\・・・.jpg")
　　End Sub

単に画像を貼り付けただけです。他の方法は思いつかない。（知らない！がホントです）
アイコンに影もついてメッセージボックスのvbCriticalとほとんど同じになりました！？(Excel2000で確認)

この回答へのお礼

有難うございました。いろいろ調べましたが、教えていただいた方法しかないようですね。これで試してみます。有難うございました。

お礼日時：2002/06/25 09:05