タイトル : Re^9: 経過時間の算出部分と表示部分の処理はできました。 投稿日 : 2008/03/06(Thu) 10:44 投稿者 : 琴
> 以下のように書き換えました。 > ご意見いただいたように引数の最後に「index」と加えましたが、 > 何も変わりませんでした。 > '新規追加 > 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 index のFor〜Next文が追加されたことで 無条件に合計49回ループすることになってますが index を渡された TimeOutMinutes ではどういう処理を? |