エラー表示

環境/言語:[Win2000 Framework 1.1]
分類:[.NET]

スレッド実行中にエラー等が発生した場合、自作したフォームを表示してメッセージを
表示したいのですが、一瞬表示されて消えてしまうのですがどうしてでしょうか？
メッセージを表示したくていろいろやっているのですがうまくいきません。
表示できる方法を知っている方がみえたらご教授願います。

> スレッド実行中にエラー等が発生した場合、自作したフォームを表示してメッセージを
> 表示したいのですが、一瞬表示されて消えてしまうのですがどうしてでしょうか？

今はどんなソースを書いているのですか？
これだけの情報では何もわからないので、ソースを見せてください。

■No2250に返信(よねKENさんの記事)
>
> 今はどんなソースを書いているのですか？
> これだけの情報では何もわからないので、ソースを見せてください。

'// クラスに記述しています。

Private myClientThread As Thread
Private myClientThreadState As Integer


Public Sub gsubStartSocketThread()

Dim ActiveThreadStart As ThreadStart

ActiveThreadStart = New ThreadStart(AddressOf subStartClientComm)

'// 既存のスレッドをクリア //
myClientThread = Nothing

'// １つのスレッドオブジェクトを作成 //
myClientThread = New Thread(ActiveThreadStart)

'// スレッドを開始し、ThradStartへの権限委譲を有効にする //
'// -スレッド名称設定
myClientThread.Name = clsName

'// スレッドの実行状態 //
myClientThreadState = System.Threading.ThreadState.Running

'// バックグランドスレッドにする //
myClientThread.IsBackground = True
'// スレッドの優先順位 //
myClientThread.Priority = ThreadPriority.Normal

'// スレッドの開始 //
myClientThread.Start()

End Sub

Private Sub subStartClientComm()

try
'処理内容省略
cath ex Exception
Call gsubErrDsp(2, "通信 Error発生!!,ex.Message, ex.StackTrace)
end try

End Sub

'// 標準モジュールで以下を記述しています。
Public Sub gsubErrDsp(ByVal intMode As Integer, _
ByVal strTitle As　String, ByVal strMsg1 As String, _
Optional ByVal strMsg2 As String = "")

'// 表示処理 //
frmMsgDspForm = New frmMsgDsp
With frmMsgDspForm
Select Case intMode
Case 1 '// Message
If strTitle <> "" Then
.lblTitle.Text = strTitle
Else
.lblTitle.Text = "Message"
End If
.txtMsg.Text = strMsg1
Case 2 '// VB ERROR
.lblTitle.Text = "Application Error"
.txtMsg.Text = strTitle & vbCrLf & strMsg1
End Select
.Show
End With
End Sub

以上です。

メッセージ表示した後すぐにスレッドが終わってますね。
ShowDialog で表示させたらどうでしょう？