VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/03/04(Thu) 15:29 |
| 投稿者 | ： トラッキー |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: それぞれの得点を表示するには？ |
> カウンターを作って、リセットが押されたときにカウンタを＋１
> で、条件にカウンタを追加してみては？
ひなさん、黒影さん、ありがとうございます。
黒影さんご指摘のリセットボタンのところでカウンタを用意という事を
以下のように記述してみましたが間違っていないでしょうか？
Dim cnt As Integer
cnt = 0
'リセットボタンがクリックされた時'
Case 2
cnt = cnt + 1
また、プレビュー画面に各クォーターの得点を表示するコードなのですが
前回投稿した際にはlblQTokuten(0)が記述してありましたが問題があった
ためコード等を削除しました。
合計得点lblTokuten1(0)から各クォーターの得点をそれぞれ表示していく
方法を考えてみたんですが思いつきません。
よろしくお願いします。
'Aチームの各クォーターの得点を表示します。'
If frmGameRecord.tmrGameTime <= 0 And cnt = 0 Then
'第１クォーターの得点'
Call PLocate(59, 2, frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 3, "0")
Call PLocate(59, 4, "0")
Call PLocate(59, 5, "0")
ElseIf frmGameRecord.tmrGameTime <= 0 And cnt = 1 Then
'第２クォーターの得点'
Call PLocate(59, 2, frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 3, frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 4, "0")
Call PLocate(59, 5, "0")
ElseIf frmGameRecord.tmrGameTime <= 0 And cnt = 2 Then
'第３クォーターの得点'
Call PLocate(59, 2, frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 3, frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 4, frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 5, "0")
ElseIf frmGameRecord.tmrGameTime <= 0 And cnt = 3 Then
'第４クォーターの得点'
Call PLocate(59, 2, frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 3, frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 4, frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 5, frmGameRecord.lblTokuten1(0).Caption)
End if
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）