ランキングはこちらをクリック! にほんブログ村 ゲームブログ ゲーム制作へ ブログランキング【くつろぐ】

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

=第28話=終了画面を作りましょう

しばらくの間更新が滞っていましたが更新します。
世間は不景気ですね。
私は今社会人なのですが社内のお金にならない仕事をしています。
「あー仕事が何もないからやらされてるんだろうなー(涙)
そろそろ危ないかなー。。。」
ではそんななかゲーム作成の続きといきましょう。


1.Form1の「フォームデザイナ」ウィンドウの「MainTab」部分を右クリックし
 「タブの追加」をクリックして「TabPage4」を追加しましょう!

2.「TabPage4」に終了文字を配置しましょう

「Label」コントロール
(Name):Label7
Font-Size:72
ForeColor:Red
Text:終了

nttadamoji-033.gif

3.Form1の「SceneChange」プロシージャの「Select」文に
  [終了]シーン変更処理のコードを追加します。

--------------------------------------------------

Case 4 '[終了]シーン変更処理

'表示用にタイマーをセット(3秒間表示)
Me.Timer1.Interval = 3000
Me.Timer1.Enabled = True

'タブのページを切り替える
Me.MainTab.SelectedIndex = intScene - 1

--------------------------------------------------

4.Form1の「SceneProc」プロシージャの「Select」文に
[終了]シーン表示処理のコードを追加します。

--------------------------------------------------

Case 4 '[終了]シーン表示処理

'次のシーンへ
Call SceneChange(intScene + 1)

--------------------------------------------------

※デバッグ開始を実行してみましょう!
nttadamoji-034.gif


文字探し表示画面の表示後に終了画面が表示されました。

スポンサーサイト

テーマ : フリーゲーム - ジャンル : ゲーム

コメント

コメントの投稿

管理者にだけ表示を許可する


トラックバック


この記事にトラックバックする(FC2ブログユーザー) URL

プロフィール

ウルトラパワー

Author:ウルトラパワー
FC2ブログへようこそ!

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ

相互リンク

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。