選択肢について
Posted: 2011年4月26日(火) 23:35
講座の部分でoxゲーム？
を作りましたが、はい、いいえを変更できますか？
(Ｗin32)
を作りましたが、はい、いいえを変更できますか？
(Ｗin32)
コード: 全て選択
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
'コマンドボタン１のクリック時イベント
AnsCheck(1)
'コマンドボタン２のクリック時イベント
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関数を書き換えれば、逆転もできます。