都会の夜にはさまざまな種類のネオンが点滅しますが、その中でも最もよく使われるのが、静かな夜に活気をもたらす流水ライトでしょう。私たちが作成したマルチメディア ソフトウェアのインターフェイスに、一連のきらめく水の光を追加すると、どのような効果が得られるでしょうか?以下の手順に従って、追跡効果のある一連の流水ライトをマルチメディア プログラムに追加します。
1. 新しいフォームを作成します。 Visual5asic4.0 システム環境に入り、新しいフォーム (FORM1) を作成し、FORM1 の Backcolor プロパティを RGB (192,192,192) に設定します。
2. 最初のランタンを作ります。 「フォームコントロールバー」の「ラベル」をマウスでクリックし、FORM1上に長方形のボックス(LABEL1)を引き出します。属性のキャプションを「★」に設定し（他の文字でも構いません。ここでの「★」は WINDOWS95 の「アクセサリ」の「文字マップ」にあります）、自動サイズを .T.、バックスタイルを 0、前色に設定します。赤、フォント サイズ 18。
3. 他の 29 個のランタンを作成します。 LABEL1 をマウスでクリックし、CTRL C (コピー) キーを押し、CTRL V (貼り付け) キーを押して、FORM1 の LABEL1 と同じタイトルの別のラベル (LABEL1 (1)) を作成します。プロンプトが表示されたら、「YES」を選択します。画面上でコントロール配列を作成するかどうかを選択します。このコピーを繰り返して合計 30 枚のラベルを作成し、その 30 枚のラベルを順番に長方形のボックスに配置します。
4. タイマーを作成します。 「フォーム コントロール バー」の「タイマー」をマウスでクリックし、FORM1 を 1 回クリックして、FORM1 にタイマー (TIMER1) を作成します。そのプロパティ Interval を 400 に設定します。
5. FORM1 をダブルクリックし、FORM1 のロード プロセスを次のように記述します。
PRivateSubForm_Load()
I=0
Forj=0To9
Label1(j*3).ForeColor=&HFF&'red
Label1(j*3 1).ForeColor=&HFF00&'green
Label1(j*3 2).ForeColor=&HFFFF&' yellow
次へ
EndSub
6. TIMER1 をダブルクリックし、TIMER1 のタイマー プロセスを次のように記述します。
PrivateSubTimer1_Timer()
I=30の場合
I=0
EndIf
I=I1
ForJ=0To29
Label1(J).Visible=False
NextJ
IMod3=2の場合
ForJ=0To9
Label1(J*3 1).Visible=True
NextJ
それ以外
IMod3=0の場合
ForJ=0To9
Label1(J*3 2).Visible=True
NextJ
それ以外
ForJ=0To9
Label1(J*3).Visible=True
NextJ
EndIf
EndIf
EndSub
フォームを実行すると、赤、緑、青のライトが交互に点灯することがわかります。Timer1 の Interval 属性値を調整すると、3 つのライト グループのサイクル速度が変更されます。
上記プログラムは VisualBasic5.0 および Windows95 で正常に動作します。 ->