ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2018年10月23日(火) 14:40

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 
作成者 メッセージ
 記事の件名: 選択肢について
投稿記事Posted: 2011年4月26日(火) 23:35 
講座の部分でoxゲーム?
を作りましたが、はい、いいえを変更できますか?
(Win32)


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2011年4月29日(金) 17:15 
オフライン

登録日時: 2009年3月29日(日) 15:45
記事: 106
MessageBox関数の第四パラメータの
コード:
MB_YESNO
をかえたらいいと思います。

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


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

[/hide]

やってみてください〜

_________________
↓個人的ソフト置き場
http://www.software.jpn.org/
↓萌えゲー製作とかしていたい
http://www.holygate.jpn.org/


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[3人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke