リバース Game の制作　VB6
(4) ボタンの処理

 1. パスの処理

　はさむ駒がないとき、パスができるようにする。処理としては、順番交代の処理と同じである。この処理はボタンcmdPassをクリックしたときに行えばよいので、cmdPass_Clickプロシージャに書く。

・プログラムリスト

Private Sub cmdPass_Click()
'パス
    If Junban = WHITE Then  '順番交代
        Junban = BLACK
    Else
        Junban = WHITE
    End If
    lblMsg.Caption = JunbanMsg(Junban)
End Sub

 2. 終了の処理

　ボタンcmdEndをクリックするとプログラムを終了する。ただし、終了確認などはForm_QueryUnloadプロシージャでプログラムする。

・プログラムリスト

Private Sub cmdEnd_Click()
    Unload Me
End Sub

　これだけである。
　次は終了確認である。

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim yn As Integer

    yn = MsgBox("終了します。", vbYesNo, "リバースGame")
    If yn = vbNo Then
        Cancel = True
    Else
        End
    End If
End Sub

　一応完成である。
　お疲れさま。

(4) ボタンの処理
Copyright © 2002 Hiroshi Masuda