タイトル : Re: とりあえず、ここまでは出来たんですが・・・ 投稿日 : 2008/03/04(Tue) 16:57 投稿者 : 琴
> 1番目から7番目までの順にあるんですが、現状のコードでは時間が > 経過するごとにコマンドボタンをクリックすると所定の1番目の位置に > 時間が正しく表示されますが、その後2回目をクリックすると1番目の > 位置と2番目の所定の位置に両方に経過時間が表示はされるんですが、 > 経過時間は2番目の時間が1番目にも表示されるようになってしまいま > す。 とりあえず落ち着いて、箇条書きでもいいんで判りやすく説明してください。 少なくとも理想的な正しい動作と現在のおかしい動作の違いがはっきりしないことには…。 ・表示は7箇所、1番目から順に表示していく。 ・1回目のボタン押下で1番目の場所に経過時間を表示(他は変化なし?) ・2回目のボタン押下で2番目の場所に経過時間を表示(その時1番目の内容は「=」?) ・現在は2回目の押下で1番目と2番目両方に同じ経過時間が表示される(1番目に「=」が表示されない?) ってことでいいんでしょうか? > Dim A, b, c, d As Integer これだと d だけInteger型で A b c はVariant型になっちゃいますけど意識されてますか? 別にエラーになったりはしませんがちょっと気になりました。 > ixRow = ixRow + 1 > For i = bbTimeOutMin To bbTimeOutMax > .DrawMatrixBox i, ixRow, 1, 1 > > If mp.Game.Team(ixTeam).TimeOutted(i) Then > .TimeOutMinutes i, ixRow, 1, 1,_ > colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i)) > Else > '「=」ダブルラインを表示する。 > .DrawMatrixCenterDoubleLine i, ixRow, 1, _ > 0.95, colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i)) > End If > > Next 外にもう一つループがありそうな感じですね。 mp.Game.Team(ixTeam).TimeOutted(i) が False なら ダブルラインを表示するようですが、このループの過程で mp.Game.Team(ixTeam).TimeOutted(i) = False は 行われているんでしょうか? |