MessageBox関数の第四パラメータの
コード: 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関数を書き換えれば、逆転もできます。
やってみてください〜
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
'コマンドボタン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関数を書き換えれば、逆転もできます。
[/code][/hide]
やってみてください〜
|