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

質問

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

回答No.1

nishi6 · ベストアンサー

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

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

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

お礼

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