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

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[3]: フォームが表示される前にコードを実行

分類:[.NET 全般]　

プログラム起動時に
ユーザー名やドメイン名を調べて
登録されたものでなかったら
エラーメッセージを表示して、
プログラムを終了したいのですが、

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

Application.Exit()

End Sub
と書いても一瞬だけフォームが表示された後に
プログラム終了となってしまいます。

フォームが表示される前にコードを実行するにはどのようにしたら良いですか？

アプリケーションフレームワークが有効であれば（既定で有効です）、プロジェクトのプロパティからアプリケーションタブの中にある「アプリケーションイベントの表示」ボタンでApplicationEvents.vbを開くことができます。
ここでOnStartupをOverridesして、必要な判定コードを記述し、最終的に起動させないとなった場合にFalseを返すようにすればいいです。

■No91674 (ハンターさん) に返信
> フォームが表示される前にコードを実行するにはどのようにしたら良いですか？

プロジェクトのプロパティの[アプリケーション]タブを開き、
[アプリケーションイベントの表示]ボタンを押します。
すると、ApplicationEvents.vb ファイルが開きますので、
MyApplication クラスの Startup イベントを記述します。

　' このイベントは、スタートアップフォームが起動する前に呼ばれます。
　' イベント引数 e.CommandLine から、コマンドラインパラメーターを得ることも出来ます。
　Private Sub MyApplication_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup

　　　If Not 登録済み判定() Then
　　　　　Call エラーメッセージ表示処理()

　　　　　'Trueをセットすると、スタートアップフォームの
　　　　　'呼びだしは行われず、そのままアプリが終了します。
　　　　　e.Cancel = True

　　　End If
　End Sub

もしくは、[アプリケーションフレームワークを有効にする] のチェックを外し、
自前で用意した Main メソッドから始めるという手もありますが、
VB の場合は Starup イベントを用いた方が手っ取り早いでしょう。

うまくいきました

どうもありがとうございました。

　

■No91683 (ハンターさん) に返信
> うまくいきました
>
> どうもありがとうございました。
>
> 　

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

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[3]: フォームが表示される前にコードを実行

過去ログには書き込み不可