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

■No100095 (とり さん) に返信
> これよりも前の段階でDLL読み込みが行われるため、
> ファイルチェックする前にプログラムが落ちてしまうのですが・・・
> どこに記述すれば良いですか？

プロジェクトのプロパティを表示すると、「アプリケーション」タブに 「Windows アプリケーション フレームワーク プロパティ」というのがあると思います。

その中に、「アプリケーション イベントの表示」というボタンがあるので、それをクリックすると ApplicationEvents.vb というファイルが作られます。

作成された MyApplication クラスの OnStartup メソッドをオーバーライドし、その中に処理を記述します。

メソッドの戻り値として False を返すと、プログラムは起動せず終了します。

Imports Microsoft.VisualBasic.ApplicationServices

Namespace My
    ' 次のイベントは MyApplication に対して利用できます:
    ' Startup:アプリケーションが開始されたとき、スタートアップ フォームが作成される前に発生します。
    ' Shutdown:アプリケーション フォームがすべて閉じられた後に発生します。このイベントは、アプリケーションが異常終了したときには発生しません。
    ' UnhandledException:ハンドルされない例外がアプリケーションで発生したときに発生します。
    ' StartupNextInstance:単一インスタンス アプリケーションが起動され、それが既にアクティブであるときに発生します。 
    ' NetworkAvailabilityChanged:ネットワーク接続が接続されたとき、または切断されたときに発生します。
    Partial Friend Class MyApplication

        Protected Overrides Function OnStartup(eventArgs As StartupEventArgs) As Boolean
            ' ここに処理を書く
            Return MyBase.OnStartup(eventArgs)
        End Function

    End Class
End Namespace

ありがとうございます。

試してみたのですが
うまくいきません。


https://dobon.net/vb/dotnet/programing/makeentrypoint.html

を参考にして、

    Module Program
        <STAThread()>
        Sub Main()

            If File.Exists(DLL_Path) = True Then

                Application.EnableVisualStyles()
                Application.SetCompatibleTextRenderingDefault(False)
                Application.Run(New Form1())

            Else

                MsgBox("Error")
            End If

        End Sub
    End Module

のようにしてみました。

DLLがある場合に、普通に起動できます。

しかし、DLLがない場合には、メッセージボックスを表示せずに
プログラムはクラッシュしてしまいます。

Application.Run(New Form1())
の部分だけコメントアウトすると、メッセージボックスは表示されます。

どうも、DLLが存在しない場合、

Application.Run(New Form1())
というコードがMainの中に入っていると、
Mainを実行する前にプログラムは強制終了してしまうようです。

これは一体どうすれば良いでしょうか？