処理中ダイアログのメッセージを表示するには？ (ID:144173)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

VS2005 Professional  で開発しています。

フォーム１：通常画面
            ボタン押下で処理が実行されます。
フォーム２：処理中ダイアログ画面
            メッセージとプログレスバーを表示します。
            ただし、処理に応じてプログレスバーを表示する場合と
            しない場合があります。
としています。

フォーム１のボタン押下で、フォーム２を処理中ダイアログとして表示
させたいのですが、フォーム２自身は表示されても、メッセージがうまく
表示されず、メッセージラベルを貼り付けている部分が透過したような
感じになります。

フォーム１より
    Call フォーム２.SetDialog("実行中...")

フォーム２より
    Public Sub SetDialog(ByVal Kind As Integer, ByVal Msg As String)
        m_Kind = Kind
        m_Msg = Msg
        Me.show()
    End Sub

Private Sub Form_Load(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) _
    Handles MyBase.Load
        lblMessage.Text = m_Msg
        lblCount.Text = ""
        lblTotal.Text = ""
        prgBar.Value = 0
        If m_Kind = 1 Then
            '表示種別：メッセージの場合
            pnlStatus.Visible = False      
        Else
            '表示種別：進行状況の場合
            pnlStatus.Visible = True
        End If
  
        Me.Refresh()
    End Sub

※pnlStatusはプログレスバー一連を貼り付けたパネルになります。

lblMessage.Text にはメッセージが設定されているのですが、
どうしても表示されません。
どうにかして解決できませんでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る