【】Top

【】VB.NET
【】VB6.0

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






【】会社概要

【】お問い合わせ


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

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

アイネットマコト

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






徐々に消えるフォームをつくる

【注意書き】
●VB.NET を使っているものとします。
●動作環境は、Windows XX を使用しているとします。


.NET でも、徐々に消えるフォームをつくることが可能です。

この機能を使えば、簡単に、
ボタンなどのアクションと同時に効果のある
アプリケーションなど簡単に作成できます。


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


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


1.フォームに、ボタンコントロール、
    タイマーコントロールを配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。


   ┏━━━━┓
   ┃Button1 ┃
   ┗━━━━┛


 --------------------------------------------
    (フォーム外)
   ┏━━━━━━━━┓
   ┃Timer1          ┃
   ┗━━━━━━━━┛



2.ボタンコントロールの
    Button1 text プロパティに「閉じる」と記述します。

  ※説明用のためです。必須ではありません。


   ┏━━━━┓
   ┃閉じる  ┃
   ┗━━━━┛


 --------------------------------------------
    (フォーム外)
   ┏━━━━━━━━┓
   ┃Timer1          ┃
   ┗━━━━━━━━┛


3.フォームルをダブルクリックして、
    コードの編集を開始して、
  次のコードを記述します。



    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        'ボタンを押すと、消えるフォームの処理開始
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Timer1.Tick
        '透明度が完全になるまで、タイマー処理を実行しています
        If Me.Opacity <= 0 Then
            Timer1.Enabled = False
            Me.Close()
        End If
        '透明になるまでのステップ値です。
        Me.Opacity = Me.Opacity - 0.025
    End Sub

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

        '消えるフォームのタイマー初期
        Timer1.Enabled = False
        Timer1.Interval = 200

    End Sub


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

5.「閉じる」ボタンを押します。

6.フォームが徐々に消えることを確認できます。



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

本サンプルでは、
タイマーを使って、フォームの透明度をあらわす
Opacity のプロパティを減算していき、最終的に透明度が
完全になったら、フォームを閉じるようにしています。


透明になるまでのステップを 0.025 (2.5%)とし、
100 % から 2.5 %を減算していき、0%でフォームが閉じられます。

この値をカスタマイズすることで、透明化までのスピードを
調節することが出来ます。

透明化までのスピードは、
タイマーを早めたりする事でも可能です。




 

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

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

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