VisualBasic5.0 は、そのビジュアル プログラミング手法により、美しいインターフェイスと美しい音楽を備えたマルチメディア ソフトウェアを作成できるため、プログラマーの間でますます人気が高まっています。ただし、実際のプログラミング プロセスでは解決が難しい問題がいくつか発生する可能性があります。以下に、マルチメディア アクセサリ ボックスを充実させる可能性のある、マルチメディア作成における著者の経験をいくつか紹介します。
1.BGM
Visual Basic 5.0 を使用してアプリケーションをコンパイルする場合、OLE ネスト メソッドを使用して、アプリケーションに BGM を簡単に追加できます。
VisualBasic5.0のシステム環境に入り、新規フォームを作成します。 「フォーム コントロール」上の「OLE コンテナ」をクリックし、フォーム内の任意の場所にドラッグします。 「オブジェクトの挿入」ウィンドウで「メディアクリップ」を選択し、「アイコンとして表示」列を選択し（この列は選択する必要があります。選択しないと非表示にすることはできません）、「確認」キーを押して終了します。
「メディアプレーヤー」ウィンドウで「ファイル」→「開く」を選択し、ファイルリストからBGMとして使用したいサウンドファイルを選択します。音楽ファイルは通常それほど長くないため、ループ再生が必要です。これは、「メディア プレーヤー」を繰り返し再生するように設定することで実現できます。次に、「編集」メニューの「オプション」を選択し、オプションウィンドウで「繰り返し再生」を選択し、「再生コントロールバー」の前のチェックマークを外し、確認して終了します。
Visual Basic 5.0 システム環境に戻り、マウスの右ボタンを押して、ポップアップ メニューの [プロパティ] 列をクリックしてプロパティ ウィンドウを表示します。 「Ole1」オブジェクトを選択し、「Visible」プロパティを .F に設定し、「Autosize」プロパティを .F. に設定します。マウスの右ボタンをもう一度押し、ポップアップ メニューの [コード] 列をクリックしてプロセス書き込みウィンドウに入り、[Form1] オブジェクトの 'Load' プロセスを書き込みます。
PRivateSubForm_Load()
OLE1.DoVerb(0)
EndSub
4. 「F5」キーを押して実行します。
2.透明効果立体ボタン
マルチメディア ソフトウェアを作成する場合、透明効果のある 3 次元のボタンが必要になる場合があります。ラベル (LABEL) と形状 (SHAPE) の組み合わせを使用して、このデザインを完成させることができます。
Visual Basic 5.0 システム環境に入り、新しいフォーム (FORM1) を作成し、FORM1 の Picture プロパティを WINDOWS ビットマップ ファイル (.BMP) に設定します。
「フォームコントロールバー」の「シェイプ」をクリックし、FORM1上の長方形のボックス(SHAPE1)を引き出します。同様にSHAPE2、SHAPE3、SHAPE4を作成します。プロパティ ウィンドウで、これら 4 つの SHAPE のプロパティを次のように設定します。
形状1:
境界線の色=&HFFFFFF
境界線の幅=3左=2160
上=2040幅=1100
形状2:
BorderColor=&H80000008
境界線の幅=3左=2160
上部=2520幅=1100
形状3:
境界線の色=&HFFFFFF
境界線の幅=3左=2160
上部=2040高さ=500
形状4：
BorderColor=&H80000008
境界線の幅=3左=3240
上部=2040高さ=500
「フォームコントロールバー」の「ラベル」をマウスでクリックし、FORM1上の長方形のボックス(LABEL1)を引き出し、4つのSHAPEに収まるようにサイズを調整します。そのプロパティ Caption をカスタマイズしたボタンのタイトルに設定し、Alignment を 2 に、Backstyle を 0 に設定します。
LABEL1をダブルクリックし、LABEL1のMouseDown処理とMouseUp処理を以下のように記述します。
PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Shape1.BorderColor=&H80000008
Shape3.BorderColor=&H80000008
Shape2.BorderColor=&HFFFFFF
Shape4.BorderColor=&HFFFFFF
ラベル 1.トップ=ラベル 1.トップ 10
EndSub
PrivateSubLabel1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Shape1.BorderColor=&HFFFFFF
Shape3.BorderColor=&HFFFFFF
Shape2.BorderColor=&H80000008
Shape4.BorderColor=&H80000008
ラベル 1.トップ=ラベル 1.トップ-10
EndSub
「F5」キーを押すだけで実行できます。
3. モバイル字幕
テレビでは、プロンプトのテキストや広告情報が画面の下部で右から左に移動するのをよく見かけますが、これはプロンプトとして機能するだけでなく、画面全体にダメージを与えることはありません。このデザインは VisualBasic5.0 でも完成させることができます。
Visual Basic 5.0 システム環境に入り、新しいフォーム (FORM1) を作成し、FORM1 の Backcolor プロパティを RGB (192,192,192) に設定します。
「フォームコントロールバー」の「ラベル」をマウスでクリックし、FORM1上に長方形のボックス(LABEL1)を引き出します。そのプロパティの Caption を「Active Subtitle Demonstration」、Autosize を .T.、Backstyle を 0、Forecolor を RGB (128, 128, 128)、Fontname を「official script」、Fontbold を .T.、Fontsize を 36 に設定します。
LABEL1 をマウスでクリックし、CTRL C (コピー) キーを押し、CTRL V (貼り付け) キーを押して、FORM1 上の LABEL1 と同じタイトルの別のラベル (LABEL2) を作成し、その前色属性を RGB (255) に設定します。 、255、0）。 LABEL1 が LABEL2 の影のように見えるように、LABEL2 の位置を LABEL1 よりも少し高い位置に調整します。
「フォーム コントロール バー」の「タイマー」をマウスでクリックし、FORM1 を 1 回クリックして、FORM1 にタイマー (TIMER1) を作成します。そのプロパティ Interval を 200 に設定します。
FORM1 をダブルクリックし、FORM1 のロード処理を次のように記述します。
PrivateSubForm_Load()
ラベル1.左=幅50
Label2.Left=幅
EndSub
6. TIMER1 をダブルクリックし、TIMER1 のタイマー プロセスを次のように記述します。
PrivateSubTimer1_Timer()
IfLabel1.Left<0-Label1.WidthThen
ラベル1.左=幅50
Label2.Left=幅
EndIf
ラベル 1.左=ラベル 1.左-500
ラベル 2.左=ラベル 2.左-500
EndSub
7. 「F5」キーを押して実行すると、字幕が画面の右側から表示され、画面の左端に移動すると字幕が消えます。
4. テキストのフェードインとフェードアウト
多くのゲームの冒頭の解説字幕や爆発後のクリエイティブ クレジットでは、文字のフェードインおよびフェードアウト方法が使用されており、フェードインおよびフェードアウト効果のあるテキストも Visual Basic 5.0 で作成できます。
Visual Basic5.0のシステム環境に入り、新規フォーム(FORM1)を作成します。
「フォームコントロールバー」の「ラベル」をマウスでクリックし、FORM1上に長方形のボックス(LABEL1)を引き出します。属性のキャプションを「テキストのフェードインおよびフェードアウト」、自動サイズを .T.、バックスタイルを 0、テキストの色を RGB (0,128,128)、フォントを「公式スクリプト」、フォントボールドを .T.、フォントサイズを 36 に設定します。 。
「フォーム コントロール バー」の「タイマー」をマウスでクリックし、FORM1 を 1 回クリックして、FORM1 にタイマー (TIMER1) を作成します。 Interval プロパティを 100 に設定し、Enabled プロパティを .F. に設定します。
「フォームコントロールバー」の「コマンドボタン」をクリックし、FORM1上に長方形のボックス(COMMAND1)を引き出します。そのプロパティ Caption を「Start」に設定します。
COMMAND1 をダブルクリックし、COMMAND1 のクリック処理を次のように記述します。
PrivateSubCommand1_Click()
IfTimer1.Enabled=FalseThen
Timer1.Enabled=True
EndIf
EndSub
FORM1 をダブルクリックし、FORM1 のアクティブ化プロセスを次のように記述します。
BackColor=RGB(0,128,128)
I=0
7. TIMER1 をダブルクリックし、TIMER1 のタイマー プロセスを次のように記述します。
PrivateSubTimer1_Timer()
I=I10
IfI>=255*2Then
Timer1.Enabled=False
I=0
EndIf
IfI>=255Then
Label1.ForeColor=RGB(255*2-I,128,128)
それ以外
Label1.ForeColor=RGB(I,128,128)
EndIf
EndSub
「F5」キーを押して実行します。 「スタート」ボタンをマウスでクリックすると、タイトルが背景色から赤色に、さらに赤色から背景色に徐々に変化するのがわかります。
上記のプログラムはすべて、Visual Basic 5.0 および WINDOWS95 で正常に実行されます。 ->