【】Top

【】VB.NET
【】VB6.0

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






【】会社概要

【】お問い合わせ


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

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

アイネットマコト

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






震えるフォームをつくる

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


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

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


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


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


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

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

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

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

   ┏━━━━┓
   ┃アタック┃
   ┗━━━━┛


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

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

        'ボタンを押すと、震える
        Call DSP_FURUE(Me, 25)


    End Sub

    '震えるオブジェクト
    '震えるオブジェクトと震える回数を引数にセット
    Sub DSP_FURUE(ByVal PiobjObject As Object, _
    ByVal PiintCnt As Integer)

        Dim i As Integer
        For i = PiintCnt To 0 Step -1

            PiobjObject.top = PiobjObject.top + i
            PiobjObject.left = PiobjObject.left + i

            PiobjObject.top = PiobjObject.top - i
            PiobjObject.left = PiobjObject.left - i
        Next


    End Sub



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

5.「アタック」ボタンを押します。

6.フォームが震えることを確認できます。



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

本サンプルでは、
関数 DSP_FURUE を作成し、
オブジェクトの表示位置である「Top,Left」のプロパティ
を引数で与えられた回数で、増減させています。


震える感覚をよりリアリティにするために、
増減させる感覚を収束させていくような動きになるように、
引数で与えられた震える回数を増減の値幅として活用し、
For 〜 Next ループ内で徐々に狭めております。






 

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

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

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