C# と VB.NET の質問掲示板

Public Class Class1
  Public Sub Main
    Dim frm As New Form1
    frm.ShowDialog
    Call frm.From_ShowInfo("＊＊　 処理開始　＊＊")
  End Sub
End Class

例えば省略されている箇所が上記のように
モーダルダイヤログボックスを表示するようになっていた場合、
「処理開始」はダイヤログボックスのウインドウが非表示になってから
実行されます。実行されはしますが、すでにウインドウがないために
表示されないと認識されているのではないかと思われます。

間違っていたらすみません。

■No70193 (MH4 さん) に返信
　普通、「クラスにあるメッセージ」をフォームに表示するために、クラスがフォームに働きかけることはしません。
フォームが、クラスからデータを取得します。

×
Class Class1
    Public Sub Hoge
        ' クラスがフォームに働きかける
        Form1.ShowMessage("メッセージ")
    End Sub
End Class

○
Class Class1
    Public Function Hoge As String
        Return "メッセージ"
    End Function
End Class

Public Class Form1 Inherits Form
    Private Sub Hoge
        ' フォームがクラスからメッセージを取得する
        Dim data As Class1 = New Class1()
        Me.Text = data.Hoge
    End Sub
End Class

○
Public Class Form1 Inherits Form
    Private Sub Hoge
        Dim data As Class1 = New Class1()
        ' フォームから、表示するための手段を通知する
        data.Hoge(Me.Display)
    End Sub

    Private Sub Display(ByVal status As String)
        Me.Text = status
    End Sub
End Class

Class Class1
    Public Sub Hoge(ByVal DisplayText As Action(String))
        DisplayText("メッセージ")
    End Sub
End Class


　それとは別に、もっと根本的な誤りがあるように思います。
Visual Studio 2010 で VB の WindowsForms アプリケーションを作成してみましたが、
エントリポイントが見つかりませんでした。どぼんさんのページによると、コンパイラが自動生成するようです。*1
では、ここにある、Class1 クラスの Main メソッドは、いったい何なのでしょう？
同ページには、自分でエントリポイントを作る場合も書いてありますが、
そこにある必要な情報が、このコードに書いてあるのかどうか分かりません。
あなたは「Class1側は、DBの接続関係のソースですので、直接関係はないと思います。」と判断されていますが、
私は関係ありと判断します。
あるいは、実行されると思っているだけで、本当は実行されていないメソッドなのではないでしょうか。

　Class1.Main がエントリポイントであるなら、Application.Run が必要です。
次のようにコードが書かれているなら、「処理開始」が表示されるはずはありません。

Public Class Class1
    Public Sub Main
        Dim frm As New Form1
        :
        省略
        :

        Application.Run(frm)
        ' フォームを閉じた後に実行される
        Call frm.From_ShowInfo("＊＊　 処理開始　＊＊")
    End Sub
End Class


　要らない情報を捨てることはできますが、必要な情報作り出すことはできません。
あなたが情報の要不要を判断しないでください。それを判断するのは、答える側です。

*1 http://dobon.net/vb/dotnet/programing/makeentrypoint.html