VB2010 エラーメッセージの表示方法

質問

ＶＢ2010を使っています。
エラーメッセージを次のようにセットしました。
Try
・・・・・・・・
Catch ex As Exception
MessageBox.Show(ex.Message, "前ページに戻って、アドレス欄を入力をしてください")
End Try
すると、エラーメッセージは表示されますが、1番上欄に
「前ページに戻って、アドレス欄を入力をしてください」と表示され、
あとは英語でエラー部分の解説が表示されます。
利用者には、日本語の部分が目に付けば良いので、日本語部分を赤い色文字にしたいのですが、どのように書けば良いのでしょうか。
ご存知の方は、ご教授ください。

回答No.3

田中 裕之（@bybalsendercase） · ベストアンサー

再び失礼します。

適当にメッセージボックスを作成しました。

Try

～～～～
～～～～

Catch ex As Exception
' MessageBox.Show("前ページに戻って、アドレス欄を入力をしてください", ex.Message)
'MessageBox.Show("前ページに戻って、アドレス欄を入力をしてください")
Dim f As New Form2
f.english(ex.Message, "前ページに戻って、アドレス欄を入力をしてください")
f.Show()
End Try

Form2をShow()して

Public Class Form2
Private Sub f2() Handles MyBase.Shown
' 下記コードはデザイナー画面で変更できます。
Me.BackColor = Color.White
Me.Text = "エラー"
'各ラベルの設定
Label1.Location = New Point(5, 5)
Label2.Font = New Font("ＭＳ明朝", 12, FontStyle.Bold)
Label2.ForeColor = Color.Red
Label2.Location = New Point(5, 40)
Button1.Text = "OK"
End Sub
Public Sub english(ByVal st As String, ByVal msg As String)
Label1.Font = New Font("ＭＳ明朝", 9, FontStyle.Regular)
Dim lenst As Integer '(1)
lenst = st.Length '(2)
'ex.Messageの文字列の長さが変化すると、フォームのサイズを変更します
'英語の表記が不要の場合は(1)(2)(3)(4)は不要です。
Me.Size = New Size(lenst * 8, 200) '(3)
Button1.Location = New Point(lenst * 5, 100) '(4)
Label1.Text = st
Label2.Text = msg
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class

上記はClass Form2にしましたがtotti1800さんが都合のいいフォームを使ってください。

疑問点等ありましたら、返信して頂けると.嬉しいです。

お礼

早々に問題が解決しました。ありがとうございました。

回答No.2

田中 裕之（@bybalsendercase）

こんにちは

＞英語でエラー部分の解説が表示されます。
日本人なんだから、日本語にしてくれればいいのにね～

totti1800さんの目的にあうかわかりませんが、下記のようにするのはどうでしょうか？

Catch ex As Exception
MessageBox.Show("前ページに戻って、アドレス欄を入力をしてください", ex.Message)
'MessageBox.Show("前ページに戻って、アドレス欄を入力をしてください")
End Try

上記のどちらか１方を試してみてください。

＞日本語部分を赤い色文字にしたいのですが
未検証情報で申し訳ありませんがＶBから操作するとなると、WH_CALLWNDPROCあたりから入っていっくと思います。だいぶ辛いと思います、ですので
「[PDF]メッセージボックスのフォント変更方法（Windows7）」で検索してウィンドウズの操作で、フォントの設定をするか、又は自作のMesseボックスを作る方法がいいと思います。

根本的な解決方法でなくてすいません。

回答No.1

x-1919

> 利用者には、日本語の部分が目に付けば良いので、日本語部分を赤い色文字にしたいのですが、

いやいや、そういうこっちゃないでしょう。
エラー時にユーザーに示すメッセージを 「日本語だけ」 にすればいいだけの話でしょ。
.NET Framework が吐き出すエラーメッセージじゃなくて、あなたの言葉でメッセージを伝えればいいだけのこと。

補足

すみませんが、初心者な者で
「NET Framework が吐き出すエラーメッセージじゃなくて、あなたの言葉でメッセージ」
と言われても、どのようにすれば良いのか検討もつきません。
もう少し、アドバイスをいただけませんでしょうか。