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

タイトル 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 の内容をチェックしてみてください。
おかしいことに気が付くと思います。

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

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