講座の部分でoxゲーム?
を作りましたが、はい、いいえを変更できますか?
(Win32)
選択肢について
MessageBox関数の第四パラメータの
をかえたらいいと思います。
ただし、○☓といったものはなかったと思うので、
RADツールなどで作るといいかと思います。
例
RADツールで、コマンドボタンを二つ、
スタティックテキストを一つ適当に貼ってください。
コード: 全て選択
MB_YESNO
ただし、○☓といったものはなかったと思うので、
RADツールなどで作るといいかと思います。
例
RADツールで、コマンドボタンを二つ、
スタティックテキストを一つ適当に貼ってください。
[ここをクリックすると内容が表示されます]
やってみてください〜コード: 全て選択
'グローバル変数
Dim qnum As Long'問題番号
'クリエイトイベント
SetDlgItemText(hMainWnd,CommandButton1,"○")
SetDlgItemText(hMainWnd,CommandButton2,"☓")
SetDlgItemText(hMainWnd,Staric1,Ex"問題¥n改行はこうします")
qnum=1
'答えのチェックルーチン
Sub AnsCheck(ans As Long)
If qnum=1 Then
If ans=1 Then
MessageBox(hMainWnd,"正解","",MB_OK)
Else
MessageBox(hMainWnd,"不正解","",MB_OK)
End If
qnum=qnum+1
End Sub
'コマンドボタン1のクリック時イベント
AnsCheck(1)
'コマンドボタン2のクリック時イベント
AnsCheck(0)
結構適当に書きました。
まあ、動くと思います。
If qnum=1 Then
If ans=1 Then
MessageBox(hMainWnd,"正解","",MB_OK)
Else
MessageBox(hMainWnd,"不正解","",MB_OK)
End If
を、増やしていけば問題が増えます。
If qnum=2 Then
If ans=1 Then
MessageBox(hMainWnd,"正解","",MB_OK)
Else
MessageBox(hMainWnd,"不正解","",MB_OK)
End If
If qnum=3 Then
If ans=1 Then
MessageBox(hMainWnd,"正解","",MB_OK)
Else
MessageBox(hMainWnd,"不正解","",MB_OK)
End If
ちなみに、ansが1(○をクリックしたとき)の時に正解にしていますが、
MessageBox関数を書き換えれば、逆転もできます。