- 日時： 2010/01/21 11:47
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[メッセージ][][] *
* キーワード：システムモーダル,MsgBoxStyle.SystemModal,MsgBox,最前面, *
***********************************************************************************
タイトル ： システムモーダルメッセージボックスのアイコンの変更方法
記 事 No ： 9792
投 稿 日 ： 2010/01/16(Sat) 12:44
元質問者 ： こたろう
MsgBox("テスト", MsgBoxStyle.SystemModal)
↑のコードを実行すると、システムモーダルでメッセージボックスが表示されます。
この場合、タイトルバーの左側にデフォルトのアイコンが表示されてしまいます。
（システムモーダル以外のメッセージボックスではアイコン自体表示されません。）
このデフォルトのアイコンを指定のアイコンに変更する方法、もしくは、アイコン自体を
消す方法をお教えくださいませんでしようか？
メッセージボックスの動作としては、システムモーダルがいいので、“システムモーダル
以外に”というのはなしでお願いします。
------------------------------------------------------------------------------------
記事No ： 9793
投稿日 ： 2010/01/16(Sat) 16:52
回答者 ： 花ちゃん
> メッセージボックスの動作としては、システムモーダルがいいので、
> “システムモーダル以外に”というのはなしでお願いします。
その理由も書き添えるようにして下さい。
そうすれば、下記のように違った解決方法もあるかと。
システムモーダル？(MsgBoxStyle.SystemModal)でなくても最前面に表示されれば
いいのではないですか？
-----------------------------------------------------------------------
'MsgBox 関数では、システムアイコンが表示される
Microsoft.VisualBasic.MsgBox("MsgBox 関数で SystemModal で表示", _
MsgBoxStyle.SystemModal, "")
'自身のForm を最前面に表示してそれをオーナーFormとしてメッセージボックスを最前面に表示
Me.TopMost = True
MessageBox.Show(Me, "MessageBox クラスで SystemModal 風の表示")
Me.TopMost = False
'自身の Form が最前面に表示されるのが嫌ならダミーのFormを使ってSystemModal と同様に表示
Dim dummyForm As New Form
dummyForm.TopMost = True
MessageBox.Show(dummyForm, "MessageBox クラスで SystemModal と同様に表示")
dummyForm.TopMost = False
dummyForm.Dispose()
-----------------------------------------------------------------------
それぞれ、メッセージボックスが、最前面に表示されますが、表示の仕方が若干違います。
上記のどれもが駄目なら Form 等を使って自作した方が早いかも。
|
MessageBox クラスのメッセージボックスを最前面に表示する(VB.NET)