----筆者は、VISUALFOXPRO で文字のフェードアウトとフェードインを実装するという「Computer World」の記事を時々読んでおり、これに触発されて、元の記事を参照して同様の文字のフェードアウトとフェードを作成しました- Visual Basic 4.0 を使用して、Microsoft のビジュアル開発ツールの共通点 (同一または類似のグラフィカル ユーザー インターフェイス (GUI)、オブジェクト指向およびイベント駆動型の機能、同一または類似の機能など) を説明するプログラム。この機能により、プログラム開発者と設計者は、さまざまな Microsoft 視覚化ツールを使用して開発されたアプリケーションから学習し、便利な移植を実行できるため、開発サイクルが短縮されます。同時に、これはコンピューター言語の学習にも役立ちます。
----文字のフェードイン、フェードアウト機能は、ラベル(LABEL)コントロールの前景を連続的に変化させることで実現できます。コントロールのフォアグラウンドの変更、
これは、設計時にラベル コントロールの前景プロパティを使用して設定することも、プログラムで前景プロパティに異なる色の値を割り当てることによって実現することもできます。色は RGB 関数によって提供されます (VisualFoxpro にもこの関数があります)。タイマー制御によって生成される割り込みは、RGB パラメータ値を連続的に変更するために使用されるため、それに応じて文字の前景を変更し、フェードインおよびフェードアウトの目的を達成できます。
----Visual Basic 4.0 で作成された次のプログラムは、2 つの機能を実行します。 (1) 文字のフェードインとフェードアウト。256*256*256 色の変更があります。ここでは、グレーから赤への変更のみが選択されています。
(2) フェードアウト時は文字が小から大へ、フェードインで文字が大から小へ変化します。さらに、このプログラムの実装プロセスは、VisualC や Visualjava などのビジュアル言語に完全かつ簡単に移植できます。
----1. VisualBasic4.0を起動し、フォームを自動生成します。デフォルトはFORM1です。
----2. フォームのプロパティを次のように設定します。
名前:デモ
キャプション: VB は文字のフェードインとフェードアウトを実装します
BACKCOLOR: &H00C0C0C0、つまり背景はグレーです
----3. 以下のフォーム変数を DEMO 形式で定義します。つまり、General 宣言プロセスでカラー パラメータ R、G、B を定義します。
DimrAsInteger
DimgAsInteger
DinbAsInteger
----4. フォームロード時の文字色の初期値を灰色に設定します。
色：
PrivateSubForm_Load()
r=192
g=192
b=192
EndSub
----5. フォーム DEMO にラベルを追加し、そのプロパティを次のように設定します。
名前:ラベル1
写真説明: ハルビン SDIC 債券取引システム
AUTOSIZE: TRUE、文字のスケーリングを実現するために使用されます。
バックスタイル: 0-TRANSPARENT、つまり透明
FONT：フォントは公文書体、サイズは8を選択
----6. フォームにタイマー コントロールを追加して、フェードアウト機能を完成させます。 設定は次のとおりです。
名前: アウトタイマー
INTERVAL: 50。これは、1 秒ごとに 1 回中断し、1 回色を変更することを意味します。
----7. フェードイン機能を完了するには、別のタイマーを追加します。
名前: インタイマー
間隔: 50
----8. OUTTIMER の TIMER プロセスに次のコードを追加します。
PrivateSubOuttimer_Timer()
Ifr<255Then
r=r1
それ以外
r=255
EndIf
Ifg>3Then
g=g-3
それ以外の場合:g=0
EndIf
Ifb>3Then
b=b-3
それ以外の場合:b=0
EndIf
ラベル1.フォントサイズ=ラベル1.フォントサイズ 0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize>=72Then
Outtimer.Enabled=False
Intimer.Enabled=True
EndIf
EndSub
----9. INTIMER に次のコードを追加します。
PrivateSubIntimer_Timer()
Ifr>192その後
r=r-1
それ以外
r=192
EndIf
Ifg<192Then
g=g3
それ以外の場合:g=192
EndIf
Ifb<192Then
b=b3
それ以外の場合:b=192
EndIf
ラベル1.フォントサイズ=ラベル1.フォントサイズ-0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize<=8Then
Intimer.Enabled=False
Outtimer.Enabled=True
EndIf
EndSub
----上記の手順を完了した後、実行ボタンを押すと、「Harbin SDIC Securities Trading System」という文字が小さいものから大きいもの、浅いものから深いものへと表示されます。指定したサイズになると、到達すると徐々に形が消えていき、フェードイン、フェードアウト機能を実現します。
->