タイトル : 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 わかりません。 どうか教えてください。 よろしくお願いします。 |