タイトル : Re: 経過時間の算出部分と表示部分の処理はできました。 投稿日 : 2008/03/04(Tue) 19:49 投稿者 : 琴
> ご指摘いただいた経過時間の算出部分と表示部分の処理を分けてみました。 > Friend Sub TimeOutMinutes(ByVal Col As Single, _ > ByVal Row As Single, _ > ByVal Cols As Single, _ > ByVal Rows As Single, _ > Optional ByVal Color As Variant = Empty, _ > Optional ByVal Font As Object = Nothing) > Dim Text As Integer > Dim Alignment As EAlignment33 > Dim A As Integer > > Call AnElapsedTime > > Text = mp.A > > With makeMatrixRect(Col, Row, Cols, Rows) > drawText .Left + 0.2, .Top + 0.05, .Right, .Bottom, _ > Text, Alignment, Color, Font > End With > End Sub これだと結局無条件に計算しちゃうので処理を分けた効果は無いですね。 計算が必要な場合のみ関数が呼び出されるようにしないと。 > 上記にある「値の保持」する方法がわかりません。 ダブルラインの有無を mp.Game.Team(ixTeam).TimeOutted(i) で保持して 判別してたのと同じ様に経過時間も持たせてあげればいいのでは? |