タイトル : Re^8: 経過時間の算出部分と表示部分の処理はできました。 投稿日 : 2008/03/05(Wed) 19:52 投稿者 : tea
琴さん、回答をいただき本当にありがとうございます。 以下のように書き換えました。 ご意見いただいたように引数の最後に「index」と加えましたが、 何も変わりませんでした。 何がいけないんでしょうか? 教えてください。 よろしくお願いします。 RScoreSheetCommanderクラス Private Sub drawTeam(ByVal PE As PrintEngine, _ ByVal Left As Single, ByVal Top As Single, _ ByVal LeftColWidth As Single, ByVal RightColWidth As Single, ByVal TeamFoulMarginWidth As Single, ByVal TeamFaulColWidth As Single, _ ByVal RowHeight As Single, _ ByVal TeamMarginHeight As Single) '新規追加 Dim index As Integer '経過時間 ixRow = ixRow + 1 For i = bbTimeOutMin To bbTimeOutMax For index = bbTimeMin To bbTimeMax .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)), _ , index End If Else '「=」ダブルラインを表示する。 .DrawMatrixCenterDoubleLine i, ixRow, 1, 0.95, _ colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i)) End If Next Next |