ab.com コミュニティ

MB_YESNO

'グローバル変数
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関数を書き換えれば、逆転もできます。

MessageBox関数の第四パラメータの
[code]MB_YESNO[/code]
をかえたらいいと思います。

ただし、○☓といったものはなかったと思うので、
RADツールなどで作るといいかと思います。

例
RADツールで、コマンドボタンを二つ、
スタティックテキストを一つ適当に貼ってください。
[hide][code]
'グローバル変数
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関数を書き換えれば、逆転もできます。

[/code][/hide]

やってみてください〜

講座の部分でoxゲーム？
を作りましたが、はい、いいえを変更できますか？
(Ｗin32)