---

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

【注意書き】 ●VB.NET を使っているものとします。 ●動作環境は、Windows XX を使用しているとします。 .NET でも、徐々に消えるフォームをつくることが可能です。 この機能を使えば、簡単に、 ボタンなどのアクションと同時に効果のある アプリケーションなど簡単に作成できます。 フォームに次の様なコードを記述します -----------VB.NETコーディングここから------------------- １．フォームに、ボタンコントロール、     タイマーコントロールを配置します。     下記は、デフォルトのオブジェクトの名前と配置を示しています。    ┏━━━━┓    ┃Button1 ┃    ┗━━━━┛  --------------------------------------------     （フォーム外）    ┏━━━━━━━━┓    ┃Timer1          ┃    ┗━━━━━━━━┛ ２．ボタンコントロールの     Button1 text プロパティに「閉じる」と記述します。 　　※説明用のためです。必須ではありません。    ┏━━━━┓    ┃閉じる  ┃    ┗━━━━┛  --------------------------------------------     （フォーム外）    ┏━━━━━━━━┓    ┃Timer1          ┃    ┗━━━━━━━━┛ ３．フォームルをダブルクリックして、     コードの編集を開始して、 　　次のコードを記述します。     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 ４．ビルドして実行します。 ５．「閉じる」ボタンを押します。 ６．フォームが徐々に消えることを確認できます。 -----------VB.NETコーディングここまで------------------- 本サンプルでは、 タイマーを使って、フォームの透明度をあらわす Opacity のプロパティを減算していき、最終的に透明度が 完全になったら、フォームを閉じるようにしています。 透明になるまでのステップを 0.025 (2.5%）とし、 100 % から 2.5 %を減算していき、0%でフォームが閉じられます。 この値をカスタマイズすることで、透明化までのスピードを 調節することが出来ます。 透明化までのスピードは、 タイマーを早めたりする事でも可能です。

---

---

　

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