by 水波形 » 2011年4月29日(金) 17:15
MessageBox関数の第四パラメータの
をかえたらいいと思います。
ただし、○☓といったものはなかったと思うので、
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]
やってみてください〜