VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/03/03(Wed) 20:26 |
| 投稿者 | ： トラッキー |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: それぞれの得点を表示するには？ |
> タイマーで計る場合は、タイミングによってはちょうど0にならない可能性もあるので
> If 残り時間 <= 0 Then
> のように0以下になったら処理をするようにしてみてはどうでしょうか？
以下のように記述してみましたが、タイマーが0になったらリセットボタンを
クリックすることで再度タイマーを起動しますが、その際lblQTokutenを0に
戻すためプレビュー画面で思ったように表示出来ませんでした。
'Aチームの各クォーターの得点を表示します。'
If frmGameRecord.tmrGameTime <= 0 Then
'第１クォーターの得点'
Call PLocate(59, 2, frmGameRecord.lblQTokuten(0).Caption)
Call PLocate(59, 3, "0")
Call PLocate(59, 4, "0")
Call PLocate(59, 5, "0")
ElseIf frmGameRecord.tmrGameTime <= 0 Then
'第２クォーターの得点'
Call PLocate(59, 2, frmGameRecord.lblQTokuten(0).Caption)
Call PLocate(59, 3, frmGameRecord.lblTokuten1(0).Caption - _
frmGameRecord.lblQTokuten(0).Caption)
Call PLocate(59, 4, "0")
Call PLocate(59, 5, "0")
ElseIf frmGameRecord.tmrGameTime <= 0 Then
'第３クォーターの得点'
Call PLocate(59, 2, frmGameRecord.lblQTokuten(0).Caption)
Call PLocate(59, 3, frmGameRecord.lblQTokuten(0).Caption - _
frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 4, frmGameRecord.lblQTokuten(0).Caption - _
frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 5, "0")
ElseIf frmGameRecord.tmrGameTime <= 0 Then
'第４クォーターの得点'
Call PLocate(59, 2, frmGameRecord.lblQTokuten(0).Caption)
Call PLocate(59, 3, frmGameRecord.lblQTokuten(0).Caption - _
frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 4, frmGameRecord.lblQTokuten(0).Caption - _
frmGameRecord.lblTokuten1(0).Caption)
Call PLocate(59, 5, frmGameRecord.lblQTokuten(0).Caption - _
frmGameRecord.lblTokuten1(0).Caption)
End if
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）