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

タイトル 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

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

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