タイトル : Re: ダミーデータは表示可能となりました。 投稿日 : 2008/03/06(Thu) 17:06 投稿者 : 琴
> 書き換えたコードは以下ですが、実行すると今度は表示箇所は空白と > なり、2回目以降も空白となります。 > ブレークポイントをIf mp.Game.Team(ixTeam).TimeOutted(i) Thenに > 置いて「F8」で追っていくとCall .AnElapsedTimeへ進み、次にEnd If > に進みます。 これは > If mp.Game.Team(ixTeam).AnElapsedTime(i) = -1 Then > Call .AnElapsedTime > > ElseIf mp.Game.Team(ixTeam).AnElapsedTime(i) <> -1 Then > Index = mp.Game.Team(ixTeam).AnElapsedTime(i) > .TimeOutMinutes i, ixRow, 1, 1, _ > colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i)), _ > , Index > End If この部分で mp.Game.Team(ixTeam).AnElapsedTime(i) = -1 の時には AnElapsedTime を呼び出すのみで TimeOutMinutes を呼び出していないからですね。 > このiはFor i = bbTimeOutMin To bbTimeOutMaxのiだと思っているんですが > 間違っていますでしょうか? その i です。 .AnElapsedTime(i) を確認したつもりで i の内容を見てたわけじゃないですよね? って意味でした^^; > Public Sub AnElapsedTime(Optional ByVal Index As bbTime) > Dim A As Integer > Dim b As Integer > Dim c As Integer > Dim d As Integer > > b = Game.Setting.QuarterMinutes > c = Left(frmMain.vsGameTime.Value / 60, 1) > d = b - c > > Index = d > > End Sub これだと値渡しの Index に結果を入れてる事になります。 この関数に入る直前と関数最後の End Sub の時点、 関数を出た直後の Index の内容をチェックしてみてください。 おかしいことに気が付くと思います。 |