----多くのアプリケーション ソフトウェアでは、ソフトウェアを起動した後、製品、プラットフォーム、バージョン番号、著作権情報などの情報が数秒間表示される画面があり、これを「プログラム起動時フラッシュ画面」と呼びます。 」。 Visual Basic ではどのように実装されますか?この記事では、スプラッシュ スクリーンを生成してカラフルにする 1 つの方法について説明します。起動画面がデスクトップ上にある場合、プロンプト テキストがデスクトップ上に「流れる」ことを確認します (「Orient Express」起動画面など)。同時に、流れるテキストの点滅や色の変更などの効果も実現できます。画面をテキストの下部に設定すると、テキストが画面から流れ出すことができます。表示が完了して画面上部から消えた後、再び画面下部から立ち上がり、ループして再表示されることがあります。このデザインを作成した後は、ソフトウェアの説明や作成者リストなどで使用して、ソフトウェアの画面表示を充実させることができます。
----プロジェクト 1、フォーム Form1 および Form2 を取得し、Form1 を起動フォームとして設定します。 Form2 に新しい Frame1、Timer1、Temer2 を作成し、Frame1 の Caption プロパティを null 値に設定して、美しい 3 次元の境界線を形成します。 Timer1 と Temer2 の Enabled プロパティは True に設定されます。 Frame1 に Picture1 を作成し、Picture1 を適切なサイズに調整します。 Form1 の ScaleMode プロパティを 1-Twip に設定し、Form2 の StartUpPosition プロパティを 2-CenterScreen (中央揃え) に設定します。 Form2 がフォームの上部に「青い説明バー」を表示しないようにするには、Caption プロパティを null 値に設定し、ControlBox プロパティを False に設定します。 Picture1 にラベル Label1 を作成し、BackStyle を 0 (透明) に調整します。簡単に確認できるように、Label1 の Caption 属性に「作者: 瀋陽の蒋雪先生」というテキストを入力します。文字のサイズと色を調整します。 Form2では、レイアウト情報を自由に設定できます。
----Form1 のコードは次のとおりです。
PRivateSubForm_Load()
Form1.Visible=0' フォーム Form1 を非表示にします
Form2.Show'フォーム Form2 を表示します
EndSub
Form2 の各コントロールのコードは次のとおりです。
オプション明示的
DimStep1,Step2,Step3AsInteger
DimZfAsString
DimIAsInteger
PrivateSubForm_Click()
'Form2をクリックするとForm2の実行を終了し、
フォーム Form1 を表示し、Timer と Timer1 を閉じます。
アンロードミー
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSubForm_Load()
Picture1.Picture=LoadPicture
("c:/windows/Clouds.bmp")'画像を選択してください
Timer1.Interval=80' タイム ステップ
タイマー2.間隔=50
EndSub
プライベートサブ
Frame1_Click() 'コントロール Frame1 内の領域をクリックすると、
フォーム Form2 の実行を終了し、フォーム Form1 を表示し、Timer と Timer1 を閉じます。
アンロードミー
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
プライベートサブ
Picture1_Click()
'Picture1 内の領域をクリックすると、Form2 の実行を終了し、
フォーム Form1 を表示し、Timer と Timer1 を閉じます。
アンロードミー
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSubTimer1_Timer()
ColorLabel1,15,13,9' は変換された色を呼び出します
I=I1
IfI>50Then'Form2 フォームの滞在時間、サイズ変更可能
アンロードミー
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndIf
EndSub
SubColor(CtrlAsControl,color1AsInteger,
color2AsInteger,color3AsInteger)'色を選択してください
IfVal(Ctrl.Tag)=color1Then
Ctrl.タグ=色2
ElseIfVal(Ctrl.Tag)=color2Then
Ctrl.タグ=色3
ElseIfVal(Ctrl.Tag)=color3Then
Ctrl.タグ=色1
それ以外
Ctrl.タグ=色1
EndIf
Ctrl.ForeColor=QBColor(Ctrl.タグ)
EndSub
PrivateSubTimer2_Timer()' はテキストの移動位置と速度を制御します
ステップ1=1800:ステップ2=4500:ステップ3=40
IfLabel1.Top<-Step1-Label1.TopThen
ラベル1.トップ=ラベル1.トップ ステップ2
EndIf
ラベル1.トップ=ラベル1.トップ-ステップ3
EndSub
----Timer1.IntervalとTimer2.Intervalの値を調整できます。これらはそれぞれテキストの色の変更速度とテキストの流れる速度を決定します。フォームとコントロールに応じて、Step1とStep2を適切な値に調整します。条件; ステップ 3 はテキスト ジャンプ ステップです。 ColorLabel1、I、J、K ステートメントの I、J、K 値を変更してテキスト変換色を変更します。中国語 VisualBasic5.0 で実装されています。 ->