ab.com コミュニティ https://www.activebasic.com/forum/ |
|
選択肢について https://www.activebasic.com/forum/viewtopic.php?t=2671 |
ページ 1 / 1 |
作成者: | ミミック [ 2011年4月26日(火) 23:35 ] |
記事の件名: | 選択肢について |
講座の部分でoxゲーム? を作りましたが、はい、いいえを変更できますか? (Win32) |
作成者: | 水波形 [ 2011年4月29日(金) 17:15 ] |
記事の件名: | |
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関数を書き換えれば、逆転もできます。 |
ページ 1 / 1 | 全ての表示時間は UTC+09:00 です |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |