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

スポンサーサイト

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

=第13話=スタートボタンを点滅させましましょう

一ヶ月以上ブログの更新を怠っているとスポンサーサイトの広告が3つほど
自動的に表示されるようになっているのですね~。
では本題に入っていきましょう。

今回はスタートボタンを点滅させましょう。

さっそく以下の手順を行ってください。

-----------------------------------------------------
1.「フォームデザイナ」ウィンドウのタイトルバー部分をダブルクリック
  (正しい文字を・・・と書かれている青い部分ですね。)
  おなじみの「コードエディタ」ウインドウが表示されましたね。

2.「MainForm_Load」イベントプロシージャの最後に
  [タイトル]シーンへ切り替えるためのコードを追加します。

  '[タイトル]シーンへ
  Call SceneChange(1)

3.「SceneChange」プロシージャの「Select」文に
  [タイトル]シーン変更処理のコードを追加します。
  (Select Case と End Select の間の行ですね。)

   Case
1 '[タイトル]シーン変更処理

    '[スタート]ボタンを点滅させるためにタイマーをセット(0.6秒毎)
    Me.Timer1.Interval = 600
    Me.Timer1.Enabled = True

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

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

   Case 1 '[タイトル]シーン表示処理

    '[スタート]ボタンを点滅
    If Me.btnStart.BackColor = Color.White Then
     Me.btnStart.BackColor = Color.MistyRose
    Else
     Me.btnStart.BackColor = Color.White
    End If

-----------------------------------------------------
nttadamoji-011.gif


それではさっそくデバッグ開始を実行してみましょう
スタートボタンが点滅するようになりましたね。


スポンサーサイト

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


プロフィール

ウルトラパワー

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

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

相互リンク

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