tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^6: 経過時間の算出部分と表示部分の処理はできました。
投稿日: 2008/03/05(Wed) 17:03
投稿者tea
琴さん、回答をいただき本当にありがとうございます。

ブレークポイント(F9)とステップ実行(F8)はわかりますし使っています。
ただ、ウォッチ/クイックウォッチはヘルプを見ましたが何をどうするも
のなのかがよくわかりません。

また、以下のコードを書き換えてみました。

Teamクラス
Private Sub clearResultWithoutPlayers()
Dim i As Long
    With mp
        For i = bbTimeOutMin To bbTimeOutMax
            .TimeOutted(i) = False
        Next
        For i = bbTimeMin To bbTimeMax
           .AnElapsedTime(i) = -1
        Next
        For i = bbQuarterMin To bbQuarterMax
            .QuarterScore(i) = False
            .QuarterFoulCount(i) = False
        Next
        .IsDirty = True
    End With
End Sub

問題のRScoreSheetCommanderクラスは以下のようにしてみましたが、
これだとIf mp.Game.Team(ixTeam).AnElapsedTime(i) = -1 Thenの
(i)が-1ではなく1だった場合でも何故か
.TimeOutMinutes i, ixRow, 1, 1, _
            colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i))
が作動します。

'経過時間の表示
            ixRow = ixRow + 1
            
            For i = bbTimeOutMin To bbTimeOutMax
            
                .DrawMatrixBox i, ixRow, 1, 1
                
                If mp.Game.Team(ixTeam).TimeOutted(i) Then
                    If mp.Game.Team(ixTeam).AnElapsedTime(i) = -1 Then
                    '「経過時間」を表示する-----------------
                    .TimeOutMinutes i, ixRow, 1, 1, _
            colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i))
                    ElseIf mp.Game.Team(ixTeam).AnElapsedTime(i) <> -1 Then
                        .TimeOutMinutes i, ixRow, 1, 1, _
            colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i))
                    End If
                Else
                    '「=」ダブルラインを表示する。
                    .DrawMatrixCenterDoubleLine i, ixRow, 1, 0.95, _
                colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i))
                End If
            Next

わかりません。
どうか教えてください。
よろしくお願いします。            

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。