自分だけのクイズを作成しよう - Quipha
スポンサーリンク

【#4】VBでゲームを作ろう【メイン画面の作成】

VB

当サイトではアフィリエイト広告を利用しています。

スポンサーリンク

メイン画面の作成

次に、敵をクリックして倒すメイン画面の作成になります。

仕様
  • スタートボタンを押すと複数の敵が表示され、制限時間までクリックし倒していきます。
  • 倒すとポイントが加算され、制限時間を迎えると終了です。

まず新しいフォームをプロジェクトに追加します。
メニューの「プロジェクト」→「フォームの追加(Windowsフォーム)」をクリックします。

「Windowsフォーム」を選択し、名前は「Form2.vb」のまま追加ボタンをクリックします。

初期フォームが追加されました。

メニュー画面同様に、フォームのプロパティを設定します。

プロパティ備考
NameF_MainフォームなのでF_とした
FormBorderStyleFixedSingleフォームのサイズを変更させない
MaximizeBoxFalse最大化はさせない
Size400, 520大体これくらい
StartPositionCenterScreen画面の中央に表示されるようにする
TextClickBuster (メイン画面)任意

一通り設定すると、以下のようになります。

各コンポーネントを配置していきます。

スタートボタン(Button)

プロパティ備考
NameB_Start
Textスタート
Location12, 12
Size80, 49

「残り時間」ラベル(Label)

プロパティ備考
NameL_Jikan
Text残り時間
Font->Size12
Location98, 12
Size66, 16

「得点」ラベル(Label)

プロパティ備考
NameL_Tokuten
Text得点
Font->Size12
Location249, 12
Size40, 16

「合計得点」ラベル(Label)

プロパティ備考
NameL_Sum
Text0
AutoSizeFalse
Font->Size12
TextAlignTopRight得点なので右寄せで表示します。
Location249, 45
Size123, 16

「残り時間」プログレスバー(ProgressBar)

プロパティ備考
NamePG_Jikan
Maximum10とりあえず10に指定
Minimum0
Value10とりあえず10に指定
Location101, 35
Size142, 26

敵が表示される範囲のパネル(Panel)

プロパティ備考
NameP_Enemy
BackColorWhite
BorderStyleFixed3D
Location12, 67
Size360, 402

メニュー画面の修正

フォームのデザイナでメニュー画面を表示し、「初級ボタン」をダブルクリックし、クリックイベントを追記します。

Private Sub B_Syokyu_Click(sender As Object, e As EventArgs) Handles B_Syokyu.Click
    ' メイン画面の表示
    F_Main.Show()
    ' メニュー画面を隠します
    Me.Hide()
End Sub

次にメイン画面(F_Main)のFormClosedイベントに以下を記述しますので、以下のようにクリックします。

似ている項目もありますので、間違えないように注意しましょう。

メイン画面を閉じられた場合に、メニュー画面を表示する処理を記述します。

Public Class F_Main
    Private Sub F_Main_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        ' メニュー画面の表示
        F_Menu.Show()
    End Sub
End Class

ここで一度実行し動作確認を行いましょう。

メニュー画面の初級ボタンを押すと、メイン画面が表示されます。

メイン画面の右上×ボタンで閉じると、メニュー画面に戻ります。

メニュー画面では終了ボタンを押すと、アプリが終了します。

これで基本的な流れはできました。
次は敵を作っていきましょう。

\オススメ/

コメント