【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






終了時に確認する

.NET では、アプリケーションの終了時に本当に終了していいのかどうかを確認させることが可能です。

この機能を使えば、望ましくない終了を抑制したり、
終了時の処理などを行うことが可能です。
ここでは、クローズボックスとボタンによる終了時の場合での
説明をしています。

フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------

1.フォームに、ボタンコントロールを配置します。
    (デフォルトのオブジェクトの名前 Button1)

2.ボタンコントロールの
    text プロパティに「終了」と記述します。
  ※説明用のためです。必須ではありません。

3.ボタンコントロールをダブルクリックして、
    ボタンのクリックイベントの編集を開始して、
  次のコードを記述します。

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

        'このアプリケーションを終了させる
        Me.Close()
    End Sub


4.コード編集画面で、編集画面上部にある2種類のドロップダウン
    のうち、左側のドロップダウンである、
    Form1が選択されているドロップダウンをクリックして、
    一覧を表示し、Form1 Events を選びます

5.コード編集画面で、編集画面上部にある2種類のドロップダウン
    のうち、右側のドロップダウンである、
    Declarationsが選択されているドロップダウンをクリックして、
    一覧を表示し、Closing を選びます

6.コードデザイナによって、自動的に、
  イベントプロシージャが作成されます。
  次のコードを記述します。

    Private Sub Form1_Closing(ByVal sender As Object, _
            ByVal e As System.ComponentModel.CancelEventArgs) _
            Handles MyBase.Closing

        Dim intRet As Integer

        intRet = MsgBox("終了しますか?", MsgBoxStyle.YesNo, "確認")
        If intRet = MsgBoxResult.No Then

            e.Cancel = True

        End If
    End Sub



7.ビルドして実行します。

8.フォームに表示された「終了」を押すと、
    メッセージボックスで「終了しますか?」と表示されます。

9.「いいえ」を選択すると、終了されません。

10.フォームに表示された「終了」を押すと、
    メッセージボックスで「終了しますか?」と表示されます。

11.「はい」を選択すると、終了します。


-----------VB.NETコーディングここまで-------------------

アプリケーションの終了時に End を記述するとうまくいきません。
フォームをクローズさせることにより、フォームのクローズイベント
を拾って、処理しています。







 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=OOm

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2018/10/21(日)00:05 更新